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