/* REXX    REBLOCK        Change all BLKSIZE=xxxxx to BLKSIZE=0
*/
address ISREDIT
"MACRO (opts)"
upper opts
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace("O"); rc = Trace(tv)

"RENUM"
"UNNUM"
"X ALL"
"F ALL 'BLKSIZE='"
"F FIRST NX 'BLKSIZE=' "
do while rc=0
   "(text) = LINE .zcsr"               /* acquire text               */
   parse var text  front "BLKSIZE="  back
   back = Strip(back)
   pt = Verify(back,"0123456789")      /* locate non-numeric         */
   parse var back  blk =(pt) back
   if blk <> 0 then do                 /* fix blocksize              */
      text = front"BLKSIZE=0"back "("blk")"
      "LINE .zcsr = (text)"
      end                              /* fix blocksize              */

   "F NEXT  NX 'BLKSIZE=' "
end                                    /* rc=0                       */

exit                                   /*@ REBLOCK                   */