//*******************************************************
//* THIS IS THE 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)
/*
//