home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
librdb2.zip
/
GUIDE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
3KB
|
91 lines
* dBASE II program to maintain and use the:
* >>>>>> dBASEer's GUIDE to the Universe <<<<<<<
* (The Universe in question is the dBASEer's disk library)
* originally written by Dr. M. Timin in November, 1982
* modified and improved by ___________________________________
* This program is for the creation, maintenance, and usage of
* a SUBJECT INDEX to a disk file library. It may be used with any
* collection of text files. REFERENCES to passages of text are
* contained in the file REFERALS.DBF. Each record of that file
* has a brief desscription of the passage, a two digit disk number,
* a file name, and a search string. The search string is meant to
* be used with a text editor to locate the passage in the file.
* A second file, SUBJECTS.DBF, contains the names of subjects
* classifications for the passages. There will generally be several
* SUBJECTS corresponding to any passage. The SUBJECTS file also
* contains a compound key that links each SUBJECTS record to a
* particular REFERALS record.
* REFDEX.NDX and SUBDEX.NDX are index files that are necessary, and
* are automatically maintained by this program.
* Other command files that are called by GUIDE.CMD are ENTER.CMD,
* SEARCH.CMD, SUBS.CMD, REFS.CMD, and ADDSUB.CMD.
* initialization:
set talk off
set escape off
erase
if date()="00/00/00"
? " Today's Date? "
accept to DAY
set date to &DAY
endif
store T to AGAIN
store T to QFLAG
SELECT PRIMARY
USE REFERALS INDEX REFDEX
SELECT SECONDARY
USE SUBJECTS INDEX SUBDEX
* Menu display and selection:
do while AGAIN
erase
?
? "Select one by number:"
?
? " (1) Search library by subject"
? " (2) Enter additional library references"
? " (3) Add additional subject classifications"
? " (4) List all the subjects on file"
? " (5) List all the referals on file"
? " (6) Quit"
?
WAIT TO WHATKEY
DO CASE
CASE WHATKEY="1"
DO SEARCH
CASE WHATKEY="2"
DO ENTER
CASE WHATKEY="3"
DO ADDSUB
CASE WHATKEY="4"
DO SUBS
CASE WHATKEY="5"
DO REFS
CASE WHATKEY="6"
STORE F TO AGAIN
CASE WHATKEY="!"
WAIT TO WHATKEY
IF WHATKEY="$"
store F to AGAIN
store F to QFLAG
ENDIF
ENDCASE
ENDDO
* choose dBASE II or CP/M to exit to:
IF QFLAG
QUIT
ENDIF
CANCEL
tore F to QFLAG
ENDIF
ENDCASE
ENDDO
* choose dBASE II or CP/M to exit to:
IF QFLAG