zOs/REXX/EXSYSVAR

/* rexx ****************************************************************
             sysVar und mvsVar beispiele
                         /d symbols         in eJes eingeben
                         &SYSALVL.  = "2"
                         &SYSCLONE. = "13"
                         &SYSNAME.  = "S13"
                         &SYSPLEX.  = "PLEXA"
                         &SYSR1.    = "SYA101"
                         &ALLOCXX.  = "00,L"
                         &BPXPRMMM. = ",0M,13"
                         &BPXPRMXX. = "00"
                         &CEEXX.    = "00"
                         &CLOCKXX.  = "00"
                         &CNMNETID. = "CHSKA000"
                         &CNMRODM.  = "RODMCS1"
                         &CNMTCPN.  = "TXX51Q0"
                         &COMMNDXX. = "13"
                         &CONSOLXX. = "00"
                         &COUPLEXX. = "00"
                         &CSASIZE.  = "4800"
                         &CSFPRMXX. = "00"
                         &CTCA01.   = "C6"
***********************************************************************/
all= SYSALVL,
     SYSCLONE,
     SYSNAME,
     SYSPLEX,
     SYSR1,
     ALLOCXX,
     BPXPRMMM,
     BPXPRMXX,
     CEEXX,
     CLOCKXX,
     CNMNETID,
     CNMRODM,
     CNMTCPN,
     COMMNDXX,
     JOBNAME,
     STEPNAME,
     CLASS
do wx = 1 to words(all)
    v = word(all, wx)
    say v
    say left(v, 20) mvsVar('symDef', v)
    end
ALL = 'SYSNODE SYSCPU SYSSRV'
do wx = 1 to words(all)
    v = word(all, wx)
    say v
    say left(v, 20) sysVar(v)
    end