©
serviceprofessionalgmbh
Überlagert den Spaltenbereich zwischen 45 und 72 mit Kommentarbeginn und -ende fuer REXX/CLIST, sofern die Zeile im
entsprechenden Bereich keine Einträge hat.
/* 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
zurück zu Edit Makros