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   
            


0 Comments

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Archives

Categories

Important links

leighweb.com – our family web site
surleslinteaux.leighweb.com – my wife’s French Sunday School blog
eglisejosue.fr – our church in France
tdr-guebwiller.eu – our house of prayer (HOP) in France
informatique.leighweb.com – My web development freelance business
My CV/Resume in English (PDF)