/* REXX    DECOMM      Remove all empty comment blocks.
*/
address ISREDIT
"MACRO (OPTS)"
upper opts
parse var opts  "TRACE" tv .
parse value tv "N"   with   tv  .
rc = Trace("O") ;  rc = Trace(tv)

"X ALL"
where = "FIRST"
do forever
   "F '615c'x" where
   if rc > 0 then leave
   where = "NEXT"
   "(line) = LINE  .ZCSR"
   startp = Pos('615c'x,line)          /* start of comment           */
   endp   = Pos('5c61'x,line,startp)   /* end of comment             */
   if endp = 0 then iterate            /* end comment on next line   */
   commtext = Substr(line,startp+2,endp-startp-2)
   if Strip(commtext) = "" then do
      line = Strip(Delstr(line,startp,endp-startp+2),"T")
      "LINE .ZCSR = (line)"
      end                              /* commtext empty             */
end                                    /* forever                    */
exit                                   /*@ DECOMM                    */