Steve:
--COMPRIME.MAC verifica integridad base de datos, verifica espacio en disco
y hace reload
--Ramiro Mendez 12/V/95
CLS
SET QUOTES="
WRI "IMPORTANT" AT 1,30
WRI "Run this process only if you have a backup !" AT 3,12
FILLIN SINO=0 USING "Do you want to continue [Y/N]?" AT 5,12
IF SINO NE "Y" THEN
RETURN
ENDIF
WRI "CHECKING DATABASE INTEGRITY" AT 10,20
WRI "Please wait........" AT 11,20
DISCONNECT
SET ERROR VAR EVAR
AUTOCHK ADMINIS
SET VAR E1=.EVAR
IF E1 > 40 THEN
CLS
WRI "The database has errors. The process was aborted." AT 10,20
WRI "Please notify to the Systems Unit" AT 11,20 BLINK
WRI "Press a key to end........" AT 14,20
BEEP
PAUSE
RETURN
ENDIF
CLS
CONNECT ADMINIS
SET MESS OFF
SET ERROR MESS OFF
--check for disk space
SET VAR AA=(ISTAT("DBSIZE")), BB=(ISTAT("DISKSPACE"))
IF AA > BB THEN
CLS
WRI "Not enought Disc space, the process was aborted."
BEEP
WRI "Press any key to end......."
PAUSE
RETURN
ENDIF
MD \TEMP
DEL \TEMP\ADMINIS.RB?
CLS
WRI "Working, please wait..............." AT 12,20 BLINK
RELOAD \TEMP\ADMINIS
DISCONNECT ADMINIS
DEL ADMINIS.RB?
COPY \TEMP\ADMINIS.RB?
DEL \TEMP\ADMINIS.RB?
CONNECT ADMINIS
RETURN
Best regards,
Ramiro M�ndez Pab�n
BOLIVIA - South America
"Fogelson, Steve"
<[EMAIL PROTECTED]
commercesolutions Para
.net> [EMAIL PROTECTED] (RBASE-L Mailing
Enviado por: List)
[EMAIL PROTECTED] cc
Asunto
18/06/2004 02:18 [RBASE-L] - DB Maintenance
p.m.
Por favor,
responda a
[EMAIL PROTECTED]
Wanted to see if someone had a batch file for their nightly db maintenance
they would be willing to share.
Not sure how you run R:Base by itself in a batch file.
Hoping it will include autochk and a check to see if it ran ok. Not sure
how
to check for autochk success.. Also reload or unload.
Thanks
Steve Fogelson
Internet Commerce Solutions
