gtpa1m0kACF/SNA Network Generation

Sample JCL

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