//*
//* DAT2330 03F Midterm JCL solution version #1
//* -Ian! D. Allen - idallen@idallen.ca
//*
//* The JES version was given as JES-3: therefore highest PRTY is 14.
//*
//***********************************************************************
//ANSWER1      JOB     MID$111,'PAUL MARTIN',CLASS=P,
//             MSGCLASS=H,MSGLEVEL=(2,0),PRTY=10      # ~400 lines standard
//***********************************************************************
//CREATAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=F                       # <100 lines laser
//OUT          DD      DSN=PAYMTAPE,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=2000,RECFM=FB),                 # LRECL=80
//             LABEL=(,AL),
//             UNIT=GTAP,VOL=SER=345876
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 [1500 lines of test data would go here]
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=COBPROC
//* Note: I am guessing the print output DDname in the PROC GOST step;
//* a wrong guess will cause a run-time error generated by the COBOL program.
//COMP.COBINSRC   DD      *
 [COBOL source goes here]
/*
//GOST.PAYMDATA DD      DSN=PAYMTAPE,DISP=(OLD,CATLG)
//GOST.$$GUESS$ DD      SYSOUT=J                       # 4*1500 lines standard
//GOST.DISKPAYM DD      DSN=DISKPAYM,DISP=(OLD,KEEP)
//GOST.UPDTPAYM DD      DSN=NEWPAYM,DISP=(NEW,KEEP),
//             DCB=(BLKSIZE=4080,RECFM=FB),             # LRECL=60
//             UNIT=GTAP,VOL=SER=567432
//