Tuesday, February 1, 2011

Fileaid - Copy only 'n' records from input to output

//DLPXV1Z  JOB  (SULM2G20,0000,0000000000000000),PREETHA,              
 //  CLASS=0,MSGCLASS=T,NOTIFY=DLPXV1,USER=DLPXV1                       
 //*                                                                    
 //FILEAID1 EXEC  PGM=FILEAID                                           
 //SYSPRINT DD  SYSOUT=*                                                
 //SYSTOTAL DD  SYSOUT=*                                                
 //DD01     DD  DSN=PCCCN.CN0060MP.COVERAGE.BACKUP.G0032V00,            
 //             DISP=SHR                                                
 //*DD01O    DD  DSN=TCCCN.CN0056MP.CHNEWOTH.APR16,                     
 //DD01O    DD  DSN=TCCCN.CN0060MP.COVERAGE.BACKUP,                     
 //             DISP=(,CATLG,DELETE),                                   
 //             UNIT=SYSDA,                                             
 //             SPACE=(CYL,(500,350),RLSE),                             
 //             DCB=RECFM=FB                                            
 //                                                                     
 //SYSIN    DD  *                                                       
 $$DD01 COPY OUT=100000                                                 
 //*
                                                                    

No comments:

Post a Comment