//*
//* DAT2330 04W Midterm JCL solution version #2
//* -Ian! D. Allen - idallen@idallen.ca
//*
//***********************************************************************
//ANSWER2      JOB     MID$AAA,'CELINE DION',CLASS=J
//***********************************************************************
//CREATAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=T                       # 20 lines laser
//OUT          DD      DSN=TAPECUST,DISP=(OLD,PASS)
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 ...1000 lines of instream customer test data would go here...
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=COBALGO
//* Note: I am guessing the print output DDname in the PROC PTRY step;
//* a wrong guess will cause a run-time error generated by the COBOL program.
//PCBL.SRCADD   DD      DSN=LIBCOB,DISP=(OLD,KEEP)
//PCBL.SRCINCBL DD      *
 ...COBOL source goes instream here...
/*
//PTRY.CUSTDATA DD      DSN=TAPECUST,DISP=(OLD,DELETE)
//PTRY.$GUESS$$ DD      SYSOUT=W                       # 5*1000 lines standard
//PTRY.PRINTLSR DD      SYSOUT=U                       # 1000 lines laser
//PTRY.STATMSGS DD      SYSOUT=Y                       # 300 lines hold
//PTRY.DASDCUST DD      DSN=CUSTDASD,DISP=(OLD,KEEP)
//PTRY.UPDTCUST DD      DSN=CUSTNEW,DISP=(OLD,KEEP)
//