//* This is the solution to the DAT2330 02S 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). //* //*********************************************************************** //MIDJCL01 JOB MIDJCL01,'ELTON JOHN',CLASS=S // MSGCLASS=M,MSGLEVEL=(2,1),PRTY=14 # 100 LINES //*********************************************************************** //* NOTE: I AM GUESSING THE $GUESS DDNAME HERE. IT WAS NOT PROVIDED. //* A WRONG GUESS WILL CAUSE A RUN-TIME ERROR. //CREATAPE EXEC PGM=MAKETAPE //DATOUT DD SYSOUT=N # 2000 LINES //TESTFILE DD DSN=$CHOOSE1,DISP=(NEW,PASS), // BLKSIZE=4070,RECFM=FB, // UNIT=TSG,VOL=SER=999999 //$GUESS DD * [2500 lines of test data would go here] /* //*********************************************************************** //CLGTEST EXEC PROC=COBSUCLG //PPIL.SYSUT2 DD * [cobol source goes here] /* //PPGO.OUTDAT DD SYSOUT=U # 3000 LINES //PPGO.PAYDAT DD DSN=TESTNEW,DISP=(OLD,PASS) //PPGO.UPDTMS DD DSN=$CHOOSE2,DISP=(NEW,CATLG), // BLKSIZE=1980,RECFM=FB, // LABEL=(,AL), // UNIT=SCRATCH //PPGO.TESTMAST DD DSN=$CHOOSE1,DISP=(OLD,DELETE) //*********************************************************************** //DUMPDISK EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=D # <100 LINES //OUT DD SYSOUT=F # 5000 LINES //IN DD DSN=TESTNEW,DISP=(OLD,KEEP) //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //