//*******************************************************************
//* "Bad JCL" For Homework Set #2
//*******************************************************************
//*
//* Identify any syntax errors in the following job stream.
//* 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 syntax of the command statements (e.g. REPRO) fed to
//* program IDCAMS via SYSIN.
//*
//* Start of Bad JCL:
//  TESTPROG  JOB  CLASS=B, 12756, SMITH, MSGLVL=(1, 1)
//MAKETAPE  EXEC  PGM=IDCAMS
//SYSPRINT  DD    SYSOUT=A
//IN        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
//WRITE     DD    SYSOUT=A
//SYSIN     DD    *
REPRO INFILE(READ) OUTFILE(RITE)
//READ      DD    DSN=TEST DATA,DISP=(PASS)
//COMLKTST  EXEC  PROC=COBOLCLG
//COBOL.SYSINDD  *
        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,CATALOG)
//