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