/**************** REXX ******************************/
/* FS - FULL SCREEN BROWSE OF TSO COMMAND OUTPUT    */
/*      SYNTAX: FS <TSO COMMAND>                    */
/****************************************************/
IF SYSVAR(SYSISPF) \= 'ACTIVE' THEN
   DO
     SAY 'FS ONLY RUNS UNDER ISPF.'
     EXIT
   END
ARG ARG1
IF LENGTH(ARG1) = 0 THEN
  DO
    ZEDSMSG = 'INVALID SYNTAX:'
    ZEDLMSG = 'SYNTAX IS FS <TSO COMMAND>'
    ADDRESS ISPEXEC "SETMSG MSG(ISRZ0000)"
    EXIT
  END
ELSE NOP
X = MSG('ON')
X = PROMPT('OFF')
X = OUTTRAP("OUTLINE.")
FILENAM = "TS"TIME('S')
"ALLOC FI("FILENAM") TRACKS SPACE(1,1) UNIT(SYSDA) NEW DDSORG(PS)",
       "LRECL(132) RECFM(F,B) BLKSIZE(23364)"
""ARG1""
RETC = RC
X = OUTTRAP(OFF)
IF RETC < 0 THEN
  DO
    ZEDSMSG = WORD(ARG1,1)  'NOT FOUND'
    ZEDLMSG = WORD(ARG1,1)  'COMMAND WAS NOT FOUND. RC'RETC
    SIGNAL ENDD
  END
IF RETC = 20 THEN
  DO
    ZEDSMSG = WORD(ARG1,1) 'NOT FOUND'
    ZEDSMSG = WORD(ARG1,1) 'COMMAND WAS NOT FOUND. RC'RETC
    SIGNAL ENDD
  END
IF OUTLINE.0 = 0 THEN
  DO
    ZEDSMSG = WORD(ARG1,1) 'HAS NO FS OUTPUT'
    ZEDLMSG = 'COMMAND 'WORD(ARG1,1) 'HAS NO FS OUTPUT.RC 'RETC
    SIGNAL ENDD
  END
"EXECIO * DISKW "FILENAM" (FINIS STEM OUTLINE."
FSCMD = ARG1
ADDRESS ISPEXEC "VPUT (FSCMD)"
ADDRESS ISPEXEC "LMINIT DATAID(IDVAR) DDNAME("FILENAM")"
ADDRESS ISPEXEC "BROWSE DATAID("IDVAR") PANEL(FSCMDBRO)"
ADDRESS ISPEXEC "LMFREE DATAID("IDVAR")"
ZEDSMSG = WORD(ARG1,1) 'COMPLETE'
ZEDLMSG = 'COMMAND 'WORD(ARG1,1) 'COMPLETE.   RC 'RETC
ENDD:
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
X = MSG('OFF')
"FREE FI("FILENAM") DELETE"


FSE Full Screen Edit REXX Exec

/**************** REXX ******************************/
/* FSE - FULL SCREEN EDIT OF TSO COMMAND OUTPUT     */
/*       SYNTAX: FSE <TSO COMMAND>                  */
/****************************************************/
IF SYSVAR(SYSISPF) \= 'ACTIVE' THEN
  DO
    SAY 'FSE ONLY RUNS UNDER ISPF.'
    EXIT
  END
ARG ARG1
IF LENGTH(ARG1) = 0 THEN
  DO
    ZEDSMSG = 'INVALID SYNTAX:'
    ZEDSMSG = 'SYNTAX IS FSE <TSO COMMAND>'
    ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
    EXIT
  END
ELSE NOP
X = MSG('ON')
X = PROMPT('OFF')
X = OUTTRAP("OUTLINE.")
FILENAM = "TS"TIME('S')
"ALLOC FI("FILENAM"+) TRACKS SPACE(1,1) UNIT(SYSDA) NEWDSORG(PS)",
       "LRECL(132) RECFM(F,B) BLKSIZE(23364)"
""ARG1""
RETC = RC
X = OUTTRAP(OFF)
IF RETC < 0 THEN
  DO
    ZEDSMSG = WORD(ARG1,1) 'NOT FOUND'
    ZEDLMSG = WORD(ARG1,1) 'COMMAND WAS NOT FOUND. RC 'RETC
    SIGNAL ENDD
  END
IF RETC = 20 THEN
  DO
     ZEDSMSG = WORD(ARG,1,) 'NOT FOUND'
     ZEDLMSG = WORD(ARG1,1) 'COMMAND WAS NOT FOUND. RC 'RETC
     SIGNAL ENDD
   END
IF OUTLINE.0 = 0 THEN
  DO
    ZEDSMSG = WORD(ARG1,1) 'HAS NO FSE OUTPUT'
    ZEDSMSG = 'COMMAND 'WORD(ARG1,1) 'HAS NO FSE OUTPUT.  RC 'RETC
    SIGNAL ENDD
  END
"EXECIO * DISKW "FILENAM" (FINIS STEM OUTLINE."
FSCMD = ARG1
ADDRESS ISPEXEC "VPUT (FSCMD)"
ADDRESS ISPEXEC "LMINIT DATAID(IDVAR)  DDNAME("FILENAM")"
ADDRESS ISPEXEC "EDIT DATAID("IDVAR") PANEL(FSCMDEDT) PROFILE(DATA)"
ADDRESS ISPEXEC "LMFREE DATAID("IDVAR")"
ZEDSMSG = WORD(ARG1,1) 'COMPLETE'
ZEDLMSG = 'COMMAND 'WORD(ARG1,1) 'COMPLETE.  RC 'RETC
ENDD:
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
X = MSG('OFF')
"FREE FI("FILENAM") DELETE"


