//******************************************************************* //* "Bad JCL" - a JCL file containing many syntax errors (Chapter 4) //* //* Identify the many 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 input syntax of the command statements (e.g. REPRO) fed to //* the IBM utility program IDCAMS via the SYSIN DD statement. //* //* Start of Bad JCL: //******************************************************************* // TESTPROGRAM JOB CLASS=B, 12756, SMITH, MESGLVL=(1, 1) //MAKEATAPE 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(IN) OUTFILE(OUT) //READ DD DSN=TEST DATA,DISP=(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=(4000,(250,10) //GO.TPIN DD DSN=TESTDATA,DISP=(OLD,CATALOG) //