Mike: Have you made use of the SET TIMEOUT setting? You can set it to something like 120 (2 hours) and if there is no KEYBOARD (important point) activity R:BASE will exit itself on a given workstation thus freeing up the database. I had an epiphany lately whereby some of my programs were "mysteriously" terminating at the 2 hour mark. I checked, re-checked and redesigned my code to no avail when it suddenly occurred to me late one night that it was my TIMEOUT setting --- set at guess what? 120 minutes. D'OH! I missed the vital point about keyboard activity. If R:BASE is running a series of programs that do not require user input and that exceed the TIMEOUT setting it will still obediently exit. In your case, if your users are leaving R:BASE running when they leave for the day, the TIMEOUT setting might prove very useful. Just a thought. Mike Ramsour
-----Original Message----- From: mike epstein sony viao office [mailto:[EMAIL PROTECTED] Sent: Thursday, October 16, 2008 6:33 AM To: [email protected] 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 --- RBASE-L ================================================ TO POST A MESSAGE TO ALL MEMBERS: Send a plain text email to [email protected] (Don't use any of these words as your Subject: INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH, REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP) ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [email protected] In the message SUBJECT, put just one word: INTRO ================================================ TO UNSUBSCRIBE: Send a plain text email to [email protected] In the message SUBJECT, put just one word: UNSUBSCRIBE ================================================ TO SEARCH ARCHIVES: Send a plain text email to [email protected] In the message SUBJECT, put just one word: SEARCH-n (where n is the number of days). In the message body, place any text to search for. ================================================
