1 //SERVER2 JOB (ITSO),'DUGGAN',REGION=300M, JOB04586
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
IEFC653I SUBSTITUTION JCL - (ITSO),'DUGGAN',REGION=300M,CLASS=A,MSGCLASS=H,NOTIFY=KC02250
2 //PROCLIB JCLLIB ORDER=KC02250.BOOKDB.JCL
//********************************************************
//* Build the VSAM KSDS file that is used as the database.
//********************************************************
//* STEP ONE: Create the VSAM cluster.
//********************************************************
3 //VSAMSTEP EXEC PGM=IDCAMS
4 //SYSPRINT DD SYSOUT=*
5 //SYSIN DD *
//*
//********************************************************
//* STEP FOUR: Compile, link and run a COBOL program
//* that reads from the sorted data into the VSAM cluster,
//* generating a report of the inventory in the process.
//*
//* See JCL notes for the definition of IGYWCLR proc
//********************************************************
6 //COBLSTEP EXEC IGYWCLG,REGION=250M,
// PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB'
7 XXIGYWCLG PROC LNGPRFX='IGY340',SYSLBLK=3200, 00001104
XX LIBPRFX='CEE',GOPGM=GO 00002005
XX************************************************************ 00018006
XX* 00019000
XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM 00020000
XX* 00021000
XX* CALLER MUST SUPPLY //COBOL.SYSIN DD ... 00028000
XX* 00029000
XX* CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements 00030000
XX* 00031000
8 XXCOBOL EXEC PGM=IGYCRCTL,REGION=2048K 00032000
9 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP, 00033000
XX DISP=SHR 00034007
IEFC653I SUBSTITUTION JCL - DSNAME=IGY340.SIGYCOMP,DISP=SHR
10 XXSYSPRINT DD SYSOUT=* 00035007
11 XXSYSLIN DD DSN=&&LOADSET,UNIT=SYSALLDA, 00036007
XX DISP=(MOD,PASS),SPACE=(TRK,(3,3)), 00037000
XX DCB=(BLKSIZE=&SYSLBLK) 00038000
IEFC653I SUBSTITUTION JCL - DSN=&&LOADSET,UNIT=SYSALLDA,DISP=(MOD,PASS),SPACE=(TRK,(3,3)),DCB=(BLKSIZE=3200)
12 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00039000
13 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00040000
14 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00041000
15 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00042000
16 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00043000
17 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00044000
18 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00045000
19 //COBOL.SYSIN DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBA)
20 // DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(VSAMREC)
21 // DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBB)
22 XXLKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K 00046000
23 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED, 00047000
XX DISP=SHR 00048000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
24 XXSYSPRINT DD SYSOUT=* 00049000
25 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00050000
26 XX DD DDNAME=SYSIN 00051000
27 XXSYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(TRK,(10,10,1)), 00052000
XX UNIT=SYSALLDA,DISP=(MOD,PASS) 00053000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(TRK,(10,10,1)),UNIT=SYSALLDA,DISP=(MOD,PASS)
28 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10)) 00054000
29 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00055000
XX REGION=2048K,TIME=(,20) 00056008
30 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN, 00057000
XX DISP=SHR 00058000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
31 //SYSPRINT DD SYSOUT=*
X/SYSPRINT DD SYSOUT=* 00059000
32 XXCEEDUMP DD SYSOUT=* 00060000
33 XXSYSUDUMP DD SYSOUT=* 00061000
34 //GO.BOOKS DD DSN=KC02250.BOOKDB.DATA2,DISP=SHR
35 //GO.BOOKDB DD DSN=KC02250.BOOKDB.DATABASE,DISP=SHR
//*
36 //SYSIN DD * GENERATED STATEMENT