//*
//* DAT2330 04W Midterm JCL solution version #1
//* -Ian! D. Allen - idallen@idallen.ca
//*
//***********************************************************************
//ANSWER1      JOB     MID$111,'BILLY TALENT',CLASS=O
//***********************************************************************
//CREATAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=E                       # 20 lines laser
//OUT          DD      DSN=PAYMTAPE,DISP=(OLD,PASS)
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 ...1500 lines of instream payment test data would go here...
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=ALGOCOB
//* Note: I am guessing the print output DDname in the PROC PTST step;
//* a wrong guess will cause a run-time error generated by the COBOL program.
//PRCO.ANDSRC   DD      DSN=COBLIB,DISP=(OLD,KEEP)
//PRCO.COBINSRC DD      *
 ...COBOL source goes instream here...
/*
//PTST.PAYMDATA DD      DSN=PAYMTAPE,DISP=(OLD,DELETE)
//PTST.$$GUESS$ DD      SYSOUT=H                       # 4*1500 lines standard
//PTST.LASERPRT DD      SYSOUT=F                       # 1500 lines laser
//PTST.MSGSTATS DD      SYSOUT=K                       # 200 lines hold
//PTST.DISKPAYM DD      DSN=DISKPAYM,DISP=(OLD,KEEP)
//PTST.UPDTPAYM DD      DSN=NEWPAYM,DISP=(OLD,KEEP)
//