You can copy this sample from hlq.SEZAINST(DELALLOC) and use it to jointly allocate the routing, options, and queue files by deleting and defining the VSAM data sets.

Execution note

You will need to modify the data set names as required by your installation.

//DELALLOC JOB
//* -------------------------------------------------------------------*
//*
//*  COPYRIGHT = NONE
//*
//*  SMP/E Distribution Name: EZAEC042                                 *
//*
//*  This is sample JCL to delete and allocate the VSAM data sets
//*  needed for the Network Print Facility.
//*
//*    To delete the VSAM data sets required by the Network Print
//*    Facility use step 1 of this JCL.
//*
//*    To allocate the VSAM data sets required by the Network Print
//*    Facility use step 2 of this JCL.
//*
//*    WARNING:
//*
//*       *  Do not use this JCL to delete a queue file containing
//*          records for one or more temporary print data sets.
//*          Without that queue file, there will be no way for the
//*          ISPF panel interface to list those temporary data sets
//*          or for the queue manager to manage their further
//*          processing.
//*
//* -------------------------------------------------------------------*
//*  Step 1 :
//*
//*    The VSAM data sets deleted in this step are :
//*
//*         "Routing file" data sets
//*                              TCPIP.ROUTING
//*                              TCPIP.ROUTING.DATA
//*                              TCPIP.ROUTING.INDEX
//*         "Options file" data sets
//*                              TCPIP.OPTIONS
//*                              TCPIP.OPTIONS.DATA
//*                              TCPIP.OPTIONS.INDEX
//*         "Queue file" data sets
//*                              TCPIP.QUEUE
//*                              TCPIP.QUEUE.DATA
//*                              TCPIP.QUEUE.INDEX
//*
//* -------------------------------------------------------------------*
//DEL      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
       DELETE -
            TCPIP.ROUTING -
            PURGE -
            ERASE
       DELETE -
            TCPIP.OPTIONS -
            PURGE -
            ERASE
       DELETE -
            TCPIP.QUEUE -
            PURGE -
            ERASE
//* -------------------------------------------------------------------*
//*  Step 2 :
//*
//*    The VSAM data sets allocated in this step are :
//*
//*         "Routing file" data sets
//*                             TCPIP.ROUTING
//*                             TCPIP.ROUTING.DATA
//*                             TCPIP.ROUTING.INDEX
//*         "Options file" data sets
//*                             TCPIP.OPTIONS
//*                             TCPIP.OPTIONS.DATA
//*                             TCPIP.OPTIONS.INDEX
//*
//*         "Queue file" data sets
//*                             TCPIP.QUEUE
//*                             TCPIP.QUEUE.DATA
//*                             TCPIP.QUEUE.INDEX
//*
//* -------------------------------------------------------------------*
//CREATE   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   DEFINE CLUSTER (NAME(TCPIP.ROUTING) VOLUMES(WRKLB2) -
        CYLINDERS(1 1)   -
        IMBED -
        RECORDSIZE(150 636) FREESPACE(0 15) -
        INDEXED SHAREOPTIONS(4 3) -
        UNIQUE NOWRITECHECK) -
        DATA ( -
          NAME(TCPIP.ROUTING.DATA) -
          KEYS(20 0) ) -
        INDEX ( -
          NAME(TCPIP.ROUTING.INDEX) )
   DEFINE CLUSTER (NAME(TCPIP.OPTIONS) VOLUMES(WRKLB2) -
        CYLINDERS(1 1)   -
        IMBED -
        RECORDSIZE(100 297) FREESPACE(0 15) -
        INDEXED SHAREOPTIONS(4 3) -
        UNIQUE NOWRITECHECK) -
        DATA ( -
          NAME(TCPIP.OPTIONS.DATA) -
          KEYS(16 0) ) -
        INDEX ( -
          NAME(TCPIP.OPTIONS.INDEX) )
   DEFINE CLUSTER (NAME(TCPIP.QUEUE) VOLUMES(WRKLB2) -
        CYLINDERS(1 1)   -
        IMBED -
        RECORDSIZE(870 1000) FREESPACE(0 15) -
        INDEXED SHAREOPTIONS(4 3) -
        UNIQUE NOWRITECHECK) -
        DATA ( -
          NAME(TCPIP.QUEUE.DATA) -
          KEYS(62 0) ) -
        INDEX ( -
          NAME(TCPIP.QUEUE.INDEX) )