Using the system name to select a scratch pool

You can specify multiple scratch pool selection tables in your EDG_EXIT100 installation exit routine. This allows you to select scratch pools based on the name of the running system.

The sample installation exit uses the SYSNAME value from the IEASYSxx parmlib member to determine the system name. This is the CVTSNAME field.

Figure 1 is an example showing how you can add system names to the existing system name table in the sample EDGUX100 installation module. You can add system names in any order. If you want to remove a system from the list, delete the entry or set the system name to blanks.

Figure 1. Sample EDGUX100 exit module system name table

SYSTAB   DS    0F                  start of SYSTEM table
SYSCOUNT DC    A(SYSTABL/SYSTENTL) count of entries
SYSENT1  DS    0F                  DO NOT CHANGE THIS LINE
         DC    CL8'        ',A(PTBLSYS1)    Add the names of the
         DC    CL8'        ',A(PTBLSYS2)    systems you want to
         DC    CL8'W98MVS1 ',A(PTBLSYS3)    use into the
         DC    CL8'        ',A(PTBLSYS4)    prepared entries on
         DC    CL8'        ',A(PTBLSYS5)    the left. There is no
         DC    CL8'SYSA    ',A(PTBLSYS6)    need to change table
         DC    CL8'        ',A(PTBLSYS7)    names on the right.
         DC    CL8'        ',A(PTBLSYS8)
*    To add more system names to the table, just repeat the last
*    table entry, specify a new system name, and the name of
*    new pool table. For example:
*        DC    CL8'ANOTHER ',A(PTBLSYS9)
*    Then build the new table by copying how one of the existing
*    PTBLSYSx tables are defined.
SYSEND   DS    0F                  end of table
SYSTABL  EQU   SYSEND-SYSENT1      length of table

You can define a pool selection table for each system name that contains data set names, pool names, and automatic cartridge loader controls as shown in Figure 1. If there is no match found in the system table for the current system, DFSMSrmm uses the default selection pool POOLTAB. Figure 2 shows a selection table for a specific system.

Figure 2. Pool selection table for system 3

*******************************************************************
* POOL TABLE For 3rd System
*******************************************************************
PTBLSYS3 DS    0F                  start of pool table
*                  jobname        data set name
         DC    CL8'WOODMW* ',CL44'WOODMW.SYS3.*'
         DC    CL6'S03*'           pool name
         DC    AL1(PL100_SET_ACLOFF) bypass acl load flag
*
         DC    CL8'POOLEND'        end of pool table marker