KFK2666.pdf

-204- 6-44
Beispiel
MESSAGE COUNT (N_ERROR) ERROR;
Die Zahl der Nachrichten vom Level ERROR, die seit dem
letzten Nullsetzen des ERROR-Zählwertes aufgetreten sind,
werden in N ERROR gespeichert.
MESSAGE RESET W;
DO I = 1 TO 500;
CALL UNTERPROGRAMM;
END;
MESSAGE COUNT(K) WARNING;
MESSAGE COUNT(Kl) W TOTAL;
PUT LIST (K,Kl);
Es wird gezählt, wieviele Nachrichten vom Level WARNING
bei den 500 Aufrufen von UNTERPROGRAMM erzeugt wurden.
Das Ergebnis wird in K gespeichert und ausgedruckt. Die
Gesamtzahl der in diesem Lauf bisher überhaupt erzeugten
Nachrichten vom Level WARNING wird in Kl gespeichert und
gedruckt.