FSCMDBRO ISPF Browse Panel

)ATTR
  _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED)
  | AREA(DYNAMIC) EXTEND(ON) SCROLL(ON)
  + TYPE(TEXT) INTENS(LOW)
  ! TYPE(OUTPUT) INTENS(HIGH) PAD(-)
 01 TYPE(DATAOUT) INTENS(LOW)
 02 TYPE(DATAOUT) INTENS(HIGH)
 0B TYPE(DATAOUT) INTENS(HIGH) FORMAT(DBCS)
 0C TYPE(DATAOUT) INTENS(HIGH) FORMAT(EBCDIC)
 0D TYPE(DATAOUT) INTENS(HIGH) FORMAT(&MIXED)
 10 TYPE(DATAOUT) INTENS(LOW)  FORMAT(DBCS)
 11 TYPE(DATAOUT) INTENS(LOW)  FORMAT(EBCDIC)
 12 TYPE(DATAOUT) INTENS(LOW)  FORMAT(&MIXED)
)BODY WIDTH(&ZWIDTH) EXPAND(//)
%FS - &ZTITLE -------------/-/-----%LINE!ZLINES %COL!ZCOLUMS+
%COMMAND ===>_ZCMD                     / / %SCROLL ===>_Z   +
|ZDATA ----------------/ /------------------|
|                                      / / |
| -------------------/-/ ----------------|
)INIT
  .HELP = ISR10000       /* DEFAULT TUTORIAL NAME     */
  .ZVARS = 'ZSCBR'       /* SCROLL AMT VARIABLE NAME  */
  &ZTITLE = '&FSCMD '
  &MIXED = MIX
  IF (&ZPDMIX = N)       /* EBCDIC MODE REQUESTED     */
    &MIXED = EDCDIC)
)REINIT
  REFRESH(ZCMD,ZSCBR,ZDATA,ZLINES,ZCOLUMS)
  .ATTRCHAR(+) = 'INTENS(&ZINTEN)'
)PROC
  &ZCURSOR = .CURSOR
  &ZCSROFF = .CSRPOS
  &ZLVLINE = LVLINE(ZDATA)
)END


FSCMDEDT ISPF Edit Panel

)ATTR
  _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED)
  | AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD(20)
  ! TYPE(OUTPUT) INTENS(HIGH) PAD(-)
 01 TYPE(DATAOUT) INTENS(LOW)
 02 TYPE(DATAOUT) INTENS(HIGH)
 03 TYPE(DATAOUT) SKIP(ON) /* FOR TEXT ENTER CMD. FIELD */
 04 TYPE(DATAIN)  INTENS(LOW)  CAPS(OFF) FORMAT(&MIXED) /*@OY36835*/
 05 TYPE(DATAIN)  INTENS(HIGH) CAPS(OFF) FORMAT(&MIXED) /*@OY36835*/
 06 TYPE(DATAIN)  INTENS(LOW)  CAPS(IN)  FORMAT(&MIXED) /*@OY36835*/
 07 TYPE(DATAIN)  INTENS(HIGH) CAPS(IN)  FORMAT(&MIXED) /*@OY36835*/
 08 TYPE(DATAIN)  INTENS(LOW)  FORMAT(DBCS)
 09 TYPE(DATAIN)  INTENS(LOW)  FORMAT(EBCDIC)
 0A TYPE(DATAIN)  INTENS(LOW)  FORMAT(&MIXED)
 20 TYPE(DATAIN)  INTENS(LOW) CAPS(IN) FORMAT(&MIXED)
)BODY WIDTH(&ZWIDTH) EXPAND(//)
%FSE -!ZTITLE ------------/-/----------%COLUMNS!ZCL!ZCR%%
%COMMAND ===>_ZCMD                     / /                %SCROLL ===>_Z   %
|ZDATA ---------------/-/-------------------|
|                                      / /                |
| ------------------/-/-------------------|
)INIT
  .HELP = ISR20000         /* DEFAULT TUTORIAL NAME      */
  .ZVARS = 'ZSCED'         /* SCROLL AMT VARIABLE NAME   */
  &MIXED = MIX             /* SET FORMAT MIX             */
  IF (&ZPDMIX = N)         /* IF EBCDIC MODE REQUESTED   */
    &MIXED = EDCDIC        /*  SET FORMAT EBCDID         */
  &ZTITLE = '&FSCMD '
  &ZSUBDSN = &ZTITLE
  VPUT (ZSUBDSN)
)REINIT
  REFRESH(ZCMD,ZSCED,ZDATA,ZCL,ZCR)
  .HELP = ISR20000         /* DEFAULT TUTORIAL NAME      */
  &ZTITLE = '&FSCMD '
  &ZSUBDSN = &ZTITLE
  VPUT (ZSUBDSN)
)PROC
  &ZCURSOR = .CURSOR
  &ZCSROFF = .CSRPOS
  &ZLVLINE = LVLINE(ZDATA)
  &ZTITLE = '&FSCMD '
)END