//LAB1ANS JOB MVSLAB1,'IAN ALLEN',CLASS=H,MSGLEVEL=(2,0),
//             MSGCLASS=T,PRTY=0,TYPRUN=SCAN
//*******************************************************
//COPY EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=T
//OUT      DD DSN=CHOOSE1,DISP=(NEW,PASS),
//             UNIT=SYSSQ,VOL=SER=454655,LABEL=(,AL)
//             BLKSIZE=2000,RECFM=FB
//SYSIN    DD *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//IN       DD *
 ... MUCH CHARGE DATA HERE LRECL=80 ...
/*
//*******************************************************
//UPD EXEC PROC=COBCLG2
//COMPIL2.SYSIN  DD *
 ... MUCH COBOL SOURCE GOES HERE ...
/*
//TEST2.STMOUTP  DD SYSOUT=P
//TEST2.CHRGOUTP DD DSN=CHOOSE2,DISP=(NEW,PASS),
//             UNIT=SYSSQ,VOL=SER=135245,
//             BLKSIZE=4080,RECFM=FB
//TEST2.UPDCUST  DD DSN=CUSTMSTR,DISP=(OLD,KEEP)
//TEST2.CUSTINP  DD DSN=CHOOSE1,DISP=(OLD,CATLG)
//*******************************************************
//DUMP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=T
//OUT      DD SYSOUT=D
//IN       DD DSN=CHOOSE2,DISP=(OLD,CATLG)
//SYSIN    DD *
 REPRO INFILE(IN) OUTFILE(OUT)
/*
//