//LAB2ANS JOB MVSLAB2,'IAN ALLEN',CLASS=F,MSGLEVEL=(1,0),MSGCLASS=L,
//             PRTY=7
//*************************************************************
//COPY1 EXEC PGM=IDCAMS
//* There has been some confusion about the correct syntax for this
//* DEST= parameter.  This is the final answer: put it in parentheses
//* and use a period to separate the node from the user name.  -IAN!
//SYSPRINT DD SYSOUT=A,DEST=(MVS1.SMITHH)
//OUT DD DSN=TEST1,DISP=(NEW,PASS),UNIT=SYSDA,
//             BLKSIZE=4030,RECFM=FB,SPACE=(4030,(231,10))
//IN DD DSN=TESTSET1,DISP=(OLD,DELETE),UNIT=SYSSQ,
//             VOL=SER=200200,LABEL=(,AL)
//SYSIN DD *
  REPRO INFILE(IN) OUTFILE(OUT)
/*
//*************************************************************
//COPY2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A,HOLD=YES
//OUT DD DSN=TEST2,DISP=(NEW,PASS),UNIT=SYSDA,
//             BLKSIZE=4050,RECFM=FB,SPACE=(4050,(134,10))
//IN DD DSN=TESTSET2,DISP=(OLD,CATLG),UNIT=SYSSQ,VOL=SER=200300
//SYSIN DD *
  REPRO INFILE(IN) OUTFILE(OUT)
/*
//*************************************************************
//CLG EXEC PROC=COBCLG
//* I think the compiler listing will be longer than 500 lines!
//COMP.SYSPRINT SYSOUT=B,HOLD=YES
//COMP.SYSIN DD *
  MUCH COBOL
/*
//LKEDIT.SYSLIB DD DSN=MYTEAM.COBOL.TESTLIB,DISP=(SHR,KEEP)
//RUN.DATAIN1 DD DSN=TEST1,DISP=(OLD,DELETE)
//RUN.DATAIN2 DD DSN=TEST2,DISP=(OLD,DELETE)
//RUN.DATAOUT DD DSN=TESTOUT,DISP=(NEW,PASS),UNIT=SYSDA,
//             BLKSIZE=3920,RECFM=FB,SPACE=(3920,(375,10))
//RUN.BACKUP2 DD DSN=DATABACK,DISP=(NEW,KEEP),UNIT=SYSSQ,
//             VOL=SER=200400,LABEL=(,AL),BLKSIZE=1960,RECFM=FB
//* I'm guessing this next DDNAME.  Since I have the COBOL source, I
//* could just read the source to find it.  If I don't understand COBOL,
//* I would have to actually run this job to have the program generate
//* an error message about the actual DDNAME needed. -IAN!
//RUN.LABELXXX DD SYSOUT=L,FLASH=INVENTRY,BURST=YES
//*************************************************************
//DUMP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//* If the queue counts the two copies as *one* output, I would need
//* to specify class "D".  I'm hoping the two copies are separate.
//OUT DD SYSOUT=(C,,GREEN1),COPIES=2
//IN DD DSN=TESTOUT,DISP=(OLD,CATLG)
//SYSIN DD *
  REPRO INFILE(IN) OUTFILE(OUT)
/*
//