/* REXX    SYMDEFS *** stolen from Bill LaLonde
*/
arg var
if var <> "" then do
   say Right("SYMDEF:",20) MVSVAR("SYMDEF",var)
   exit
   end

call A_SETVARS                         /*                           -*/
call D_DISPLAY                         /*                           -*/

exit 0                                 /*@ SYMDEFS                   */
/*
.  ----------------------------------------------------------------- */
A_SETVARS:                             /*@                           */
   address TSO

   parse value ''   with var.
   var.JN = 'JOBNAME  = 'MVSVAR('SYMDEF','JOBNAME')
   var.GT = 'YYMMDD   = 'MVSVAR('SYMDEF','YYMMDD')
   var.DY = 'DAY      = 'MVSVAR('SYMDEF','DAY')
   var.HR = 'HR       = 'MVSVAR('SYMDEF','HR')
   var.JD = 'JDAY     = 'MVSVAR('SYMDEF','JDAY')
   var.MN = 'MIN      = 'MVSVAR('SYMDEF','MIN')
   var.MO = 'MON      = 'MVSVAR('SYMDEF','MON')
   var.SE = 'SEC      = 'MVSVAR('SYMDEF','SEC')
   var.HM = 'HHMMSS   = 'MVSVAR('SYMDEF','HHMMSS') "   GMT time"
   var.WD = 'WDAY     = 'MVSVAR('SYMDEF','WDAY')
   var.Y2 = 'YR2      = 'MVSVAR('SYMDEF','YR2')
   var.Y4 = 'YR4      = 'MVSVAR('SYMDEF','YR4')
/* LOCAL TIME */
   var.LG = 'LYYMMDD  = 'MVSVAR('SYMDEF','LYYMMDD')
   var.LD = 'LDAY     = 'MVSVAR('SYMDEF','LDAY')
   var.LH = 'LHR      = 'MVSVAR('SYMDEF','LHR')
   var.LJ = 'LJDAY    = 'MVSVAR('SYMDEF','LJDAY')
   var.LN = 'LMIN     = 'MVSVAR('SYMDEF','LMIN')
   var.LM = 'LMON     = 'MVSVAR('SYMDEF','LMON')
   var.LS = 'LSEC     = 'MVSVAR('SYMDEF','LSEC')
   var.LT = 'LHHMMSS  = 'MVSVAR('SYMDEF','LHHMMSS') "    Local time"
   var.LW = 'LWDAY    = 'MVSVAR('SYMDEF','LWDAY')
   var.L2 = 'LYR2     = 'MVSVAR('SYMDEF','LYR2')
   var.L4 = 'LYR4     = 'MVSVAR('SYMDEF','LYR4')

   var.SP = 'SYSPARM  = 'MVSVAR('SYMDEF','SYSPARM')
   var.SN = 'SYSNAME  = 'MVSVAR('SYMDEF','SYSNAME')
   var.LA = 'LCLNAME  = 'MVSVAR('SYMDEF','LCLNAME')
   var.LC = 'SYSCLONE = 'MVSVAR('SYMDEF','SYSCLONE')
   var.LX = 'SUFFIX   = 'MVSVAR('SYMDEF','SUFFIX')
   var.PX = 'PLEXID   = 'MVSVAR('SYMDEF','PLEXID')
   var.IP = 'IPLSYS   = 'MVSVAR('SYMDEF','IPLSYS')
   var.TC = 'TCPIPSSN = 'MVSVAR('SYMDEF','TCPIPSSN')
   var.J2 = 'JES2NODE = 'MVSVAR('SYMDEF','JES2NODE')
   var.ID = 'ID       = 'MVSVAR('SYMDEF','ID')
   var.S1 = 'SYSR1    = 'MVSVAR('SYMDEF','SYSR1')

return                                 /*@ A_SETVARS                 */
/*
.  ----------------------------------------------------------------- */
D_DISPLAY:                             /*@                           */
   address ISPEXEC

   hd1    = 'MVSVARnm   --Value----'
   hd2    = '========   ==========='
   say Left( hd1   ,35 ) Left( hd1   ,35 )
   say Left( hd2   ,35 ) Left( hd2   ,35 )
   say Left( var.JN,35 )
   say Left( var.GT,35 ) Left( var.LG,35 )
   say Left( var.DY,35 ) Left( var.LD,35 )
   say Left( var.MO,35 ) Left( var.LM,35 )
   say Left( var.Y2,35 ) Left( var.L2,35 )
   say Left( var.Y4,35 ) Left( var.L4,35 )
   say Left( var.WD,35 ) Left( var.LW,35 )
   say Left( var.JD,35 ) Left( var.LJ,35 )
   say Left( var.HM,35 ) Left( var.LT,35 )
   say Left( var.HR,35 ) Left( var.LH,35 )
   say Left( var.MN,35 ) Left( var.LN,35 )
   say Left( var.SE,35 ) Left( var.LS,35 )
   say
   say Left( var.SP,35 )
   say Left( var.SN,35 ) Left( var.LA,35 )
   say Left( var.LC,35 ) Left( var.S1,35 )
   say Left( var.PX,35 ) Left( var.IP,35 )
   say Left( var.LX,35 ) Left( var.TC,35 )
   say Left( var.J2,35 ) Left( var.ID,35 )

return                                 /*@ D_DISPLAY                 */