/***********************************************************REXX******/
/*  DRAW A BOX AROUND CLIST LINES (COMMENT THEM OUT)                 */
/*  MODIFIED FROM CBT TAPE #9102 -- FILE095 MEMBER JCLBOX/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(CLISTBOX)"*/
      CLIST CLISTBOX 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<N>"" 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 CLISTBOX CLIST             */
/*********************************************************************/
   "LINE_BEFORE .ZFRANGE = NOTELINE """TIME() "START OF",
      "CLISTBOX -- LINES" FR "TO" LR """"
   "LINE_AFTER         .ZLRANGE = NOTELINE """TIME() "-END OF-",
     "CLISTBOX -- LINES" FR "TO" LR """"
    "SEEK FIRST 66 72 .ZFRANGE .ZLRANGE P'^'"
    IF RC = 0 THEN "LINE_AFTER .ZLRANGE",
       "= NOTELINE """TIME() "---- INPUT AFTER COL 65 SUBJECT",
       "TO LOSS USING JCLBOX"
  "(LBO,RBO) = BOUNDS"
  "BOUNDS 1 72"

  DO C = FR TO LR
    "SHIFT )" C "4"
  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'=' '*'      72"
    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