/* REXX -- converted to REXX on 1994/06/03 */
ADDRESS "ISREDIT"
/*EDITPAGE  AUTHOR: DAVID MCRITCHIE, CREATED 1988/01/29 IS03    */
/*          AT "The REXX Macros Toolbox", DMcRitchie@hotmail.com */
/*          UPDATED 1988/02/02 20:27 IS03A                      */
/* Purpose: To identify members and specific text that may have to be
            changed in upgrading from line printers (1403, 38PP) to
            page printing (3820, 4028), and/or PostScript (PS). */
 "MACRO (macarg)"
 macarg = translate(macarg)
 "Exclude ALL"
 ERR = 0
 "SEEK ALL ':Q.'"
 "(OQCNT1S,OQCNT2L) = SEEK_COUNTS"
 oqcnt1s=oqcnt1s+0; oqcnt2l=oqcnt2l+0
 "SEEK ALL ':EQ.'"
 "(CQCNT1S,CQCNT2L) = SEEK_COUNTS"
 cqcnt1s=cqcnt1s+0; cqcnt2l=cqcnt2l+0
 IF OQCNT1S \= CQCNT1S THEN DO
    "LINE_BEFORE .ZF = NOTELINE """time("n")  ":Q.",
    OQCNT1S ":EQ." CQCNT1S " -- PLICHK MAY HELP"""
    ERR = ERR  + 1
 END
 "SEEK ALL ':HP1'"
 "(OQCNT1S,OQCNT2L) = SEEK_COUNTS"
 oqcnt1s=oqcnt1s+0; oqcnt2l=oqcnt2l+0
 "SEEK ALL ':EHP1'"
 "(CQCNT1S,CQCNT2L) = SEEK_COUNTS"
 cqcnt1s=cqcnt1s+0; cqcnt2l=cqcnt2l+0
 IF OQCNT1S \= CQCNT1S THEN DO
    "LINE_BEFORE .ZF = NOTELINE """time("n")  ":Q.",
    OQCNT1S ":EQ." CQCNT1S "-- PLICHK MAY HELP"""
    ERR = ERR  + 1
 END
 signal SKIP1    /* ------- Signal ----------*/
 "Find '38PP' WORD FIRST"
 IF rc = 0 then IF ERR = 0 then do; "end"; exit 0; end;
SKIP1:
 "Find '.TB' ALL"
 "Find '.TP' ALL"
 "Find '.BX' ALL"
 "Find '.BF' ALL"
 "Find '.PF' ALL"
 "Find '+--' ALL"
 "Exclude 1 '.BX      ' ALL"
 "Exclude 1 '.BX OFF    ' ALL"
 "Exclude 1 '.BX CAN    ' ALL"

 "Find FIRST P'^' NX"
 IF rc \= 0 & X = "" then Do; "END"; Exit 0; end

 "SEEK ALL ':Q.'"
 "(OQCNT1S,OQCNT2L) = SEEK_COUNTS"
 oqcnt1s=oqcnt1s+0; oqcnt2l=oqcnt2l+0
 "SEEK ALL ':EQ.'"
 "(CQCNT1S,CQCNT2L) = SEEK_COUNTS"
 cqcnt1s=cqcnt1s+0; cqcnt2l=cqcnt2l+0
 IF OQCNT1S \=  CQCNT1S THEN DO
    call note "FIXQUOTE results" time("n") ":Q.",
       OQCNT1S ":EQ.="CQCNT1S "-- PLICHK may help"
    "Find FIRST "Q." NX"
    ERR = ERR  + 1
 END
 IF OQCNT2L \= CQCNT2L THEN DO
     call note "FIXQUOTE MATCHED("CQCNT1S"), --lines unmatched--",
          ":Q." OQCNT2L", :EQ" CQCNT2L "--PLICHK may help"
 END
 call note "FIXQUOTE" Substr(time("n"),1,5),
      "looks good MATCHED" OQCNT1S,
      ":Q strings to :EQ. on" OQCNT2L "lines"
 "SEEK ALL '""' "
 "(CQCNT1S,CQCNT2L) = SEEK_COUNTS"
 IF CQCNT1S \= 0 THEN DO
     cqcnt1s=cqcnt1s+0; cqcnt2l=cqcnt2l+0
     call note "   However, found" cqcnt1s "stray orphan double",
         "quotes -- PLICHK MAY HELP"
     "Find FIRST ""Q."" NX"
 END
 "(VAR014A) = DATA_CHANGED"
 IF macarg = "END" THEN IF VAR014A = "NO" THEN "END"
 return

note:  parse arg arg
    "LINE_BEFORE .ZFIRST = NOTELINE (arg)"
  return