Saving data in a variable pool

These procedures can depend on several factors that vary over time. An example of these factors might be the name of the current shift operator or the name of the on-call IMS support person.

Variable pools provide a useful means of saving this type of information for use by several automation procedures.

Potential use

It is useful to localize site-dependent automation information (such as names and phone numbers of key personnel) in variables for all automation procedures to use.

A simple EXEC can be written to set these variables whenever the variable pool is reset.

Describing the example

This example shows an EXEC that is used to set site-dependent automation information in the PROFILE variable pool.

Information about key personnel is hardcoded in the EXEC (for example: name, user ID, and telephone numbers). The EXEC creates LOCAL variables for this information with the variables

• NAME

• USERID

• WORKPHON

• HOMEPHON

• PAGER

The EXEC then places the variables into the PROFILE pool under one variable name, IMSPROG.

Example

The following sections show examples of saving variables in a variable pool

REXX EXEC example:

/* REXX */
/******************************************************************/
/* DOC GROUP(MVS) CODE(J2) */
/* DOC DISP(YES) AUTHOR(B&B) */
/* DOC DESC(SAVING VARIABLES TO PROFILE POOL) */
/******************************************************************/
NAME = 'JOHN_SMITH'
USERID = 'JJH1'
WORKPHON = '800/323-2375'
HOMEPHON = '312/666-1234'
PAGER = '312/999-9999'
'IMFEXEC VDCL IMSPROG LIST(NAME USERID WORKPHON HOMEPHON PAGER)'
'IMFEXEC VPUT IMSPROG PROFILE'
ENDEXIT: END

CLIST example:

PROC 2 EXECNAME TITLE
/*********************************************************************/
/* DOC GROUP(MVS) CODE(J2)                                           */
/* DOC DISP(YES) AUTHOR(B&B)                                         */
/* DOC DESC(SAVING VARIABLES TO PROFILE POOL)                        */
/*********************************************************************/
SET NAME = &STR(JOHN_SMITH)
SET USERID = &STR(JJH1)
SET WORKPHON = &STR(800/323-2375)
SET HOMEPHON = &STR(312/666-1234)
SET PAGER = &STR(312/999-9999)
IMFEXEC VDCL IMSPROG LIST(NAME USERID WORKPHON HOMEPHON PAGER)
IMFEXEC VPUT IMSPROG PROFILE