home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
librdb2.zip
/
ENTER.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
2KB
|
66 lines
* ENTER.CMD - subprogram to enter new data into the
* SUBJECTS/REFERALS data base. Called by GUIDE.CMD.
* by M. Timin, November 1982
* REFERALS.DBF is PRIMARY, SUBJECTS.DBF is SECONDARY
STORE T TO MORE
DO WHILE MORE
* enter data into a new REFERALS record:
SELECT PRIMARY
APPEND BLANK
STORE F TO DONE
DO WHILE .NOT. DONE
ERASE
@ 2,2 SAY "Disk Number " GET DISK
@ 4,2 SAY "File Name " GET FILE PICTURE '!!!!!!!!!!!!'
@ 6,2 SAY "Locating String" GET SEARCHKEY
@ 8,2 SAY "Description " GET DESCRIP
READ
ERASE
@ 2,2 SAY "Disk Number "+ STR(DISK,2)
@ 4,2 SAY "File Name "+ FILE
@ 6,2 SAY "Locating String "+ SEARCHKEY
@ 8,2 SAY "Description "+ DESCRIP
@ 12,2 SAY "Is this correct? " GET DONE
READ
ENDDO
* enter data into one or more new SUBJECTS records:
SELECT SECONDARY
STORE F TO DONE
DO WHILE .NOT. DONE
ERASE
STORE " " TO SUB
@ 2,9 SAY P.DESCRIP
@ 4,2 SAY "Enter a SUBJECT name under which this"
@ 5,2 SAY "reference might be classified" GET SUB picture '!!!!!!!!!!!!'
@ 7,2 SAY "(Hit return when there are no more subjects.)"
READ
IF SUB=" "
STORE T TO DONE
ELSE
? "Is "+SUB+" correct? "
WAIT TO WHATKEY
IF WHATKEY="Y" .OR. WHATKEY="y"
APPEND BLANK
REPLACE KEY WITH $(P.FILE,1,6)+$(P.SEARCHKEY,1,8)+STR(P.DISK,2)
REPLACE SUBJECT WITH SUB
ENDIF
ENDIF
ENDDO
? "Do you have another REFERAL? (Y/N) "
WAIT TO WHATKEY
IF WHATKEY <> "Y" .AND. WHATKEY <> "y"
STORE F TO MORE
ENDIF
ENDDO
RETURN
(Y/N) "
WAIT TO WHATKEY
IF WHATKEY <> "Y" .AND. WHATKEY <> "y"
STORE F TO MORE
ENDI