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.
