From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 Feb 2019 13:09:03 +0100 Subject: Initial import --- app/baisy/2.2.1-schulis/src/db reorganisation auftrag | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 app/baisy/2.2.1-schulis/src/db reorganisation auftrag (limited to 'app/baisy/2.2.1-schulis/src/db reorganisation auftrag') 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 + -- cgit v1.2.3