Thanks, Mike. That looks doable to me.
Albert
On 8/18/2014 12:44 PM, [email protected] wrote:
Albert::
This may or may not be of help, but I created a program some time back
to use the CVAL Screensize option to determine the best width/lines
approach. It takes some testing to find what works best. But may be
you can adapt something from what I've done.
I put the code in a file named ENVSET.RMD which can be called from
other programs.
Best regards.
SET VAR VSET_SS TEXT = (CVAL('SCREENSIZE'))
SWITCH (.VSET_SS)
CASE '800,600'
SET WIDTH 90
SET LINES 20
BREAK
CASE '1024,768'
SET WIDTH 125
SET LINES 32
BREAK
CASE '1152,864'
SET WIDTH 140
SET LINES 38
BREAK
CASE '1280,800'
SET WIDTH 140
SET LINES 33
BREAK
CASE '1280,1024'
SET WIDTH 160
SET LINES 48
BREAK
CASE '1424,832'
SET WIDTH 170
SET LINES 36
BREAK
CASE '1424,834'
SET WIDTH 170
SET LINES 36
BREAK
CASE '1432,836'
SET WIDTH 175
SET LINES 37
BREAK
CASE '1440,900'
SET WIDTH 175
SET LINES 40
BREAK
CASE '2560,1024'
SET WIDTH 140
SET LINES 58
BREAK
DEFAULT
SET WIDTH 80
SET LINES 25
BREAK
ENDSW
Mike Ramsour
AK Steel Coshocton Works
Quality Department
Phone: 740-829-4340
Cell: 740-502-1659
From: Albert Berry <[email protected]>
To: [email protected] (RBASE-L Mailing List)
Date: 08/18/2014 02:40 PM
Subject: [RBASE-L] - Re: Configuration file heads up
Sent by: [email protected]
------------------------------------------------------------------------
Good point, Razzak, but I need to be able to do this because of two
different monitor sizes. When working laptop without external screen,
the screen is 1366x768, but when using the laptop with the 1920x1200
monitor, I like more lines than can be shown on the laptop's pitiful
screen.
Albert
On 8/18/2014 11:28 AM, A. Razzak Memon wrote:
> 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
Confidentiality Notice
This message is intended exclusively for the individual or entity to
which it is addressed and may contain privileged, proprietary, or
otherwise private information.
If you are not the named addressee, you are not authorized to read,
print, retain, copy or disseminate this message or any part of it. If
you have received this message in error, please notify the sender
immediately by e-mail and delete all copies of the message.
