Mainframe Utility: SETVAR

/* 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")"
            

 SETVAR takes input of an ISPF profile variable name, the name of the profile
 "applid" in which it does/needs to reside, and the value to which it should be
 set.  It then sets that variable to that value in that ISPF profile.

 To execute it type the following at any ISPF command/option line:

 COMMAND ===> tso setvar