//******************************************************************* //* "Good JCL" - the corrected version of "Bad JCL" //******************************************************************* //TESTPROG 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 * some kind of instream test data would go here /* //* ============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 * an instream COBOL source program would go here /* //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,CATLG) //