Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
/**********************************************************************
/* UTILITY: COPYVAR *
/* AUTHOR: DAVID LEIGH *
/* FUNCTION: THIS CLIST COPIES THE VALUE OF ONE ISPF VARIABLE INTO *
/* ANOTHER AND THEN STORES IT INTO THE POOL DESIRED. *
/**********************************************************************
PROC 3 ISPF_FROM_VARIABLE ISPF_TO_VARIABLE ISPF_VARIABLE_POOL
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS
ISPEXEC VGET &ISPF_FROM_VARIABLE
SET &&ISPF_TO_VARIABLE = &STR(&SYSNSUB(3,&&&ISPF_FROM_VARIABLE))
ISPEXEC VPUT &ISPF_TO_VARIABLE &ISPF_VARIABLE_POOL
EXIT
|
