Planet MVS Dave's MVS Freeware Rexx ISPFVAR |
ISPFVAR
is a REXX exec that displays the IBM supplied system ISPF variables.
Note: This code needs to be updated for ISPF version 4. Anyone want to volunteer? Needs check for ZENVIR before obtaining variables for version 4. |
|
zdate------97/11/04 zdatef-----YY/MM/DD zdatefd----YY/MM/DD zjdate-----97.308 zday-------04 zmonth-----11 ztime------17:39 zyear------97 zapplid----ISR zenvir-----ISPF 4.3MVS TSO zispfrc---- zlang------ENGLISH zlogon-----$TSOPRO4 zplace-----ASIS zprefix----IBMUSER zprofapp--- ztempf-----IBMUSER.SPFTEMP1.CSW1.CTL ztempn-----ISPCTL1 zuser------IBMUSER zcolors----0007 zdbcs------NO zhilite----YES zscreen----1 zscreend---0032 zscreenw---0080 zscrmaxd---0032 zscrmaxw---0080 zsplit-----NO zterm------3278 zfamprt----2 zdevnam---- zaspect----0 zkeys------24 zpf01 ------HELP zpf02 ------SPLIT zpf03 ------END zpf04 ------RETURN zpf05 ------RFIND zpf06 ------RCHANGE zpf07 ------UP zpf08 ------DOWN zpf09 ------SWAP zpf10 ------LEFT zpf11 ------RIGHT zpf12 ------RETRIEVE zpf13 ------HELP zpf14 ------SPLIT zpf15 ------END zpf16 ------RETURN zpf17 ------RFIND zpf18 ------RCHANGE zpf19 ------UP zpf20 ------DOWN zpf21 ------SWAP zpf22 ------LEFT zpf23 ------RIGHT zpf24 ------RETRIEVE zpfctl-----USER zpffmt-----SIX zpfset-----PRI zpfshow----OFF |