//*
//* DAT2330 03W Midterm JCL solution
//*
//* The compile step "SYSIN" DDname is a guess - not given in the job spec.
//* A wrong guess will cause a run-time error, generated by the compiler.
//* The JES version was given as JES-3: therefore highest PRTY is 14.
//* ANSI tapes have a maximum block size of 2K (2048 bytes).
//* JCL continuation rules require a trailing comma followed by columns 4-16.
//* -IAN! idallen@idallen.ca
//*
//***********************************************************************
//ANSWER1      JOB     MIDTRM,'YOUR NAME',CLASS=I,
//             MSGCLASS=O,MSGLEVEL=(2,1),PRTY=12      # ~200 lines laser
//***********************************************************************
//CREATAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=T                       # <100 lines for TSO
//OUT          DD      DSN=MYTEST,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=4080,RECFM=FB),
//             UNIT=TGRP,VOL=SER=727472
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 [500 lines of test data would go here]
/*
//***********************************************************************
//CLGTEST      EXEC    PROC=CLGCOB
//* Note: I am guessing the SYSIN DDname in the compile step;
//* a wrong guess will cause a run-time error generated by the compiler.
//COBC.SYSIN   DD      *
 [COBOL source goes here]
/*
//COBG.COPYDATA DD      DSN=MYTEST,DISP=(OLD,DELETE)
//COBG.PRINTOUT DD      SYSOUT=R                       # 3*500 lines standard
//COBG.UPDATEDK DD      DSN=DSKDAT,DISP=(OLD,KEEP)
//COBG.TESTDATA DD      DSN=PAYMENT,DISP=(NEW,CATLG),
//             DCB=(BLKSIZE=2040,RECFM=FB),
//             LABEL=(,AL),
//             UNIT=TGRP,VOL=SER=274723
//