//*******************************************************************
//* "GOOD JCL" - SYNTAX ERRORS FIXED
//*
//* CHAPTER 4 IS YOUR GUIDE TO DETECTING ERRORS IN SYNTAX.
//* YOU MAY NEED TO SKIM THE FIRST SECTION OF 19.1 TO LEARN ABOUT
//* THE INPUT SYNTAX OF THE COMMAND STATEMENTS (E.G. REPRO) FED TO
//* THE IBM UTILITY PROGRAM IDCAMS VIA THE SYSIN DD STATEMENT.
//*
//*******************************************************************
//TSTPRGRM  JOB   12756,SMITH,CLASS=B,MSGLEVEL=(1,1)
//MAKETAPE  EXEC  PGM=IDCAMS
//SYSPRINT  DD    SYSOUT=A
//OUT       DD    DSN=TESTDATA,UNIT=TAPE,
//             VOL=SER=127536,DISP=(NEW,PASS)
//SYSIN     DD    *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN        DD    *
        instream data
/*
//* ============THIS BEGINS STEP TWO ===================
//PRTTAPE   EXEC  PGM=IDCAMS
//SYSPRINT  DD    SYSOUT=A
//OUT       DD    SYSOUT=A
//SYSIN     DD    *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN        DD    DSN=TESTDATA,DISP=(OLD,PASS)
//* ============THIS BEGINS STEP THREE ===================
//COMLKTST  EXEC  PROC=COBOLCLG
//COBOL.SYSIN DD  *
        instream source program
/*
//GO.PRTOUT DD    SYSOUT=B,COPIES=2,OUTLIM=2000
//GO.DSKOUT DD    DSN=TESTOUT,UNIT=DISK,VOL=SER=USERPK01,
//             DISP=(NEW,KEEP),SPACE=(TRK,(10,1))
//GO.TPIN   DD    DSN=TESTDATA,DISP=(OLD,CATLG)
//