//****************************************************
//*** PAYROLL - A three step JOB with IDCAMS (no PROC used)
//****************************************************
//PAYROLL      JOB     11347,SMITH,
//             CLASS=B,MSGLEVEL=(0,1),TIME=20
//*** STEP ONE ***************************************
//CRETAP       EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=A
//OUT          DD      DSN=PAYDATA,DISP=(NEW,PASS),
//             UNIT=TAPE,VOL=SER=111345
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 "JCL input stream" data (80 columns max!) would go here
/*
//*** STEP TWO ***************************************
//PRTCHKS      EXEC    PGM=PAYROLL1
//SYSPRINT     DD      SYSOUT=A
//CHKOUT       DD      SYSOUT=B
//PAYIN        DD      DSN=PAYDATA,DISP=(OLD,PASS)
//*** STEP THREE *************************************
//PRTREG       EXEC    PGM=PAYROLL2
//SYSPRINT     DD      SYSOUT=A
//REGOUT       DD      SYSOUT=C,COPIES=2,OUTLIM=5000
//PAYIN        DD      DSN=PAYDATA,DISP=(OLD,CATLG)
//