© serviceprofessionalgmbh

Overlays the columns 45 to 72 with start of comment and end of comment for REXX/CLIST if this range was blanks only.

/* REXX * EDIT MACRO *************************************************/
/*                                                                   */
/* Macroname.: $CMLINE                                               */
/*                                                                   */
address isredit
"macro (links rechts) NOPROCESS"
"(recl) = lrecl"
do forever
   select
      when datatype(links)  = 'CHAR' ! datatype(rechts) = 'CHAR' then
           zedlmsg="Spaltenangaben müssen numerisch sein"
      when rechts > recl then
           zedlmsg="Rechte Grenze liegt ausserhalb des Datensatzes"
      when rechts - links < 10 then
           zedlmsg="Linke und Rechte Begrenzung nicht akzeptabel"
      otherwise leave
   end
   zedsmsg="Sorry..."
   address ispexec "setmsg msg(isrz000)"
   exit 2
end
"process range $"
if rc > 0 then do
   zedsmsg="Sorry..."
   zedlmsg="Ueberlagerungsbereich $, $n oder $$ muss angegeben werden"
   address ispexec "setmsg msg(isrz000)"
   exit 2
end
rechts = rechts - 1
"(von) = linenum .zfrange"
"(bis) = linenum .zlrange"
do zeile = von to bis
   "(linedata) = line" zeile
   if strip(substr(linedata,links,2)!!substr(linedata,rechts,2))='' then
   "line" zeile "= line + <" links "'/*'" rechts "'*/' >"
end
exit