gtpa1m0k | ACF/SNA Network Generation |
The following JCL is provided as an example for link-editing and running the OSTG program. Obviously, you must change this example to reflect your environment, standards, and naming conventions. Figure 15 provides an example of the JCL needed to create the offline OSTG program.
Figure 15. Sample JCL to Create the Offline OSTG Program
//OSTGLKGO JOB //************************************************ //* OSTG LINKAGE * //************************************************ //OSTGLK EXEC PGM=IEWL,REGION=512K, // PARM='XREF,DCBS,LIST,LET,SIZE=(300K,30K)' //OBJLIB DD DSN=TPF.BASE.RLSE.OB,DISP=SHR //SYSLMOD DD DSN=TPF.BASE.RLSE.LK,DISP=OLD //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(9,2)) //SYSPRINT DD SYSOUT=* //SYSLIN DD * INCLUDE OBJLIB(OSTGRT40) The Root Phase INCLUDE OBJLIB(OSTGIP40) The Input Phase INCLUDE OBJLIB(OSTGUP40) The Update Phase INCLUDE OBJLIB(OSTGOT40) The Output Phase INCLUDE OBJLIB(OSTGP240) The Error Phase INCLUDE OBJLIB(JULTOACT) Convert date subroutine NAME OSTG40(R) /*Figure 16 provides an example of the JCL needed to generate the SNA pilot tape. To generate a general data set (GDS) instead of a tape, you only need to change the STGPILOT statement. For example:
//STGPILOT DD DSN=OSTGGDS,DISP=(NEW,KEEP),UNIT=SYSDA, // SPACE=(TRK,(10,1)),VOL=SER=PILOTB
The EXEC PARM field shown specifies all of the valid parameters. Each parameter is shown inside quotes to demonstrate one way of specifying them on a continuation card. If a continuation card is not needed, the parameters and their values do not need to be enclosed separately in quotes.
This example assumes that the ANT deck is read from the SIP-created PDS data set, and that you already created the RSC and ALS decks as sequential data sets.
Figure 16. Sample JCL to Generate the SNA Pilot Tape
//************************************************ //* OSTG EXECUTION * //************************************************ //OSTGRUN EXEC PGM=OSTG40, //* See note 1 regarding the PARM input. // PARM=('CPUID=B','PILOTID=S','GENTYPE=GEN','SDPSID=(B,C,D)', // 'SUBAREA=02','DESC=BASE OSTG RUN') //STEPLIB DD DSN=TPF.BASE.RLSE.LK,DISP=SHR //SYSUDUMP DD SYSOUT=* //STGINPT DD DSN=TPF40.ANTS.BSS(ANTB),DISP=SHR // DD DSN=TPF40.RSCS.BSS,DISP=SHR // DD DSN=TPF40.ALSS.BSS,DISP=SHR //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //STGPRNT DD SYSOUT=* //STGPRN2 DD SYSOUT=* //SORTIN DD UNIT=SYSDA,SPACE=(TRK,(120),,CONTIG),DSN=&&WKFO, // DCB=(RECFM=FB,BLKSIZE=5200) LRECL=52 //SORTOUT DD UNIT=SYSDA,SPACE=(TRK,(120),,CONTIG),DSN=&&WKFI, // DCB=(RECFM=FB,BLKSIZE=5200) LRECL=52 //SORTLIB DD DISP=SHR,DSN=SYS1.SORTLIB //SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(120),,CONTIG) //SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(120),,CONTIG) //SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(120),,CONTIG) //STGPILOT DD UNIT=(TAPE,,DEFER),DISP=(NEW,PASS),LABEL=(,NL), // DSN=OSTGTAPE,VOL=SER=PILOTB