Karen:
All I've done is spread the files around to avoid bloat and unholy
fraternization between files from different tribes.
Mike:
This approach supports my single-station, multi-client, multi-venture
development effort. A settled client installation is a different beast.
So much to learn. Any and all suggestion/criticism accepted. Props to
Javier and Razzak.
Bruce
-- STARTUP.FILE.SSI.RMD
-- Source: R:List: JAVIER.VALENCIA: 2012-0409
-- Source: R:List: RAZZAK MEMON
-- Modified: BACHITIEA 2012-0421
-- SCRATCH FILES
-- Use 'Temp' not 'Tmp'
CD \
CLS
DISCONNECT
IF (CHKFILE('C:\TEMP')) <> 1 THEN
MD C:\TEMP
ENDIF
SET SCRATCH TEMP
-- BASIC SETTINGS
SET MESSAGES OFF
SET ERROR MESSAGES OFF
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
-- DRIVE AND PATH INITIALIZATION
-- Data drive is hard-coded here, but could be chosen
SET VAR vdatadrv TEXT = NULL
SET VAR vdatadrv = 'D:'
SET VAR vcurrdrv TEXT = NULL
SET VAR vdbdir TEXT = NULL
-- SET THE DATA DRIVE
-- Not necessary if you only have C: drive on stand-alone workstation
-- No provision here for networking beyond simple drive mapping
SET VAR vcurrdrv TEXT= (CVAL('CURRDRV'))
IF (CVAL('CURRDRV')) <> .vdatadrv THEN
.vdatadrv
ENDIF
-- SET THE DATABASE ROOT PATH
-- Reset and start from the root of the data drive
CD \
CD \ACTIVE\RBASE\DATA
-- CHOOSE DATABASE FOLDER
-- Folders segregate clients and/or development ventures
-- Each folder may contain one or more .RXx databases
CHOOSE vdbdir FROM #LFILES +
CHKBOX 1 +
CAPTION 'Choose the Database Folder' LINES 10
CD .vdbdir
CD DB
-- ACCESS SETTINGS
-- Not worried about these just yet
-- SET STATICDB OFF
-- SET FASTLOCK OFF
-- SET ROWLOCKS ON
-- SET FEEDBACK OFF
-- LOAD APPLICATION PARAMETERS
-- Not worried about these just yet
-- PROPERTY LOADWINDOW CAPTION 'What are you doing indoors?'
-- PROPERTY LOADWINDOW TITLE 'Please Wait...'
-- PROPERTY LOADWINDOW PROGRESS 100
-- START DATABASE
-- With one or more .RXx databases within the CHOSEN folder,
-- CONNECTing without parameters allows selection on the fly.
IF(CVAL('DATABASE')) IS NULL THEN
CONNECT
ENDIF
-- AFTER THE PARTY
-- ENFORCE DEFAULT SETTINGS
-- Just in case
SET QUOTES='
SET DELIMIT=','
SET LINEEND='รพ'
SET SEMI=';'
SET PLUS='+'
SET SINGLE='_'
SET MANY='%'
SET IDQUOTES='`'
SET CURRENCY '$' PREF 2 B
SET NULL '-0-'
SET ZERO ON
SET DATE FORMAT MM/DD/YYYY
SET DATE SEQUENCE MMDDYY
SET DATE YEAR 30
SET DATE CENTURY 19
-- SET RBADMIN ON
-- Someday
-- CLEANUP
CLEAR VARIABLES
CD \
CLS
