//*******************************************************
//* JCL for MVS LAB 1 from DAT2330 Winter 2000
//*******************************************************
//* It is provided here as another example of JCL coding.
//*
//* No guesses were needed in this example.  (All names were provided.)
//* You had to choose an appropriate JOB name and three step names.
//* You had to choose (make up) two dataset names: $CHOOSE1 and $CHOOSE2
//*
//* ANSI tapes have a maximum block size of 2K (2048 bytes).
//* Label info is passed between steps; you only need to say it once.
//* The output DCB for IDCAMS only needs to specify what differs from
//* the input; so, you should leave out identical DSORG and LRECL.
//*
//*******************************************************
//BANKDATA     JOB     MVSLAB1,'BRITNEY SPEARS',CLASS=H,
//             MSGLEVEL=(2,0),MSGCLASS=T,PRTY=0,TYPRUN=SCAN
//*******************************************************
//MAKETAPE     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=T
//OUT          DD      DSN=$CHOOSE1,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=2000,RECFM=FB),
//             UNIT=SYSSQ,VOL=SER=454655,LABEL=(,AL)
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN           DD      *
 ... much instream charge data here LRECL=80 ...
/*
//*******************************************************
//UPDTMAST     EXEC    PROC=COBCLG2
//COMPIL.SYSIN DD     *
 ... much instream COBOL source goes here ...
/*
//TST.STMOUTP  DD      SYSOUT=P
//TST.CHRGOUTP DD      DSN=$CHOOSE2,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=4050,RECFM=FB),
//             UNIT=SYSSQ,VOL=SER=135245
//TST.UPDCUST  DD      DSN=CUSTMSTR,DISP=(OLD,KEEP)
//TST.CUSTINP  DD      DSN=$CHOOSE1,DISP=(OLD,CATLG)
//*******************************************************
//PRNTDATA     EXEC    PGM=IDCAMS
//SYSPRINT     DD      SYSOUT=A
//OUT          DD      SYSOUT=D
//IN           DD      DSN=$CHOOSE2,DISP=(OLD,CATLG)
//SYSIN        DD      *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//