hey Mike!
I run into situations that a var doesn't work in the syntax so I've done stuff
like...
set var xSyn text =('RENAME PLUMBER.RB? +'.NDBNM'+.RB?')
&xSyn
clear var xSyn
Okay my turn!!! I too reload my database using the following code and if you're
using full RBase it works great but I can't get it to go using compiler yet...
SET ERROR MESSAGES OFF
SET VAR xChexCon TEXT = (CVAL('CONNECTIONS'))
IF xChexCon > '1' THEN
SET VAR vAlertCap = 'Can Not Reload'
SET VAR vAlertHdr = 'There are other users connected.'
SET VAR vAlertMsg = 'highwaR:e can not reload with other user
connections.'
EDIT USING zGenAppAlertOkay
CLEAR VAR xChexCon
RETURN
ENDIF
CLEAR VAR xChexCon
CLS
SET VAR vPauseMessage = ((CHAR(013))&'highwaRe is reloading...'+(CHAR (009))+
(CHAR(013))+ (CHAR+
(013))+' Please wait...')
CALL Pause3 ()
DISCONNECT
SET STATICDB OFF
CONNECT WCP IDENTIFIED BY
DELETE WCPbk.rx?
COPY WCP.rx? WCPbk.rx?
RELOAD WCPrld
SET VAR vChkFile = (CHKFILE('WCPrld.rx?'))
IF vChkFile > 0 THEN
CLEAR ALL VAR EXCEPT g%
DISCONNECT
DELETE WCP.rx?
RENAME WCPrld.rx? WCP.rx?
SET STATICDB ON
CONNECT WCP IDENTIFIED BY
CLS
SET VAR vAlertCap = 'Reload Successful!'
SET VAR vAlertHdr = 'highwaR:e was able to reload.'
SET VAR vAlertMsg = +
'The database was reloaded and is good to GO!! If issues with
reloaded DB, delete WCP and rename WCPbk to WCP.'
EDIT USING zGenAppAlertOkay
ELSE
CLS
SET VAR vAlertCap = 'Reload Error'
SET VAR vAlertHdr = 'highwaR:e was not able to reload.'
SET VAR vAlertMsg = +
'The database was not reloaded due to resources or other connected
users.'
EDIT USING zGenAppAlertOkay
ENDIF
RETURN
Have a Fabulous Day!
Rachael M.
Freelance Developer
www.DragonflyDevelopmentMN.com
----- Original Message -----
From: Walker, Buddy
To: RBASE-L Mailing List
Sent: Thursday, October 16, 2008 5:45 AM
Subject: [RBASE-L] - RE: renaming a database using a variable
Mike
You have to either delete or rename the database you are trying to rename
to first.
DELETE &NDBNM.RB?
RENAME PLUMBER.RB? &NDBNM.RB?
Buddy
------------------------------------------------------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of mike epstein
sony viao office
Sent: Thursday, October 16, 2008 6:33 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - renaming a database using a variable
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
