Tuesday, 25 June 2013

Print dataset using IDCAMS

//TRNG111Y JOB CLASS=C,NOTIFY=TRNG111
//S1 EXEC PGM=IDCAMS                
//SYSPRINT DD SYSOUT=*              
//SYSIN DD *                        
  PRINT INDATASET(TRNG111.X.X) CHAR

//* CHAR/HEX/DUMP   SKIP(nnn)   COUNT(mmm)  (for all datasets)




//TRNG111C JOB CLASS=C,NOTIFY=TRNG111            
//S1 EXEC PGM=IDCAMS                              
//SYSPRINT DD SYSOUT=*                            
//ABC DD DSN=TRNG111.X.X,DISP=SHR                
//XYZ DD DSN=TRNG111.Y.X,DISP=SHR                
//SYSIN DD *                                      
  REPRO INFILE(ABC) OUTFILE(XYZ) SKIP(1) COUNT(2)  

No comments:

Post a Comment