RE: [RBASE-L] - At my wits end

A. Razzak Memon Thu, 26 Jan 2017 10:37:10 -0800

At 01:12 PM 1/26/2017, Dan Goldberg wrote:

Thx Razzak. I noticed that you are not using the set scratch tmpoption. Should I use the c:\temp instead?


Yes.

Those two startup files below are "models" of all "my applications",running in a Local, LAN, WAN, and Cloudenvironments, along with very complex business "Web Portals" usingOterro XE, Node.js, and Java applications.

Feel free to reach out to me if you need further assistance, or wouldlike to see all those applications in

a very busy multi-user environments.

Consistency, and creating a perfect environment is the key to asmooth operation for your R:BASE application.


Very Best R:egards,

Razzak

-----Original Message-----

From: rbase-l@googlegroups.com [mailto:rbase-l@googlegroups.com] OnBehalf Of A. Razzak Memon

Sent: Thursday, January 26, 2017 9:49 AM
To: rbase-l@googlegroups.com
Subject: Re: [RBASE-L] - At my wits end

Dan,

Here's are two typical application startup files to optimize yourapplication 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 rbase-l+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

RE: [RBASE-L] - At my wits end

Reply via email to