//******************************************************* //******************************************************* //* THIS IS THE JCL FOR MVS LAB 1 FROM DAT2330 WINTER 2000. //* IT IS PROVIDED HERE AS ANOTHER EXAMPLE FOR SPRING 2001. //* //* 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: UCHOOSE1 AND UCHOOSE2 //* //* 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 CAN OPTIONALLY LEAVE OUT IDENTICAL DSORG AND LRECL. //******************************************************* //******************************************************* //BANKDATA JOB MVSLAB1,'IAN ALLEN',CLASS=H,MSGLEVEL=(2,0), // MSGCLASS=T,PRTY=0,TYPRUN=SCAN //******************************************************* //MAKETAPE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=T //OUT DD DSN=UCHOOSE1,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=UCHOOSE2,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=UCHOOSE1,DISP=(OLD,CATLG) //******************************************************* //PRNTDATA EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //OUT DD SYSOUT=D //IN DD DSN=UCHOOSE2,DISP=(OLD,CATLG) //SYSIN DD * REPRO INFILE(IN) OUTFILE(OUT) /* //