Anne
-------- Original Message --------
Subject: [RBASE-L] - RE: R:BASE 7.6 and Turbo V-8 Updates (09/09/2008)
From: Ramsour Mike <[EMAIL PROTECTED]>
Date: Tue, September 09, 2008 5:22 pm
To: [email protected] (RBASE-L Mailing List)
Dan:
FWIW I am in the process of upgrading at this moment. I created an R:BASE
script that automates the unloading and renaming in preparation for the
upgrade. I will use the same basic structure to do the reload portion after
the update.
If you're interested here is the code. The program creates a list of
database names in a given directory and then loops through each database
name, creating variables that take care of the various names needed for
unloading, renaming, etc. It's working well for me.
-- start code
CONNECT MAINDATA (or whatever database you choose)
--
SET ERROR MESSAGES OFF
--
CLEAR VAR VDB%
--
CLS
--
SET VAR RBVERSION TEXT = (SGET((CVAL('BUILD')),3,1))
--
SET VAR VDB_NAME TEXT = NULL
--
SET VAR VDB_ORIG TEXT = NULL
--
SET VAR VDB_BKUP TEXT = NULL
--
SET VAR VDB_FILE TEXT = NULL
--
SET VAR VDB_CNT INTEGER = NULL
--
SET VAR VDB_CNTR INTEGER = 1
--
SET VAR VDB_LIST NOTE = NULL
--
DROP TABLE TDBLIST
--
CREATE TEMPORARY TABLE TDBLIST (TDBNAME TEXT 8)
--
SET VAR VDB_CMD TEXT = ('DIR *.' + (IFLT(.RBVERSION,'8.0','RB1','RX1')))
--
OUTPUT DB.$$$
--
&VDB_CMD
--
OUTPUT SCREEN
--
LOAD TDBLIST FROM DB.$$$
--
DELETE FROM TDBLIST WHERE TDBNAME IN ('VOLUME','DIRECTOR')
--
SELECT (COUNT(*) - 2) INTO VDB_CNT FROM TDBLIST
--
DELETE ROWS FROM TDBLIST WHERE COUNT > .VDB_CNT
--
SET VAR VDB_LIST TEXT = (LISTOF(TDBNAME)) FROM TDBLIST
--
DROP TABLE TDBLIST
--
DELETE DB.$$$
--
DISCONNECT
--
CLS
--
WHILE VDB_CNTR <= .VDB_CNT THEN
--
SET VAR VDB_NAME TEXT = (SSUB(.VDB_LIST,.VDB_CNTR))
--
SET VAR VDB_ORIG TEXT = (.VDB_NAME + '.RX?')
--
SET VAR VDB_BKUP TEXT = ('BKUP_' + .VDB_NAME + '.RX?')
--
SET VAR VDB_FILE TEXT = (.VDB_NAME + '.ALL')
--
CONNECT &VDB_NAME
--
OUTPUT .VDB_FILE
--
UNLOAD ALL
--
OUTPUT SCREEN
--
DISCONNECT
--
RENAME .VDB_ORIG .VDB_BKUP
--
SET VAR VDB_CNTR INTEGER = (.VDB_CNTR + 1)
--
CLS
--
ENDWHILE
--
RETURN
-- end code
Hope that helps.
Mike Ramsour
AK Steel Coshocton Works
Quality Department
Phone/VMS: 740-829-4340
-----Original Message-----
From: Dan Goldberg [mailto:dang@lancecamper.com]
Sent: Tuesday, September 09, 2008 5:15 PM
To: [email protected]
Subject: [RBASE-L] - RE: R:BASE 7.6 and Turbo V-8 Updates (09/09/2008)
Wow, it looks like the V-8 update is more involved.
I was wondering if anybody has tried it yet??
Dan Goldberg
