diff options
Diffstat (limited to 'app/baisy/2.2.1-schulis/src/db reorganisation auftrag')
| -rw-r--r-- | app/baisy/2.2.1-schulis/src/db reorganisation auftrag | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/db reorganisation auftrag b/app/baisy/2.2.1-schulis/src/db reorganisation auftrag new file mode 100644 index 0000000..8731c5d --- /dev/null +++ b/app/baisy/2.2.1-schulis/src/db reorganisation auftrag @@ -0,0 +1,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 + |