Print PS file data Example


Scenario - Print the contents of a PS file to a system spool.

Input PS File - MATEPK.IEBGENER.INPUTPS

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
E0001    EMPLOYEE1           DIR                 LOC1      0000100000    
E0002    EMPLOYEE2           MGR       DEPT1     LOC1      0000080000    
E0003    EMPLOYEE3           MGR       DEPT2     LOC2      0000075000    
E0004    EMPLOYEE4           TL        DEPT1     LOC1      0000050000    
E0005    EMPLOYEE5           SSE       DEPT1     LOC1      0000045000    
E0006    EMPLOYEE6           SE        DEPT1     LOC1      0000034000    
E0007    EMPLOYEE7           SSE       DEPT2     LOC2      0000046000

Code -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKC  JOB (123),'MTH',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//*****************************************************
//* CREATE A BACKUP OF FLAT FILE 
//*****************************************************
//PRINTPS  EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=MATEPK.IEBGENER.INPUTPS,DISP=SHR
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY

Output - SYSOUT (Spool)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7
 E0001    EMPLOYEE1           DIR                 LOC1      0000100000
 E0002    EMPLOYEE2           MGR       DEPT1     LOC1      0000080000
 E0003    EMPLOYEE3           MGR       DEPT2     LOC2      0000075000
 E0004    EMPLOYEE4           TL        DEPT1     LOC1      0000050000
 E0005    EMPLOYEE5           SSE       DEPT1     LOC1      0000045000
 E0006    EMPLOYEE6           SE        DEPT1     LOC1      0000034000
 E0007    EMPLOYEE7           SSE       DEPT2     LOC2      0000046000

Explaining Example -

  • SYSUT1 DD maps the input data set (MATEPK.IEBGENER.INPUTPS).
  • SYSUT2 DD defines the output routes to the SPOOL.
  • SYSIN DD defines the control card as DUMMY to specify no control statements are coded.