Saturday, September 28, 2019

How to Create multiple identical copies of output file for the sam input file

//STEP01   EXEC PGM=SORT                                                
//SORTIN   DD DSN=RATNESHA.SORT.INPUT01,DISP=SHR                    
//OUTPUT1  DD DSN=RATNESHA.SORT.OUTPT01,                            
//             SPACE=(CYL,(1,1),RLSE),DCB=*.SORTIN,                     
//             DISP=(NEW,CATLG,DELETE)                                  
/OUTPUT2  DD DSN=RATNESHA.SORT.OUTPT02,                            
//             SPACE=(CYL,(1,1),RLSE),DCB=*.SORTIN,                     
//             DISP=(NEW,CATLG,DELETE)                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSIN    DD *                                                         
     SORT FIELDS=COPY 
     OUTFIL FNAMES=(OUTPUT1,OUTPUT2)                                    
/* 



OUTFIL FNAMES=(OUTPUT1,OUTPUT2) 

: copies all the records to the output files OUTPUT1, OUTPUT2 to create to identical copies.

No comments:

Post a Comment