//* THIS IS THE SOLUTION TO THE DAT2330 01S MIDTERM JCL QUESTION. //* -IAN! IDALLEN@NCF.CA //* //* THE COMPILE STEP "SYSIN" DDNAME IS A GUESS - NOT GIVEN IN THE JOB SPEC. //* A WRONG GUESS WILL CAUSE A RUN-TIME ERROR. //* THE JES VERSION WAS GIVEN AS JES-3: THEREFORE HIGHEST PRTY IS 14. //* ANSI TAPES HAVE A MAXIMUM BLOCK SIZE OF 2K (2048 BYTES). //* //*********************************************************************** //MVSMIDTM JOB MVSMIDTM,'MY NAME',CLASS=H, // MSGCLASS=X,MSGLEVEL=(2,0),PRTY=14 //*********************************************************************** //CREATAPE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=C # 20 lines //OUT DD DSN=$CHOOSE1,DISP=(NEW,PASS), // BLKSIZE=4080,RECFM=FB, // UNIT=TAP,VOL=SER=314159 //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //IN DD * [500 lines of test data would go here] /* //*********************************************************************** //CLGTEST EXEC PROC=CLGCOBOL //* NOTE: I AM GUESSING THE SYSIN DDNAME IN THE COMPILE CCOBOL STEP; //* IT WAS NOT PROVIDED. A WRONG GUESS WILL CAUSE A RUN-TIME ERROR. //CCOBOL.SYSIN DD * [cobol source goes here] /* //GOTST.OUTPRN DD SYSOUT=B # 1500 lines //GOTST.UPDTMS DD DSN=MASTRPAY,DISP=(OLD,PASS) //GOTST.PAYFIL DD DSN=$CHOOSE2,DISP=(NEW,CATLG), // BLKSIZE=2040,RECFM=FB, // LABEL=(,AL), // UNIT=TAP,VOL=SER=213546 //GOTST.INTEST DD DSN=$CHOOSE1,DISP=(OLD,DELETE) //*********************************************************************** //VERIMAST EXEC PGM=VERIMAST //VERIOUTP DD SYSOUT=D # 2000 lines //VERIINPT DD DSN=MASTRPAY,DISP=(OLD,KEEP) //