Saving data in a variable pool
Variable pools are useful way to save this 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 example shows saving variables in a variable pool
REXX EXEC example:
/******************************************************************/
/* 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:
/*********************************************************************/
/* 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