/***********************************************************REXX******/ /* DRAW A BOX AROUND DCF (SCRIPT/VS) 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(DCFBOX)"*/ CLIST DCFBOX HELP EXIT END TRACE '?A' 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 DCFBOX CLIST */ /*********************************************************************/ "LINE_BEFORE .ZFRANGE = NOTELINE """TIME() "START OF", "DCFBOX -- LINES" FR "TO" LR """" "LINE_AFTER .ZLRANGE = NOTELINE """TIME() "-END OF-", "DCFBOX -- 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