Thanks for the code. I have to update my databases, update rbase users, update oterro users, and recompile my apps.
Maybe they will make R:Update... It sounds like a weekend project for me. Dan Goldberg -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Ramsour Mike Sent: Tuesday, September 09, 2008 2:23 PM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: R:BASE 7.6 and Turbo V-8 Updates (09/09/2008) 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:[EMAIL PROTECTED] 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
