/* REXX -- converted to REXX on 1994/06/03 */
ADDRESS "ISREDIT"
 /*  TITLE:       FIXLI -- change (") to use of :Q...:EQ. for SCRIPT text */
 /*  USERS:       TSO ISPF EDIT USERS   | SCRIPT USERS                    */
 /*  CONTRIBUTED: 1988/02/09 DAVID MCRITCHIE                              */
 /*                                                                       */
 /*  EXAMPLE:     FIXLI                                                   */
 /*                                                                       */
 /*  OPTIONS:                                                             */
 /*      col1 col2  .label1 .label2  NX                                   */
 /*      NX   cannot be used with other options                           */
 "MACRO (RANGE)"
 /*   CONTROL ASIS -- left over from clist before rexx*/
 IF RANGE. = "" THEN  RANGE = ".ZF"  .ZL
 /* SCRIPT CONVERSION TO PAGE USAGE -- D.MCR                              */
 "SEEK ALL &RANGE. ':li. ' 1"
 "(LICNT1S,LICNT2L) = SEEK_COUNTS"
 licnt1s=licnt1s+0; licnt2l=licnt2l+0
 IF LICNT1S  = 0  THEN  DO
     "LINE_BEFORE .ZF = NOTELINE ""time("n") FIXLI   ",
           "-- NO CHANGES time("n")"""
      Exit 0
 END
 "LINE_BEFORE .ZF = NOTELINE """time("n"),
       "FIXLI   -- **CHANGES**" time("n")""""
 IF RANGE  = "" THEN  RANGE = ".ZF"  .ZL
 "Exclude ALL &RANGE."
 "Find ALL &RANGE. ':li. ' 1"
 "(VAR016) = DATA_WIDTH"
 "(VAR057) = RECFM"
 IF VAR057 = "V" THEN  VAR016 = VAR016  - 4
 "Change ALL &RANGE. NX 1 &VAR016. ' ' '›'"
 "Change ALL &RANGE. NX 1 ':li.›' ':li.'"
 "Change ALL &RANGE. NX 1 ':li.›' ':li.'"
 "Change ALL &RANGE. NX 1 ':li.›' ':li.'"
 "Change ALL &RANGE. NX 1 ':li.›' ':li.'"
 "Change ALL &RANGE. NX 1 &VAR016. '›' ' '"
 "Change ALL &RANGE. NX ':            ' x'508794934b404040404040404040404040'"
 "LOC 0"