blob: 8731c5d8d8e766dd9c9635ea4aed69a82d871d3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
PACKET dbreorganisationauftragDEFINES reorganisierenderanwendungsdaten:PROC
reorganisierenderanwendungsdaten:LET namederzieltask="DB REORG";TASK VAR
zieltask;LET order=1;INT VAR ok;DATASPACE VAR ds;BOOL VAR fehler:=FALSE ;LET
meldnrbittewarten=69,meldnrkeinereorgtask=90,meldnrreorgerfolgreich=91,
meldnrreorgnichtok=92;disablestop;zieltask:=/namederzieltask;IF iserrorTHEN
fehler:=TRUE ;clearerrorFI ;enablestop;IF fehlerTHEN standardmeldung(
meldnrkeinereorgtask,"");return(1)ELSE standardmeldung(meldnrbittewarten,"");
ds:=nilspace;call(zieltask,order,ds,ok);forget(ds);fehler:=ok>0;IF fehler
THEN standardmeldung(meldnrreorgnichtok,"");return(1)ELSE standardmeldung(
meldnrreorgerfolgreich,"");return(1)FI FI END PROC
reorganisierenderanwendungsdaten;END PACKET dbreorganisationauftrag
|
