IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Creating vsam dataset and REPROing the data to output DSN.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
crrindia

Active User


Joined: 02 Jul 2005
Posts: 124
Location: Gurgaon

PostPosted: Mon Nov 21, 2005 6:14 pm
Reply with quote

In the following JCL, in STEP001, I am checking the input file, if the input file is there, then I am allocating an output file ( temporary file ); else
SET MAXXCC=0.

In STEP002, right now I am checking the data in the input file, if the data is there in the input file, then I am copying the data into output file (temp file), else SET MAXXCC =0.

But I wanted to add one more condition to this job. i.e., if the input file is not there in STEP001, then I need to bypass STEP002 or in STEP002 I need to add one more condition.( i.e., first I need to check the input file,
if there then check the data in that file, if the data was there copy into output file else SET MAXCC=0.

Code:
                                               
//**********************************************************************
//*                   ALLOCATE TEMP VSAM FILE                          *
//******************************************************************
//STEP001  EXEC PGM=IDCAMS,                                             
//         COND=(0,LT)                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
    LISTC ENT(BAS1234.T.STAKDUMP)                                       
    IF LASTCC = 0 THEN                                                  -
    DEFINE CLUSTER                                                     -
       (NAME(BAS1234.T.STAKDUMP.TEMP)                                 -
        MODEL(BAS1234.T.STAKDUMP))                                     
   ELSE SET MAXCC = 0                                                   
/*                                                                     
//*                                                                     
//*********************************************************************
//*        COPY THE DATA FROM ORG VSAM FILE TO TEMP VSAM FILE          *
//**********************************************************************
//STEP002  EXEC PGM=IDCAMS,                                             
//         COND=(0,LT)                                                 
//SYSPRINT DD SYSOUT=*                                                 
//FILEIN   DD DSN=BAS1234.T.STAKDUMP,                                   
//            DISP=SHR                                                 
//FILEOUT  DD DSN=BAS1234.T.STAKDUMP.TEMP,                             
//            DISP=OLD                                                 
//SYSIN    DD *                                                         
        VERIFY FILE(FILEIN)                                             
        IF LASTCC = 0 THEN REPRO INFILE(FILEIN) OUTFILE(FILEOUT)         
           ELSE SET MAXCC=0                                             
/*                                                                     
//*
Back to top
View user's profile Send private message
Bharanidharan

New User


Joined: 20 Jun 2005
Posts: 86
Location: Chennai, India

PostPosted: Tue Nov 22, 2005 10:02 pm
Reply with quote

You can set maxcc of STEP001 to any user-defined value, say 12. Then you can use IF LASTCC > 0 and ENDIF for STEP002.

Please correct me if I am wrong.
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 25

PostPosted: Wed Nov 23, 2005 12:21 pm
Reply with quote

crrindia,

Why do you need two steps for this. You can do everything in just one step. See below

Code:

//STEP001  EXEC PGM=IDCAMS                                           
//SYSPRINT DD   SYSOUT=*                                             
//SYSIN    DD *                                                       
 LISTC ENT(INPUT.VSAM)                                     
 IF LASTCC = 0 THEN DO                                               
   DEFINE CLUSTER (NAME(OUTPUT.VSAM) MODEL(INPUT.VSAM))
   VERIFY DATASET(INPUT.VSAM)                               
   IF LASTCC = 0 THEN                                                 
    REPRO INDATASET(INPUT.VSAM) OUTDATASET(OUTPUT.VSAM)
 END                                                                 
 ELSE SET MAXCC=0                                                     
/*                                                                   
//*                                                                   


Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
crrindia

Active User


Joined: 02 Jul 2005
Posts: 124
Location: Gurgaon

PostPosted: Fri Nov 25, 2005 3:07 pm
Reply with quote

Hi Phantom, Thank You very mcuh. Now I'll try this.
Thanks!
Rat.
Phantom wrote:
crrindia,

Why do you need two steps for this. You can do everything in just one step. See below

Code:

//STEP001  EXEC PGM=IDCAMS                                           
//SYSPRINT DD   SYSOUT=*                                             
//SYSIN    DD *                                                       
 LISTC ENT(INPUT.VSAM)                                     
 IF LASTCC = 0 THEN DO                                               
   DEFINE CLUSTER (NAME(OUTPUT.VSAM) MODEL(INPUT.VSAM))
   VERIFY DATASET(INPUT.VSAM)                               
   IF LASTCC = 0 THEN                                                 
    REPRO INDATASET(INPUT.VSAM) OUTDATASET(OUTPUT.VSAM)
 END                                                                 
 ELSE SET MAXCC=0                                                     
/*                                                                   
//*                                                                   


Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Store the data for fixed length COBOL Programming 1
No new posts Access to non cataloged VSAM file JCL & VSAM 18
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
Search our Forums:

Back to Top