//* THIS IS THE SOLUTION TO THE DAT2330 01F MIDTERM JCL QUESTION. //* -IAN! IDALLEN@NCF.CA //* //* THERE IS ONE DDNAME GUESS. A WRONG GUESS PRODUCES A RUN-TIME ERROR. //* THE JES VERSION WAS GIVEN AS JES-2: THEREFORE HIGHEST PRTY IS 15. //* REMEMBER: ANSI TAPES HAVE A MAXIMUM BLOCK SIZE OF 2K (2048 BYTES). //* //*********************************************************************** //MVSMIDTM JOB MVSMID1,'CELINE DION',CLASS=S, // MSGCLASS=A,MSGLEVEL=(0,1),PRTY=15 # 200 LINES //*********************************************************************** //* NOTE: I AM GUESSING THE $GUESS1 DDNAME HERE. IT WAS NOT PROVIDED. //* A WRONG GUESS WILL CAUSE A RUN-TIME ERROR. //MAKEDATA EXEC PGM=MAKEDATA //$GUESS1 DD SYSOUT=D # 2000 LINES //OUTDAT DD DSN=NEWTEST,DISP=(NEW,PASS), // BLKSIZE=2040,RECFM=FB, // LABEL=(,AL), // UNIT=SCRATCH //MKIN DD * [1000 lines of test data would go here] /* //*********************************************************************** //CLGTEST EXEC PROC=NEWCLG //COMPILE.SYSIN DD * [cobol source goes here] /* //COBOPRG.TAPPRT DD SYSOUT=C # 1000 LINES //COBOPRG.MASTER DD DSN=PAYFILE,DISP=(OLD,KEEP) //COBOPRG.UPDTMS DD DSN=$CHOOSE1,DISP=(NEW,PASS), // BLKSIZE=4050,RECFM=FB, // UNIT=TPGROUP,VOL=SER=314159 //COBOPRG.TAPERD DD DSN=NEWTEST,DISP=(OLD,CATLG) //*********************************************************************** //CREATAPE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=E # 100 LINES //OUT DD SYSOUT=B # 3000 LINES //IN DD DSN=$CHOOSE1,DISP=(OLD,CATLG) //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //