Mainframe Utility: SETVAR

Return to Mainframe Utilities Page

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


Documentation


 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   
            


Leave a Reply

Your email address will not be published. Required fields are marked *