blob: c26715d65c1dd3678c0978a2b5e585550fa03822 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
PACKET dbreorganisationmanagerDEFINES dbreorganisationmanager:INT VAR order;
DATASPACE VAR ds;TASK VAR ordertask;BOOL VAR reorgok;INT VAR returncode;LET
ack=0,nak=1;LET reorganisieren=1;LET dbname="EUMELbase.schulis";PROC
dbreorganisationmanager:setautonom;disablestop;break;REP warteaufauftrag;
fuehreaus;meldezurueckPER .warteaufauftrag:wait(ds,order,ordertask).fuehreaus
:reorgok:=TRUE ;IF order=reorganisierenTHEN datenbankreorganisieren(reorgok);
IF reorgokTHEN returncode:=ackELSE returncode:=nakFI ;FI .meldezurueck:forget
(ds);ds:=nilspace;send(ordertask,returncode,ds).END PROC
dbreorganisationmanager;PROC datenbankreorganisieren(BOOL VAR ok):
commanddialogue(FALSE );forget(all);commanddialogue(TRUE );ok:=TRUE ;postfix(
"");fetchdb(dbname);BOOL VAR b:=dbopen(dbname);reorgdb;IF iserrorTHEN ok:=
FALSE ;clearerrorFI ;IF okTHEN restoredb(dbname)FI ;commanddialogue(FALSE );
forget(all);commanddialogue(TRUE );END PROC datenbankreorganisierenEND
PACKET dbreorganisationmanager
|
