/* REXX
 |
 | Name: ISPFVAR
 |
 | Author: David Alcock
 |
 | Purpose: Show the IBM ISPF system variables.
 |
 | Note: Not updated for ISPF version 4 yet!!!!!!!!!!
 */
address ISPEXEC
"VGET ZDATE  "  ; say "zdate------"zdate
"VGET ZDATEF "  ; say "zdatef-----"zdatef
"VGET ZDATEFD"  ; say "zdatefd----"zdatefd
"VGET ZJDATE "  ; say "zjdate-----"zjdate
"VGET ZDAY   "  ; say "zday-------"zday
"VGET ZMONTH "  ; say "zmonth-----"zmonth
"VGET ZTIME  "  ; say "ztime------"ztime
"VGET ZYEAR  "  ; say "zyear------"zyear
"VGET ZAPPLID"  ; say "zapplid----"zapplid
"VGET ZENVIR"   ; say "zenvir-----"zenvir
"VGET ZISPFRC"  ; say "zispfrc----"zispfrc
"VGET ZLANG"    ; say "zlang------"zlang
"VGET ZLOGON"   ; say "zlogon-----"zlogon
"VGET ZPLACE"   ; say "zplace-----"zplace
"VGET ZPREFIX"  ; say "zprefix----"zprefix
"VGET ZPROFAPP" ; say "zprofapp---"zprofapp
"VGET ZTEMPF"   ; say "ztempf-----"ztempf
"VGET ZTEMPN"   ; say "ztempn-----"ztempn
"VGET ZUSER"    ; say "zuser------"zuser
"VGET ZCOLORS"  ; say "zcolors----"zcolors
"VGET ZDBCS"    ; say "zdbcs------"zdbcs
"VGET ZHILITE"  ; say "zhilite----"zhilite
"VGET ZSCREEN"  ; say "zscreen----"zscreen
"VGET ZSCREEND" ; say "zscreend---"zscreend
"VGET ZSCREENW" ; say "zscreenw---"zscreenw
"VGET ZSCRMAXD" ; say "zscrmaxd---"zscrmaxd
"VGET ZSCRMAXW" ; say "zscrmaxw---"zscrmaxw
"VGET ZSPLIT"   ; say "zsplit-----"zsplit
"VGET ZTERM"    ; say "zterm------"zterm
"VGET ZFAMPRT"  ; say "zfamprt----"zfamprt
"VGET ZDEVNAM"  ; say "zdevnam----"zdevnam
"VGET ZASPECT"  ; say "zaspect----"zaspect
"VGET ZKEYS"    ; say "zkeys------"zkeys
do i = 1 to zkeys
   if i < 10 then do
      "VGET ZPF0"i
      "VGET ZPFL0"i
      interpret "value=zpf0"i
      interpret "label=zpfl0"i
      if label <> "" then label = "- "label
      say "zpf0"i" ------"value label
      end
   else do
        "VGET ZPF"i
        "VGET ZPFL"i
        interpret "value=zpf"i
        interpret "label=zpfl"i
        if label <> "" then label = "- "label
        say "zpf"i" ------"value label
        end
   end
"VGET ZPFCTL"   ; say "zpfctl-----"zpfctl
"VGET ZPFFMT"   ; say "zpffmt-----"zpffmt
"VGET ZPFSET"   ; say "zpfset-----"zpfset
"VGET ZPFSHOW"  ; say "zpfshow----"zpfshow