Thx Razzak. I noticed that you are not using the set scratch tmp option. Should I use the c:\temp instead?
Dan Goldberg -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of A. Razzak Memon Sent: Thursday, January 26, 2017 9:49 AM To: [email protected] Subject: Re: [RBASE-L] - At my wits end Dan, Here's are two typical application startup files to optimize your application environment. 01. In a STATICDB ON environment: -- Example 01 -- Start here .. -- MyApp.DAT Startup Application File -- Start Fresh DISCONNECT CLEAR ALL VARIABLES SET QUOTES=NULL SET QUOTES=' IF (CHKFILE('C:\Temp')) <> 1 THEN MD C:\Temp ENDIF SET SCRATCH C:\Temp SET DELIMIT=NULL SET DELIMIT=',' SET LINEEND=NULL SET LINEEND='^' SET SEMI=NULL SET SEMI=';' SET PLUS=NULL SET PLUS='+' SET SINGLE=NULL SET SINGLE='_' SET MANY=NULL SET MANY='%' SET IDQUOTES=NULL SET IDQUOTES='`' SET CURRENCY '$' PREF 2 B SET STATICDB ON SET ROWLOCKS ON SET FASTLOCK ON SET PAGELOCK OFF SET MESSAGES OFF SET ERROR MESSAGES OFF SET ERROR MESSAGE 2495 OFF CONNECT dbname IDENTIFIED BY ownername SET ERROR MESSAGE 2495 ON SET MESSAGES ON SET ERROR MESSAGES ON -- Check the availability of database IF SQLCODE = -7 THEN CLS PAUSE 2 USING 'Unable to Connect the Database.' + CAPTION ' Your Application Caption Here ...' + ICON WARNING + BUTTON 'Press any key to continue ...' + OPTION BACK_COLOR WHITE + |MESSAGE_FONT_NAME Tahoma + |MESSAGE_FONT_COLOR RED + |MESSAGE_FONT_SIZE 11 CLOSEWINDOW EXIT ENDIF -- Enforce Database Default Settings SET QUOTES=' SET DELIMIT=',' SET LINEEND='^' SET SEMI=';' SET PLUS='+' SET SINGLE='_' SET MANY='%' SET IDQUOTES='`' SET CURRENCY '$' PREF 2 B SET NULL ' ' SET DATE FORMAT MM/DD/YYYY SET DATE SEQUENCE MMDDYY SET DATE YEAR 30 SET DATE CENTURY 19 CLS -- EDIT USING ApplicationMainMenu -- OR -- REFF ApplicationMainMenu RETURN -- End here ... 02. In a non STATICDB ON environment: -- Example 02 -- Start here .. -- MyApp.DAT Startup Application File -- Start Fresh DISCONNECT CLEAR ALL VARIABLES SET QUOTES=NULL SET QUOTES=' IF (CHKFILE('C:\Temp')) <> 1 THEN MD C:\Temp ENDIF SET SCRATCH C:\Temp SET DELIMIT=NULL SET DELIMIT=',' SET LINEEND=NULL SET LINEEND='^' SET SEMI=NULL SET SEMI=';' SET PLUS=NULL SET PLUS='+' SET SINGLE=NULL SET SINGLE='_' SET MANY=NULL SET MANY='%' SET IDQUOTES=NULL SET IDQUOTES='`' SET CURRENCY '$' PREF 2 B SET ROWLOCKS ON SET FASTLOCK ON SET PAGELOCK OFF SET MESSAGES OFF SET ERROR MESSAGES OFF SET ERROR MESSAGE 2495 OFF CONNECT dbname IDENTIFIED BY ownername SET ERROR MESSAGE 2495 ON SET MESSAGES ON SET ERROR MESSAGES ON -- Check the availability of database IF SQLCODE = -7 THEN CLS PAUSE 2 USING 'Unable to Connect the Database.' + CAPTION ' Your Application Caption Here ...' + ICON WARNING + BUTTON 'Press any key to continue ...' + OPTION BACK_COLOR WHITE + |MESSAGE_FONT_NAME Tahoma + |MESSAGE_FONT_COLOR RED + |MESSAGE_FONT_SIZE 11 CLOSEWINDOW EXIT ENDIF -- Enforce Database Default Settings SET QUOTES=' SET DELIMIT=',' SET LINEEND='^' SET SEMI=';' SET PLUS='+' SET SINGLE='_' SET MANY='%' SET IDQUOTES='`' SET CURRENCY '$' PREF 2 B SET NULL ' ' SET DATE FORMAT MM/DD/YYYY SET DATE SEQUENCE MMDDYY SET DATE YEAR 30 SET DATE CENTURY 19 CLS -- EDIT USING ApplicationMainMenu -- OR -- REFF ApplicationMainMenu RETURN -- End here ... For more technical details ... http://www.razzak.com/fte/ Article: Optimizing R:BASE Cloud Applications Date Published: 12/21/2016 Hope that helps! Razzak At 10:54 AM 1/26/2017, Dan Goldberg wrote: >For a while now I have been battling with regular database corruption >that happens at least every other week. Also we get a lot of "cannot >connect to database" when opening rbase or compiled apps. > >I have checked every computer to see if there are any issues that >connect to it as well as power saving feature, moved the database to a >new server without any luck. I get the "cannot connect to database" on >the server that is running a compile app locally from time to time as >well. > >I have done a complete database unload/load several times to find any >underlining errors but no avail. > >It is like a needle in a haystack and it is frustrating. > >I was thinking something to do with our Anti-virus(Avast for >Business) but the server is not running one. > >Anybody have any pointers on how to figure it out the source of corruption? -- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout. -- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
