At 01:07 PM 8/18/2014, Albert Berry wrote:
I received an error when attempting to update the configurations. After a
bit of a search, I discovered that permissions were denied to USER - even
though the user using the application has administrator permissions. I
changed the permissions (while still logged on as the same user [!]) and
the update took.
Windows 7 Pro 64 bit, R:Base 9.5 (64)
While customizing the R:BASE eXtreme 9.5 Configuration (RBENGINE95_32.CFG,
RBENGINE95_64.CFG) files is a good idea, it is always advantageous to
programmatically and/or dynamically configure and enforce your environment
or database settings in your application startup file.
Having the power to do so, you never have to muck with user permissions.
Here's a very simple example to incorporate and enforce database settings
in application's startup external form file.
-- Example
-- Application Startup Settings
-- Start here
SET QUOTES=NULL
SET QUOTES='
IF (SGET(CVAL('VERSION'),2,21)) = '64' THEN
SET NAMEWIDTH 40
ENDIF
DISCONNECT
IF (CHKFILE('C:\Temp')) <> 1 THEN
MD C:\Temp
ENDIF
SET SCRATCH C:\Temp
SET QUOTES=NULL
SET QUOTES='
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 DATE FORMAT MM/DD/YYYY
SET DATE SEQUENCE MMDDYY
SET DATE YEAR 30
SET DATE CENTURY 19
SET TIME FORMAT HH:MM AP
SET TIME SEQUENCE HHMM
-- Connect Database
SET MESSAGES OFF
SET ERROR MESSAGES OFF
SET ERROR MESSAGE 2495 OFF
CONNECT dbname IDENTIFIED BY NONE
SET MESSAGES ON
SET ERROR MESSAGES ON
SET ERROR MESSAGE 2495 ON
-- Check the availability of database
IF SQLCODE = -7 THEN
SET VAR vPause2Message TEXT = +
('Unable to Connect R:BASE eXtreme 9.5 Database!')
CLS
PAUSE 2 USING .vPause2Message +
CAPTION ' CCDRVC' +
ICON STOP +
BUTTON ' Contact Database Administrator for Further Details ...' +
OPTION MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR RED +
|MESSAGE_FONT_SIZE 10 +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN +
|THEMENAME Longhorn
CLOSEWINDOW
EXIT
RETURN
ENDIF
-- Enforce Database Settings
SET QUOTES=NULL
SET QUOTES='
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 DATE FORMAT MM/DD/YYYY
SET DATE SEQUENCE MMDDYY
SET DATE YEAR 30
SET DATE CENTURY 19
SET TIME FORMAT HH:MM AP
SET TIME SEQUENCE HHMM
SET NULL ' '
SET AUTOSKIP OFF
SET ZERO ON
SET WALKMENU ON
SET TIMEOUT 30
CLS
REFF applicationfile.rff
LABEL Done
CLEAR VARIABLES iv%,RBTI_%
RETURN
-- End here
Very Best R:egards,
Razzak.
www.rbase.com
www.facebook.com/rbase
--
31 years of continuous innovation!
16 Years of R:BASE Technologies, Inc. making R:BASE what it is today!
--
