[RBASE-L] - Re: FWIW: Startup File for Multi-Folder,Multi-DatabaseDevelopment Environment

[Bruce Chitiea]

Jan:

Nope. Burps on my Win7 too: throws an error message, but doesn't hurt anything. I've been too complacent to fix it.

In my environment, I suppose I could do without this snippet, as the presence of 'c:\temp' is guaranteed. If it wasn't I'd have bigger problems.

Bruce

-------- Original Message --------
Subject: [RBASE-L] - Re: FWIW: Startup File for Multi-Folder,
Multi-DatabaseDevelopment Environment
From: "jan johansen" <j...@jjcalibrations.com>
Date: Wed, May 30, 2012 12:09 pm
To: rbase-l@rbase.com (RBASE-L Mailing List)

Bruce,

 

I know it has to do with permissions on individual systems and windows 7

but I have had to manually create directories in the past.

This code

IF (CHKFILE('C:\TEMP')) <> 1 THEN
MD C:\TEMP
ENDIF
would usually burp on me and cause problems.

Course I may be the only one.

 

Jan

 

-----Original Message-----
From: "Bruce Chitiea" <rby...@safesectors.com>
To: rbase-l@rbase.com (RBASE-L Mailing List)
Date: Wed, 30 May 2012 11:00:03 -0700
Subject: [RBASE-L] - FWIW: Startup File for Multi-Folder, Multi-Database Development Environment

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