Monday, January 24, 2011

File-aid to copy records based on condition



//PARMTMP0 EXEC  PGM=PARMIN,                                    
//             PARM='$$DD01 COPY IF=(195,GT,C''20090923'')'     
//SYSIN    DD  DSN=&&CTL00,                                     
//             DISP=(,PASS),                                    
//             UNIT=SYSDA,                                      
//             SPACE=(80,3)                                     
//*                                                             
//STEP010  EXEC PGM=FILEAID         
//SYSPRINT DD  SYSOUT=*                                              
//DD01     DD  DSN=PCCCN.CN2125DP.RECYCLE.CHGO.DTLS,                 
//             DISP=SHR                                              
//DD01O    DD  DSN=&&TEMP1,                                          
//             DISP=(,PASS),                                         
//             UNIT=SYSDA,                                           
//             SPACE=(CYL,(1,1),RLSE),                               
//             DCB=RECFM=FB                                          
//SYSIN    DD  DSN=&&CTL00,                                          
//             DISP=(OLD,PASS)                                   


This copies the data from input to output based on the condition in CTL00 parm, where temporary internal parmlib is used.
                            
                                       

No comments:

Post a Comment