/* REXX -- converted to REXX on 1994/06/03 */
ADDRESS "ISREDIT"
 /*  TITLE:       FIXP -- Change (") to use of :Q...:EQ. for SCRIPT text */
 /*  USERS:       TSO ISPF EDIT USERS   | SCRIPT USERS                   */
 /*  CONTRIBUTED: 1988/02/09 DAVID MCRITCHIE                             */
 /*                                                                      */
 /*  EXAMPLE:     FIXP                                                   */
 /*                                                                      */
 /*  OPTIONS:                                                            */
 /*      col1 col2  .label1 .label2  NX                                  */
 /*      NX   cannot be used with other options                          */
  "MACRO (RANGE)"
 /* SCRIPT CONVERSION TO PAGE USAGE -- D.MCR                        */
 "SEEK ALL" RANGE "':P. ' 1"
 "(LICNT1S,LICNT2L) = SEEK_COUNTS"
 LICNT1S=LICNT1S+0; LICNT2L=LICNT2L+0
 IF LICNT1S = 0 THEN  DO
    "LINE_BEFORE .ZF = NOTELINE """"TIME("N") FIXP     ",
           "-- NO CHANGES - NO BLANKS AFTER ':P.' IN COLUMN 1"""
    EXIT 0
 END
 "LINE_BEFORE .ZF = NOTELINE """"TIME("N") FIXP     -- ",
              "********* CHANGES ********** ':P.' IN COLUMN 1"""
 IF RANGE. = "" THEN  RANGE = ".ZF"  .ZL
 "EXCLUDE ALL" RANGE
 "FIND ALL" RANGE "':P. ' 1"
 "(VAR016) = DATA_WIDTH"
 "(VAR057) = RECFM"
 IF VAR057 = "V" THEN  VAR016 = VAR016  - 4
 "Change ALL" RANGE "NX 1" VAR016 "' ' '›'"
 "Change ALL" RANGE "NX 1" VAR016 "' ' '›'"
 "Change ALL" RANGE "NX 1 ':P.›››' ':P.'"
 "Change ALL" RANGE "NX 1 ':P.››' ':P.'"
 "Change ALL" RANGE "NX 1 ':P.›' ':P.'"
 "Change ALL" RANGE "NX 1 ':P.›' ':P.'"
 "Change ALL" RANGE "NX 1" VAR016 "'›' ' '"
 "Change ALL" RANGE "NX ':            '",
           "X'508794934B404040404040404040404040'"
 "(IMACRO) = IMACRO"
 "LOC 0"