blob: 27dfea232aba69db8108b085eba998426a048da0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
PACKET logeintragDEFINES logeintrag:LET eintragtextorder=201,nak=1,
logmanagername="LOG";INT VAR reply;BOUND TEXT VAR msg;PROC logeintrag(TEXT
CONST messagetext):INT VAR dummy;logeintrag(messagetext,dummy)END PROC
logeintrag;PROC logeintrag(TEXT CONST messagetext,INT VAR returncode):
DATASPACE VAR ds:=nilspace;msg:=ds;CONCR (msg):=messagetext;logauftrag(
eintragtextorder,ds,returncode);forget(ds).END PROC logeintrag;PROC
logauftrag(INT CONST opcode,DATASPACE VAR ds,INT VAR returncode):
verschickeauftrag;bearbeiteggfantwort.verschickeauftrag:
verschickeauftrageinmal;verschickeauftragggfnochmal.verschickeauftrageinmal:
call(/logmanagername,opcode,ds,reply).verschickeauftragggfnochmal:WHILE
auftragnichtangenommenREPEAT pause(10);verschickeauftrageinmalEND REPEAT .
auftragnichtangenommen:reply=nak.bearbeiteggfantwort:returncode:=reply.END
PROC logauftrag;END PACKET logeintrag
|
