/***********************************************************REXX******/ /* DRAW A BOX AROUND CLIST LINES (COMMENT THEM OUT) */ /* MODIFIED FROM CBT TAPE #9102 -- FILE095 MEMBER CLISTBOX */ /* *******************************************************************/ /* USED CLIST WITH PENDING ADD-LINES, WITH THE RESULT */ /* THAT ISPF SESSION ABENDED. WAITING ON PENDING COMMANDS */ /* IS A REQUIREMENT OF THIS CLIST -- APPEARS NOT TO RECUR */ /* *******************************************************************/ /* ADDED NOTELINES -- D.MCRITCHIE 1991/05/10, TO REXX 1993/06/11 */ /* *******************************************************************/ /*********************************************************************/ ADDRESS "ISREDIT";"MACRO (HELP) NOPROCESS" IF HELP = "?" THEN DO /*ADDRESS "ISPEXEC DISPLAY PANEL(REXXBOX)"*/ CLIST REXXBOX HELP EXIT END STARS = SUBSTR('*',1,64,'*')"/" "PROCESS RANGE C" LCC = RC "(RCMD) = RANGE_CMD" IF RC = 4 | RCMD \= "C" THEN DO ZEDSMSG = "NO RANGE SPECIFIED" ZEDLMSG = "YOU MUST SPECIFY A RANGE OF LINES TO BE BOXED", "USING A ""C"" OR ""CC""" ADDRESS "ISPEXEC" "SETMSG MSG(ISRZ001)" EXIT 4 END "(FIRST) = LINENUM .ZFRANGE" "(LAST) = LINENUM .ZLRANGE" "(FR) = LINENUM .ZFRANGE" "(LR) = LINENUM .ZLRANGE" /*********************************************************************/ /* THIS IS A STARRY BOX CREATED BY THE REXXBOX CLIST */ /*********************************************************************/ "LINE_BEFORE .ZFRANGE = NOTELINE """TIME() "START OF", "REXXBOX -- LINES" FR "TO" LR """" "LINE_AFTER .ZLRANGE = NOTELINE """TIME() "-END OF-", "REXXBOX -- LINES" FR "TO" LR """" "(LBO,RBO) = BOUNDS" "BOUNDS 1 72" DO C = FR TO LR "SHIFT )" C "3" END "MASKLINE = ""/"||"*****"STARS"""" "LINE_BEFORE" FIRST "= MASKLINE" DO I = FR TO LR "LABEL" I "= .LJ" "SEEK P'^' .LJ .LJ" LBO RBO "FIRST" "SEEK P'^' .LJ .LJ" LBO RBO "LAST" "CHANGE P'===' '/"||"* ' 1" "CHANGE P'==' '*"||"/' 70" IF I = FR THEN "LABEL" I "= .LJX" END "SEEK P'=' .LJX .LJX FIRST" "MASKLINE = ""/"||"*****"STARS"""" LAST = LAST + 1 "LINE_AFTER" LAST "= MASKLINE" "MASKLINE = ' '" "BOUNDS " LBO","RBO EXIT 0