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 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:
/* 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
Comments
Log in or register to comment.