//ADDRTOPT JOB
//* -------------------------------------------------------------------*
//* *
//* COPYRIGHT = NONE *
//* *
//* SMP/E Distribution Name: EZAEC0YR *
//* *
//* This is sample JCL to add routing and options records to *
//* existing Network Print Facility VSAM data sets. *
//* *
//* 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=ADDRTOPT, X
MODE=UPDATE
* --------------------------------------------------------------------*
* Example of a normal route for VTAM *
* --------------------------------------------------------------------*
EZAPPFL TYPE=ROUTING, X
MAJKEY=DLU10100, X
MINKEY=VTAM, X
RETAINS=10, X
RETAINU=20, X
RETRYT=5, X
RETRYL=2, X
NDEST=1, X
OPTNAME=LUOPTN3, X
LUCLASS=(1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,64), X
INAME=9.67.112.25, X
PNAME=LPT1
* --------------------------------------------------------------------*
* Example of a normal route for the JES writer *
* --------------------------------------------------------------------*
EZAPPFL TYPE=ROUTING, X
MAJKEY=LOCAL, X
MINKEY=A1185, X
RETAINS=5, X
RETAINU=10, X
RETRYT=5, X
RETRYL=2, X
NDEST=1, X
OPTNAME=OPTION3, X
INAME=MVS1.TCP.RALEIGH.IBM.COM, X
PNAME=LPT1
* --------------------------------------------------------------------*
* Example of an options entry *
* --------------------------------------------------------------------*
* LUOPTN3 *
* --------------------------------------------------------------------*
EZAPPFL TYPE=OPTIONS, X
OPTNAME=LUOPTN3, X
OPTIONS=TRACE
* --------------------------------------------------------------------*
* OPTION3 *
* --------------------------------------------------------------------*
EZAPPFL TYPE=OPTIONS, X
OPTNAME=OPTION3, 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=SHR
//EZAPPOF DD DSN=TCPIP.OPTIONS,DISP=SHR
//EZAPPQF DD DSN=TCPIP.QUEUE,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*