//ROUTEOPT JOB
//* -------------------------------------------------------------------*
//* *
//* COPYRIGHT = NONE *
//* *
//* SMP/E Distribution Name: EZAEC0YY *
//* *
//* This is sample JCL to assemble, link and execute the file load *
//* program for the routing, options and queue data sets used by *
//* the Network Print Facility. *
//* *
//* In this sample, the names of the routing, options and queue *
//* files are: *
//* *
//* TCPIP.ROUTING *
//* TCPIP.OPTIONS *
//* TCPIP.QUEUE *
//* *
//* All three are assumed to have been created and initialized *
//* prior to the use of this JCL. *
//* *
//* -------------------------------------------------------------------*
//* Step 1 : *
//* *
//* This step assembles the File Load Program *
//* *
//* This is the area where you will enter the routing and options *
//* information. *
//* -------------------------------------------------------------------*
//ASM EXEC PGM=IEV90,PARM='OBJECT,TERM',REGION=1024K
//SYSLIB DD DSN=TCPIP.SEZACMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSPUNCH DD DUMMY
//SYSLIN DD DSNAME=&&OBJSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(80,(500,50))
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
* --------------------------------------------------------------------*
* Must start with INITIAL parm *
* --------------------------------------------------------------------*
EZAPPFL TYPE=INITIAL, X
PRGNAME=ROUTEOPT, X
MODE=LOAD
* --------------------------------------------------------------------*
* Example of a normal route for VTAM *
* --------------------------------------------------------------------*
EZAPPFL TYPE=ROUTING, X
MAJKEY=ELU10100, X
MINKEY=VTAM, X
RETAINS=5, X
RETAINU=10, X
RETRYT=5, X
RETRYL=2, X
NDEST=1, X
OPTNAME=OPTION2, X
LUCLASS=(1,8,16,32,35,64), X
DPFNAME=PGFORMT1, X
EOFNAME=EOFPARM1, X
INAME=MVS1.TCP.RALEIGH.IBM.COM, X
PNAME=LPT1
* --------------------------------------------------------------------*
* Example of a specific broadcast route for the JES writer *
* (with 2 destinations) *
* --------------------------------------------------------------------*
EZAPPFL TYPE=ROUTING, X
MAJKEY=LOCAL, X
MINKEY=C1185, X
RETAINS=5, X
RETAINU=10, X
RETRYT=5, X
RETRYL=2, X
NDEST=2, X
OPTNAME=OPTION1, X
INAME=9.67.112.25, X
PNAME=LPT1
* --------------------------------------------------------------------*
* Example of second destination for the specific broadcast *
* route defined above *
* --------------------------------------------------------------------*
EZAPPFL TYPE=NXTDEST, X
INAME=QUIDDITY, X
PNAME=LPT2
* --------------------------------------------------------------------*
* Examples of options entries *
* --------------------------------------------------------------------*
* OPTION1 *
* --------------------------------------------------------------------*
EZAPPFL TYPE=OPTIONS, X
OPTNAME=OPTION1, X
IREXIT=INRECEX1, X
OPTIONS=TRACE
* --------------------------------------------------------------------*
* OPTION2 *
* --------------------------------------------------------------------*
EZAPPFL TYPE=OPTIONS, X
OPTNAME=OPTION2, X
OPTIONS='TRACE CLASS E'
* --------------------------------------------------------------------*
* Must end with FINAL parm *
* --------------------------------------------------------------------*
EZAPPFL TYPE=FINAL
END
/*
//* ------------------------------------------------------------------*
//* Step 2 : *
//* *
//* This step links the File Load Program *
//* ------------------------------------------------------------------*
//LKED EXEC PGM=IEWL,PARM='LIST,MAP,XREF',
// REGION=512K,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD SPACE=(CYL,(5,1)),DISP=(NEW,PASS),UNIT=SYSDA
//SYSLMOD DD DSNAME=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(1024,(50,1,1))
//SYSLIN DD DSNAME=&&OBJSET,DISP=(OLD,DELETE)
//LINK.SYSIN DD DUMMY
//* -------------------------------------------------------------------*
//* Step 3 : *
//* *
//* This step executes the File Load Program *
//* -------------------------------------------------------------------*
//LOAD EXEC PGM=*.LKED.SYSLMOD,REGION=512K,COND=(4,LT)
//EZAPPRF DD DSN=TCPIP.ROUTING,DISP=OLD
//EZAPPOF DD DSN=TCPIP.OPTIONS,DISP=OLD
//EZAPPQF DD DSN=TCPIP.QUEUE,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*