> Read the much improved doc in the z/OS V2.4 TSO/E REXX Reference for > MVSVAR(SYMDEF,xxx).
That's what I was quoting. > I think everything will be clearer. Clear, but it matches neither my expectations nor the output that Bruce Hewson described. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Dale R. Smith [[email protected]] Sent: Friday, March 27, 2020 12:12 PM To: [email protected] Subject: Re: REXX MVSVAR SYMDEF behavoiur Read the much improved doc in the z/OS V2.4 TSO/E REXX Reference for MVSVAR(SYMDEF,xxx). I think everything will be clearer. I wrote a REXX Program a few years ago to extract and display the various Static and Dynamic System Symbols that are defined in z/OS. I also included our inhouse defined symbols. We don't currently have any Symbol names that are longer than eight characters, (or I would have to alter my program). Here is the code. Please alter the inhouse variable to include your internal symbols or set it to '' (null) if you don't have any before you run it. /*--------------------------- SYMDEF REXX ----------------------------*/ /* Extract MVS Static and Dynamic Symbols and Display their Values. */ /*--------------------------------------------------------------------*/ SYMDEF: Parse Source . ctype ename etype emode . system subsys . static = 'SYSALVL SYSCLONE SYSNAME SYSOSLVL SYSPLEX SYSR1' inhouse = 'SYSR2 SYSCLON1 PLEX HRDWNAME LPARNAME SMFID OSLEVEL', 'CSID IMSP IMST TSID VMUSERID' dynamic = 'DS JOBNAME SEQ' utctime = 'YYMMDD HHMMSS YR4 YR2 MON DAY HR MIN SEC ', 'WDAY JDAY' lcltime = 'LYYMMDD LHHMMSS LYR4 LYR2 LMON LDAY LHR LMIN LSEC', 'LWDAY LJDAY' Say 'MVS Static System Symbols...' Do n = 1 to Words(static) symbol = Word(static,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(static) */ If inhouse \= '' Then Do Say ' ' Say 'MVS Static System Symbols...(Inhouse)' Do n = 1 to Words(inhouse) symbol = Word(inhouse,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(inhouse) */ End Say ' ' Say 'MVS Dynamic System Symbols...(Non Date/Time)' Do n = 1 to Words(dynamic) symbol = Word(dynamic,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(dynamic) */ Say ' ' Say 'MVS Dynamic System Symbols...(UTC Timezone)' Do n = 1 to Words(utctime) symbol = Word(utctime,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(utctime) */ Say ' ' Say 'MVS Dynamic System Symbols...(Local Timezone)' Do n = 1 to Words(lcltime) symbol = Word(lcltime,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(lcltime) */ Exit 0 -- Dale R. Smith Factotum ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
