z/OS Communications Server: IP Network Print Facility
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


Adding records to the NPF VSAM files

z/OS Communications Server: IP Network Print Facility
SC27-3658-00

You can copy this sample from hlq.SEZAINST(ADDRTOPT) and use it to add (append) routing and options records after the files have been allocated and initialized. You can append records if the routing and options files were loaded with binary zero records or with actual data.

This job assembles the EZAPPFL macros and then links and executes the load program.

Execution notes
  • You will need to include your own macro parameters to define your routing and options file records.
  • You will need to modify the data set names specified by //EZAPPRF, //EZAPPOF, and //EZAPPQF as required by your installation.
//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=*

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014