Good Morning
I have found it useful to reload my database each day . this can present
some problems especially if there are work stations that are connected .
I have tried to create a cmd file to disconnect and then rename the
existing database so that when a reload is done the reloaded database is not
the back up.
Below is the code I have tried but the line 'rename database.rb? .newdbname
doesn't seem to work . I'm sure it's something simple.
DISCONNECT PLUMBER
SET VAR VD DATE = .#DATE
SET VAR VD TEXT
SET VAR SVD TEXT = (SSTRIP(.VD ,'/'))
SET VAR SVD2 TEXT = (SGET(.SVD,4,1))
SET VAR NDBNM TEXT = ('ZPL'+.SVD2)
RENAME PLUMBER.RB? .NDBNM.RB?
LABEL ONE
CONNECT
SET VAR VMSG3 TEXT = ('PLEASE CONNECT TO '& .NDBNM)
IF (CVAL('DATABASE')) <> .NDBNM THEN
PAUSE 3 USING .VMSG3
GOTO LABEL ONE
ENDIF
SET MULTI OFF
SET VAR vmsg TEXT
SET VAR vmsg = ('Line 1:'+(CHAR(009))+(CHAR(009))&'ARE YOU READY TO RELOAD
PLUMBER FROM' &(CTXT(.ndbnm))+(CHAR(013)))
DIALOG .vmsg vyesno vendkey yes +
CAPTION ' RELOADS THE DATABASE' +
ICON APP +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &YES +
|BUTTON_NO_CAPTION &NO +
|BUTTON_YES_COLOR GREEN +
|BUTTON_NO_COLOR RED +
|BUTTON_YES_FONT_COLOR WHITE +
|BUTTON_NO_FONT_COLOR WHITE
IF vyesno = 'NO' THEN
GOTO end3
ENDIF
SET ERROR MESSAGES ON;SET MESSAGES ON;SET ECHO ON
RELOAD PLUMBER
CONNECT PLUMBER
SET MULTI ON
SET ERROR MESSAGES OFF;SET MESSAGES OFF;SET ECHO OFF
IF VYESNO = 'YES' THEN
GOTO END4
LABEL END3
PAUSE 3 USING 'THE DATABASE HAS NOT BEEN RELOADED'
LABEL END4
RETURN
