Tuesday, 17 April 2012

Print


//JOB1 JOB                          
//STEP1 EXEC PGM=IDCAMS            
//SYSPRINT DD SYSOUT=*              
//DD1 DD DSN=KC03H0E.Y.X(M1),DISP=SHR
//SYSIN   DD *                      
   PRINT           -                
   INFILE(DD1)  CHAR                
/*                                  
//                    

Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)