Mike, you need to add the rest of the name to the variable. Have you tried the
following...
SET VAR NDBNM TEXT = ('ZPL'+.SVD2 + '.rb?')
The rename command would be...
RENAME PLUMBER.RB? &ndbnm
Try a test run down to this point and see if it doesn't change the name of the
database.
Gary
----- Original Message ----
From: mike epstein sony viao office <[EMAIL PROTECTED]>
To: RBASE-L Mailing List <[email protected]>
Sent: Thursday, October 16, 2008 5:33:04 AM
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
