//******************************************************* //******************************************************* //* THIS IS THE JCL FOR MVS LAB 2 FROM DAT2330 WINTER 2000. //* IT IS PROVIDED HERE AS ANOTHER EXAMPLE FOR SPRING 2001. //* //* THERE IS ONE DDNAME GUESS. A WRONG GUESS MEANS A RUN-TIME ERROR. //* SINCE I HAVE THE COBOL SOURCE, I COULD READ THE SOURCE TO FIND THE DDNAME. //* IF I DON'T UNDERSTAND COBOL, I WOULD HAVE TO ACTUALLY RUN THIS JOB //* TO HAVE THE PROGRAM GENERATE AN ERROR MESSAGE ABOUT THE DDNAME NEEDED. //******************************************************* //******************************************************* //* REAL-WORLD NOTE: WE SHOULD SCAN THIS JCL BEFORE WE SUBMIT TO CLASS=F, //* SINCE THE JOB MAY BE HELD UP FOR A LONG TIME BEFORE IT RUNS IN THAT QUEUE. //* //COMBINER JOB MVSLAB2,'IAN ALLEN',CLASS=F, // MSGLEVEL=(1,0),MSGCLASS=L,PRTY=7 //************************************************************* //TAP2DSK1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A,DEST=MVS1.LESLIE # 20 lines //OUT DD DSN=TEST1,DISP=(NEW,PASS), // BLKSIZE=4030,RECFM=FB, // UNIT=SYSDA, // SPACE=(4030,(231,10)) //IN DD DSN=TESTSET1,DISP=(OLD,DELETE), // LABEL=(,AL), // UNIT=SYSSQ,VOL=SER=200200 //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //************************************************************* //TAP2DSK2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A,HOLD=YES # 20 lines //OUT DD DSN=TEST2,DISP=(NEW,PASS), // BLKSIZE=4050,RECFM=FB, // UNIT=SYSDA, // SPACE=(4050,(134,10)) //IN DD DSN=TESTSET2,DISP=(OLD,CATLG), // UNIT=SYSSQ,VOL=SER=200300 //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //************************************************************* //COMBINE2 EXEC PROC=COBCLG //* NOTE: I THINK THE COMPILER LISTING WILL BE LONGER THAN 500 LINES! //COMP.SYSPRINT DD SYSOUT=B,HOLD=YES # >500 lines //COMP.SYSIN DD * [...much COBOL source goes here...] /* //LKEDIT.SYSLIB DD DSN=MYTEAM.COBOL.TESTLIB,DISP=(SHR,KEEP) //* I'M GUESSING THIS NEXT DDNAME - NOT GIVEN IN JOB SPECIFICATION. //RUN.LABELXXX DD SYSOUT=L,FLASH=INVENTRY # 2560 lines //RUN.DATAOUT DD DSN=TESTOUT,DISP=(NEW,PASS), // UNIT=SYSDA, // BLKSIZE=3920,RECFM=FB, // SPACE=(3920,(375,38)) //RUN.BACKUP2 DD DSN=DATABACK,DISP=(NEW,KEEP), // BLKSIZE=1960,RECFM=FB, // LABEL=(,AL), // UNIT=SYSSQ,VOL=SER=200400 //RUN.DATAIN1 DD DSN=TEST1,DISP=(OLD,DELETE) //RUN.DATAIN2 DD DSN=TEST2,DISP=(OLD,DELETE) //************************************************************* //DUMPDSK EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A # 20 lines //OUT DD SYSOUT=(D,,GREEN1), # 2*6000 lines // BURST=YES,COPIES=2 //IN DD DSN=TESTOUT,DISP=(OLD,CATLG) //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //