KFK2666.pdf

-122-
Beisriel
Erläuterung
xSUBSYSTEM SSS.
xf10UUL C.
C: PRDC.
4-60
DCL A ENTRY DYNAMIC;
MESSAGE INACTIVE W;
MESSAGE RESET W.
K=O;
00 WHILE (----).
K=K.L1,
CALL A.
END;
MESSAGE COUNT(K1) W;
IF K1x2 K THEN
MESSAGE ERROR
TEXT ('MODULE A ZU MEHR ALS
'50 PROZENT NICHT FEHLERFREI').
MESSAGE ACTIVE W.
Im Modul C wird der Modul A in einer Schleife mehrfach aufgerufen,
so lange die unter WHILE(---) angegebene Bedingung er­
füllt ist. Die Zahl der Aufrufe von A wird in der Variablen K
gezählt.
Der Subsystemersteller erwartet. daß im Modul A gelegentlich
oder häufig Nachrichten vom Level Werzeugt werden. Da er sie
nicht zum Ausdrucken bringen will. inaktiviert er diesen Level
vor der Schleife. Ebenfalls vor der Schleife wird das Nachrich­
tenzählwerk für W auf 0 gesetzt.
Nach Beendigung der Schleife kann nun der Stand des Zählwerks
für W-Nachrichten abgefragt werden. In diesem Fall wird es in K1
übertragen. Anhand dieser Information kann der Subsystemerstel­
ler Entscheidungen über den Programmablauf planen. In diesem
Fall will er eine Nachricht vom Level E erzeugen. falls bei mehr
als der Hälfte der Aufrufe von A eine Nachricht der Klasse W
erzeugt worden war. Abschließend wird der ursprüngliche Aktivierungsgrad
der Nachrichten vom Level W wiederhergestellt.