© serviceprofessionalgmbh

The SysProg Crew may define a number of symbols in the SYS1.PARMLIB. In the member IEASYMxx (depending on the system) values are assigned to the symbols.

The following program lists some of those values. Please be understanding should not all symbols be defined in your installation(s).

/* REXX
   Anzeige der SYMBOLS
*/
call set_sym_names

say "Standars MVS Symbols:"
do I = 1 while SYS.I <> "SYS."I
   say left(SYS.I,10) ">>" mvsvar("SYMDEF",SYS.I)
end
say
say "Installationsabhängige:"
do I = 1 while SYM.I <> "SYM."I
   say left(SYM.I,10) ">>" mvsvar("SYMDEF",SYM.I)
end
exit

set_sym_names:
   I = 0 /* Standard MVS */
   I=I+1;SYS.I= "JOBNAME"
   I=I+1;SYS.I= "LYYMMDD"
   I=I+1;SYS.I= "LHHMMSS"
   I=I+1;SYS.I= "HHMMSS"
   I=I+1;SYS.I= "LYR4"
   I=I+1;SYS.I= "SYSR1"
   I = 0 /* Definiert in der SYS1.PARMLIB(IEASYMxx) */
   I=I+1;SYM.I= "CPUNAME"
   I=I+1;SYM.I= "CSABELOW"
   I=I+1;SYM.I= "CSAHIGH"
   I=I+1;SYM.I= "SUFFIX"
   I=I+1;SYM.I= "PAGELOC1"
   I=I+1;SYM.I= "PAGECOM1"
   I=I+1;SYM.I= "MAXUSER"
   I=I+1;SYM.I= "GRSMODE"
   I=I+1;SYM.I= "RSUPARM"
return