The REXX MVSVAR function with the 'SYMDEF' parameter will display the Static
and Dynamic System Symbols assigned to your system. No special authority
required! You have to supply the Symbol Name to extract. Here is a REXX
program to extract and display the currently defined, (at least as of z/OS
V2.2), Static and Dynamic Symbols. If you have inhouse defined Static Symbols,
(as we do), then modify the "inhouse" variable in SYMDEF REXX to include your
inhouse defined symbols. If you do not have any inhouse symbols, then set the
"inhouse" variable to null: inhouse = ''
/*--------------------------- 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 TSID CSID IMSP IMST'
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
