© serviceprofessionalgmbh

Das Macro addiert alle numerischen Inhalte des betreffenden Bereiches und gibt die Summe aus. Der Bereich wird über Start-Parameter oben links unten rechts festgelegt.

/* REXX * EDIT MACRO *************************************************/
/*                                                                   */
/* Macroname.: $SUM                                                  */
/*                                                                   */
address isredit
"macro (oben,links,unten,rechts)"
sum=0
do cnt=oben to unten
   "(zeile) = line" cnt
   bereich=substr(zeile,links,rechts-links+1)
   if datatype(bereich) = 'NUM' then sum=sum + bereich
end
befehl="line_after" unten "= noteline '"right(sum,rechts)"'"
interpret 'address isredit "'befehl'"'
zedsmsg=sum
zedlmsg="Ergebnis der Summenbildung Zeile" oben "Spalte" links
zedlmsg=zedlmsg "bis Zeile" unten "Spalte" rechts "ist" sum
address ispexec "setmsg msg(isrz000)"
exit
zurück zu Edit Makros