//*
//* DAT2330 03F Midterm JCL solution version #2
//* -Ian! D. Allen - idallen@idallen.ca
//*
//* The JES version was given as JES-2: therefore highest PRTY is 15.
//*
//***********************************************************************
//ANSWER2      JOB     MID$AAA,'JEAN CHRETIEN',CLASS=K,
//             MSGCLASS=W,MSGLEVEL=(2,0),PRTY=12      # ~300 lines standard
//***********************************************************************
//CREATAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=U                       # <100 lines laser
//OUT          DD      DSN=TAPECUST,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=2000,RECFM=FB),                 # LRECL=80
//             LABEL=(,AL),
//             UNIT=GTPE,VOL=SER=456987
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 [1000 lines of test data would go here]
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=CLGPROC
//* Note: I am guessing the print output DDname in the PROC TSTG step;
//* a wrong guess will cause a run-time error generated by the COBOL program.
//COBL.CBLINSRC   DD      *
 [COBOL source goes here]
/*
//TSTG.CUSTDATA DD      DSN=TAPECUST,DISP=(OLD,CATLG)
//TSTG.$GUESS$$ DD      SYSOUT=X                       # 5*1000 lines standard
//TSTG.DASDCUST DD      DSN=CUSTDASD,DISP=(OLD,KEEP)
//TSTG.UPDTCUST DD      DSN=CUSTNEW,DISP=(NEW,KEEP),
//             DCB=(BLKSIZE=4060,RECFM=FB),             # LRECL=70
//             UNIT=GTPE,VOL=SER=678543
//