//* 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-3: therefore highest prty is 14.
//* Remember: ANSI tapes have a maximum block size of 2K (2048 bytes).
//*
//***********************************************************************
//MIDMVS01     JOB     MIDMVS01,'BRYAN ADAMS',CLASS=X
//             MSGCLASS=E,MSGLEVEL=(2,1),PRTY=12           # 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=NEWTAPE
//OUTDAT       DD      SYSOUT=F                            # 2000 LINES
//TESTOUT      DD      DSN=$CHOOSE1,DISP=(NEW,PASS),
//             BLKSIZE=4090,RECFM=FB,
//             UNIT=TPG,VOL=SER=111111
//$GUESS       DD      *
 [2500 lines of test data would go here]
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=COBUSCLG
//CPIL.SYSUT1  DD      *
 [cobol source goes here]
/*
//CPGO.TAPOUT  DD      SYSOUT=Z                            # 3000 LINES
//CPGO.UPDTMS  DD      DSN=NEWTEST,DISP=(OLD,PASS)
//CPGO.TAPPAY  DD      DSN=$CHOOSE2,DISP=(NEW,CATLG),
//             BLKSIZE=1990,RECFM=FB,
//             LABEL=(,AL),
//             UNIT=SCRATCH
//CPGO.MASTER  DD      DSN=$CHOOSE1,DISP=(OLD,DELETE)
//***********************************************************************
//DUMPDISK     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=A                            # <100 LINES
//OUT          DD      SYSOUT=C                            # 5000 LINES
//IN           DD      DSN=NEWTEST,DISP=(OLD,KEEP)
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//