/* http://www.geocities.com/davemcritchie/ */ ISREDIT MACRO /* David McRitchie -- "The REXX Macros Toolbox" -- 1997/05/31 */ /*** see results at http://www.geocities.com/davemcritchie/rexx01/txt/ncapxv.txt **/ /* NOT FOR DISTRIBUTION OR IS FOR PRIVATE TESTING. */ /*** D.McRitchie, QUERYALL - query all ISPEXEC/ISREDIT variables **/ /*** invoked from personal clist library or production copy of **/ /*** 1990/03/27 Created for testing D.McRitchie */ CONTROL ASIS ISREDIT CAPS OFF CONTROL ASIS ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " ISREDIT LINE_AFTER .ZL = DATALINE " " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC /* CONTROL CONLIST SYMLIST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR001) = AUTOLIST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR002) = AUTONUM IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR003,VAR004) = AUTOSAVE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR005) = BLKSIZE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR006,VAR007) = BOUNDS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR008) = CAPS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR009,VAR010) = CHANGE_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR011,VAR012) = CTL_LIBRARY IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR013,VAR014) = CURSOR IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR014A) = DATA_CHANGED IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR016) = DATA_WIDTH IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR018) = DATAID IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR018A) = DATASET IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR019,VAR020) = DISPLAY_COLS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR021,VAR022) = DISPLAY_LINES IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR023E,VAR024E) = EXCLUDE_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR023,VAR024) = FIND_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR025,VAR026) = FLOW_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR027,VAR028) = HEX IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR029) = IMACRO IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR031,VAR032) = LABEL .ZFIRST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR033) = LEVEL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR035) = LINE 8 IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR037) = LINENUM .ZLAST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR039) = MACRO_LEVEL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR040) = LRECL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR041) = MASKLINE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR043) = MEMBER IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR045) = NOTE ISREDIT (VAR045S) = NOTES IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR047,VAR048) = NULLS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR049,VAR050) = NUMBER IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR051) = PACK IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR053,VAR054) = PROFILE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR055) = RANGE_CMD IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR057) = RECFM IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR059) = RECOVERY IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR061) = RMACRO IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR062) = SCAN IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR063,VAR064) = SEEK_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR065) = STATS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR067A,VAR067B) = TABS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR069) = TABSLINE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC /* ISREDIT (VAR071) = USER_STATE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR073) = VERSION IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT (VAR075) = XSTATUS .ZFIRST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR001) = AUTOLIST &VAR001. = AUTOLIST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR002) = AUTONUM &VAR002. = AUTONUM IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR003,VAR004) = AUTOSAVE &VAR003.,&VAR004.) = AUTOSAVE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR005) = BLKSIZE &VAR005. = BLKSIZE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR006,VAR007) = BOUNDS &VAR006.,&VAR007.) = BOUNDS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR008) = CAPS &VAR008. = CAPS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR009,VAR010) = CHANGE_COUNTS &VAR009.,&VAR010.) = CHANGE_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR011,VAR012) = CTL_LIBRARY &VAR011.,&VAR012.) = CTL_LIBRARY IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR013,VAR014) = CURSOR &VAR013.,&VAR014.) = CURSOR IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR014A) = DATA_CHANGED &VAR014. = DATA_CHANGED IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR016) = DATA_WIDTH &VAR016. = DATA_WIDTH IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR018) = DATAID &VAR018. = DATAID IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR018A) = DATASET &VAR018A. = DATASET IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR019,VAR020) = DISPLAY_COLS &VAR019.,&VAR020.) = DISPLAY_COLS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR021,VAR022) = DISPLAY_LINES &VAR021.,&VAR022.) = DISPLAY_LINES IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR023E,VAR024E) = EXCLUDE_COUNTS &VAR023E.,&VAR024E.) = EXCLUDE_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR023,VAR024) = FIND_COUNTS &VAR023.,&VAR024.) = FIND_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR025,VAR026) = FLOW_COUNTS &VAR025.,&VAR026.) = FLOW_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR027,VAR028) = HEX &VAR027.,&VAR028.) = HEX IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR029) = IMACRO &VAR029. = IMACRO IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR031,VAR032) = LABEL .ZFIRST &VAR031.,&VAR032.) = LABEL .ZFIRST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR033) = LEVEL &VAR033. = LEVEL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR035) = LINE 8 &VAR035. = LINE 8 IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR037) = LINENUM .ZLAST &VAR037. = LINENUM .ZLAST IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR039) = MACRO_LEVEL &VAR039. = MACRO_LEVEL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR040) = LRECL &VAR040. = LRECL IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR041) = MASKLINE &VAR041. = MASKLINE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR043) = MEMBER &VAR043. = MEMBER IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR045) = NOTE &VAR045. = NOTE WRITE ISREDIT (VAR045S) = NOTES &VAR045S. = NOTES IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR047,VAR048) = NULLS &VAR047.,&VAR048.) = NULLS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR049,VAR050) = NUMBER &VAR049.,&VAR050.) = NUMBER IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR051) = PACK &VAR051. = PACK IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR053,VAR054) = PROFILE &VAR053.,&VAR054.) = PROFILE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR055) = RANGE_CMD &VAR055. = RANGE_CMD IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR057) = RECFM &VAR057. = RECFM IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR059) = RECOVERY &VAR059. = RECOVERY IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR061) = RMACRO &VAR061. = RMACRO IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR062) = SCAN &VAR062. = SCAN IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR063,VAR064) = SEEK_COUNTS &VAR063.,&VAR064.) = SEEK_COUNTS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR065) = STATS &VAR065. = STATS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR067A,VAR067B) = TABS &VAR067A.,&VAR067B. = TABS IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC /* WRITE ISREDIT (VAR069) = TABSLINE &VAR069. = TABSLINE IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR071) = USER_STATE <> IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR073) = VERSION &VAR073. = VERSION IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE ISREDIT (VAR075) = XSTATUS .ZCSR &VAR075. = XSTATUS .ZCSR IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR001 ) = AUTOLIST &VAR001. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR002 ) = AUTONUM &VAR002. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR003,VAR004) = AUTOSAVE &VAR003.,&VAR004. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR005 ) = BLKSIZE &VAR005. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR006,VAR007) = BOUNDS &VAR006.,&VAR007. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR008 ) = CAPS &VAR008. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR009,VAR010) = CHANGE_COUNTS &VAR009.,&VAR010. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR011,VAR012) = CTL_LIBRARY &VAR011.,&VAR012. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR013,VAR014) = CURSOR &VAR013.,&VAR014. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR014A) = DATA_CHANGED &VAR014. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR016 ) = DATA_WIDTH &VAR016. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR018 ) = DATAID &VAR018. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR018A ) = DATASET &VAR018A. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR019,VAR020) = DISPLAY_COLS &VAR019.,&VAR020. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR021,VAR022) = DISPLAY_LINES &VAR021.,&VAR022. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR023E,VAR024E) = EXCLUDE_COUNTS &VAR023E.,&VAR024E. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR023,VAR024) = FIND_COUNTS &VAR023.,&VAR024. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR025,VAR026) = FLOW_COUNTS &VAR025.,&VAR026. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR027,VAR028) = HEX &VAR027.,&VAR028. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR029 ) = IMACRO &VAR029. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR031,VAR032) = LABEL .ZFIRST &VAR031.,&VAR032. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR033 ) = LEVEL &VAR033. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR037 ) = LINENUM .ZLAST &VAR037. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR039 ) = MACRO_LEVEL &VAR039. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC /* ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR041 ) = MASKLINE &VAR041. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR043 ) = MEMBER &VAR043. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR045 ) = NOTE &VAR045. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR047,VAR048) = NULLS &VAR047.,&VAR048. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR049,VAR050) = NUMBER &VAR049.,&VAR050. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR051 ) = PACK &VAR051. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR053,VAR054) = PROFILE &VAR053.,&VAR054. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR055 ) = RANGE_CMD &VAR055. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR057 ) = RECFM &VAR057. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR059 ) = RECOVERY &VAR059. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR061 ) = RMACRO &VAR061. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR063,VAR064) = SEEK_COUNTS &VAR063.,&VAR064. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR065 ) = STATS &VAR065. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR067A,VAR06&B) = TABS &VAR067A.,&VAR067B." IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC /* ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR069 ) = TABSLINE &VAR069. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR071 ) = USER_STATE <> " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT USER_STATE = (VAR071) <> " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR073 ) = VERSION &VAR073. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR075 ) = XSTATUS .ZCSR &VAR075. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC WRITE >>>>>&STR(&VAR035)<<<<< IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE "ISREDIT (VAR035 ) = LINE 8 ->>&SUBSTR(1:80,&STR(&VAR035.)) " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUID Current user s identification &SYSUID. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPROC LOGON procedure name &SYSPROC. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPREF Data set name prefix &SYSPREF. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " LASTCC Most recent return code &LASTCC. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " MAXCC Highest return code &MAXCC. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSICMD Implicit execution member name &SYSICMD. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSCAN Symbolic substitution rescan limit &SYSSCAN. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSDLM Terminal delimiter &SYSDLM. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSDVAL Terminal parameters &SYSDVAL. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSNEST Nested procedure indicator &SYSNEST. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPCMD Current primary command name &SYSPCMD. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSCMD Current subcommand name &SYSSCMD. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSTIME Current time &SYSTIME. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSDATE Current date &SYSDATE. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSENV Foreground or background execution &SYSENV. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSCPU CPU time (session) secs.hundredths &SYSCPU. " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSHSM Level of HSM available to the clist &SYSHSM " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSISPF Whether ISPF management services avail. &SYSISPF " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSJDATE Julian date format year.days. &SYSJDATE " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSLRACF Level of RACF available to the clist &SYSLRACF " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSRACF Indicate whether RACF installed &SYSRACF " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSLTERM Contains number of lines avail./screen &SYSLTERM " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPROC Name of logon procedure used &SYSPROC " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSDATE Date format year/month/day. &SYSSDATE " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSRV Number of SRM serv. units used (session) &SYSSRV " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSTIME Date form hours:minutes &SYSSTIME " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSTSOE Level of TSO/E installed &SYSTSOE " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSWTERM Width of the screen &SYSWTERM " IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC ISREDIT LINE_AFTER .ZLAST = DATALINE " -------------------------------------------------------------------- " ISREDIT LINE_AFTER .ZLAST = DATALINE ".ce panel ISP@MSTR -- MASTER, and ISR@PRIM -- ISPF/PDF PRIMARY OPTION MENU" ISREDIT LINE_AFTER .ZLAST = DATALINE ".ce ISPF Dialog Management Guide SC34-4112 " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE ".ce ISPEXEC VGET(........) SHARED|PROFILE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET(........) " ISPEXEC VGET (ZUSER ZUSER ZPREFIX ZTIME ZTERM) ISPEXEC VGET (ZDATE ZJDATE ZKEYS ZPFCTL ZLOGON VVER ZAPPLID ZCHARLM XENVIR) ISPEXEC VGET (ZPF01 ZPF02 ZPF03 ZPF04 ZPF05 ZPF06 ZPF07 ZPF08) ISPEXEC VGET (ZPF09 ZPF10 ZPF11 ZPF12 ZPF13 ZPF15 ZPF16 ZPF17) ISPEXEC VGET (ZPF18 ZPF19 ZPF20 ZPF21 ZPF22 ZPF23 ZPF24) ISPEXEC VGET (ZPL01 ZPL02 ZPL03 ZPL04 ZPL05 ZPL06 ZPL07 ZPL08) ISPEXEC VGET (ZPL09 ZPL10 ZPL11 ZPL12 ZPL13 ZPL15 ZPL16 ZPL17) ISPEXEC VGET (ZPL18 ZPL19 ZPL20 ZPL21 ZPL22 ZPL23 ZPL24 ZPFSHOW ZPFFMT) ISREDIT LINE_AFTER .ZLAST = DATALINE " -------------------------------------------------------------------- " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZUSER ) Userid &ZUSER " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZUSER ) Userid &ZUSER " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPREFIX) Prefix &ZPREFIX " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZTIME ) Time &ZTIME " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZTERM ) Terminal &ZTERM " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZCHARLM) Terminal characteristic &ZCHARLM " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZDATE ) Date &ZDATE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZJDATE ) Date &ZJDATE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZKEYS ) PF Keys &ZKEYS " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPFCTL) User Authorization &ZPFCTL " ISREDIT LINE_AFTER .ZLAST = DATALINE " to use PFSHOW " ISREDIT LINE_AFTER .ZLAST = DATALINE " USER|ON|OFF " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPFSHOW) PFSHOW ON/OFF &ZPFSHOW " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPFFMT) Format of PFSHOW &ZPFFMT. " ISREDIT LINE_AFTER .ZLAST = DATALINE " PRI (13-24), ALT(1-12) " ISREDIT LINE_AFTER .ZLAST = DATALINE " ALL (1-24) " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPF01 ) PF01 &ZPF01 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPF03 ) PF03 &ZPF03 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPF04 ) PF04 &ZPF04 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPF012) PF012 &ZPF12 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPF024) PF024 &ZPF24 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPL01 ) PF01 show &ZPL01 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPL03 ) PF03 show &ZPL03 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPL04 ) PF04 show &ZPL04 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPL012) PF012 show &ZPL12 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZPL024) PF024 show &ZPL24 " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZLOGON ) PROC &ZLOGON " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (VVER ) Version &VVER " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZAPPLID) Application ID (4C) &ZAPPLID " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZENVIR ) Environment data (32C) &ZENVIR " ISREDIT LINE_AFTER .ZLAST = DATALINE " -------------------------------------------------------------------- " ISREDIT LINE_AFTER .ZLAST = DATALINE " EDIT OUTPUT-ONLY variables-- ISPF Customization " ISREDIT LINE_AFTER .ZLAST = DATALINE " -------------------------------------------------------------------- " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZCL ) Left col of data display &ZCL " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZCR ) Right col of data display &ZCR " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZCSROFF) CSR offset within csr fld &ZSCROFF " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZCURSOR) Named field csr placed &ZCURSOR " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZDADLN ) Length of dynamic area &ZDADLN " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZDADWD ) Width of dynamic area &ZDADWD " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZDSN ) Name of data set dsplyed &ZDSN " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZLEVEL ) Version and mod level &ZLEVEL " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZLVLINE) Last visible line &ZLVLINE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZMEMB ) Name of member displayed &ZZMEMB " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZTITLE ) title line &ZTITLE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZTITLE ) 'DSN(MEMB) - VER.MOD' &ZTITLE " ISREDIT LINE_AFTER .ZLAST = DATALINE " ISPEXEC VGET (ZWIDTH ) Width of the panel &ZWIDTH " ISREDIT LINE_AFTER .ZLAST = DATALINE " -------------------------------------------------------------------- " SET DSN = '&VAR018A.(&VAR043.)' IF &LASTCC ^= 0 THEN WRITE LAST=&LASTCC MAX=&MAXCC SET DSN = '&VAR018A.' ISREDIT LINE_AFTER .ZLAST = DATALINE " set dsn = '&VAR018A.(&VAR043.)' " LISTDSI &DSN. DIRECTORY ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSDSNAME Data set name &SYSDSNAME " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSVOLUME Volume Serial ID &SYSVOLUME " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSDSORG Data Set Organization &SYSDSORG " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSRECFM Record Format &SYSRECFM " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSLRECL Logical Record Length &SYSLRECL " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSBLKSIZE Block size &SYSBLKSIZE " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSKEYLEN Key Length &SYSKEYLEN " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSCREATE Creation date &SYSCREATE " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSEXDATE Expiration Date &SYSEXDATE " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSREFDATE Last Referenced Date &SYSREFDATE " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUPDATED Change Indicator &SYSUPDATED " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUNIT Device on which volume resides &SYSUNIT " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUNITS Space units &SYSUNITS " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSADIRBLK Directory Blocks Allocated (PDS only) &SYSADIRBLK " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPRIMARY Primary Allocation in Space units &SYSPRIMARY " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSSECONDS Secondary Allocation in Space units &SYSSECONDS " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUDIRBLK Directory Blocks used (PDS only) &SYSUDIRBLK " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSMEMBERS Number of Members (PDS only) &SYSMEMBERS " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSALLOC Allocation in Space units &SYSALLOC " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSUSED Allocation used, in space units &SYSUSED " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSBLKSTRK Directory blocks per track for unit &SYSBLKSTRK " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSEXTENTS Number of Extents used &SYSEXTENTS " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSTRKSCYL Tracks per cylinder per unit &SYSTRKSCYL " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSMSGLVL1 First Level Message (if an error) &SYSMSGLVL1 " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSMSGLVL2 First Level Message (if an error) &SYSMSGLVL2 " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSPASSWORD Password Indication &SYSPASSWORD " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSRACFA RACF Indication &SYSRACFA " ISREDIT LINE_AFTER .ZLAST = DATALINE " SYSREASON LISTDSI reason Code &SYSREASON " ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE "ALLOCATE DA(x.&DSN.) NEW SPACE(&SYSPRIMARY,&SYSSECONDS) + " ISREDIT LINE_AFTER .ZLAST = DATALINE " VOL(&SYSVOLUME.) UNIT(&SYSUNIT.) + " ISREDIT LINE_AFTER .ZLAST = DATALINE " &SYSUNITS DIR(&SYSADIRBLK.) + " ISREDIT LINE_AFTER .ZLAST = DATALINE " RECFM(&SUBSTR(1:1,&SYSRECFM. ) &SUBSTR(2:2,&SYSRECFM. ) + " ISREDIT LINE_AFTER .ZLAST = DATALINE " &SUBSTR(3:3,&SYSRECFM. ) &SUBSTR(4:4,&SYSRECFM. ) ) + " ISREDIT LINE_AFTER .ZLAST = DATALINE " LRECL(&SYSLRECL.) BLKSIZE(&SYSBLKSIZE.) " /* to be added tacct jbxacct zpffmt zfrml zfpked zbpked zfmt scrbr saf /* to be added zsf zpadc zdel zfmt zsced ISPEXEC VGET (TACCT JBXACCT ZFRML ZFPKED ZBPKED ZFMT SCRBR SAF) ISREDIT LINE_AFTER .ZLAST = DATALINE " " ISREDIT LINE_AFTER .ZLAST = DATALINE " TACCT &TACCT. " ISREDIT LINE_AFTER .ZLAST = DATALINE " JBXACCT &JBXACCT. " ISREDIT LINE_AFTER .ZLAST = DATALINE " ZFRML &ZFPKED. " ISREDIT LINE_AFTER .ZLAST = DATALINE " ZBPKED &ZFMT. " ISREDIT LINE_AFTER .ZLAST = DATALINE " ZSCRBR &SAF. " EXIT CODE(0)