Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
/* REXX ***************************************************************/
/* UTILITY: SETVAR */
/* AUTHOR: DAVID LEIGH */
/* FUNCTION: THIS UTILITY TAKES INPUT OF A VARIABLE, APPLID AND A */
/* VALUE AND SETS THAT VARIABLE'S VALUE IN THAT PROFILE. */
/**********************************************************************/
/**********************************************************************/
/* INITIALIZATION */
/**********************************************************************/
PARSE ARG VAR APPLID VARVAL
ADDRESS ISPEXEC
"TBCREATE TEMPPASS NOWRITE REPLACE KEYS() NAMES(VAR VARVAL)"
"TBADD TEMPPASS"
"SELECT CMD(%SYNCVAR2) NEWAPPL("APPLID")"
|
