home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbutil.zip
/
FED.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
1KB
|
53 lines
* This command will find and present for editing a record as indexed in
* any previously opened index file.
SET TALK OFF
STORE "T" TO More:Key
Do while More:key = "T"
ACCEPT "KEY TO EDIT? (<retn> to quit) " TO Key
Store Trim(!(Key)) to Key
* Check for blank KEY and exit program if found
IF Key = " "
STORE "F " to More:Key
Loop
Endif
* If Key is not blank find the record.
FIND &Key
* Check the record # for zero, which dBASE returns if not found.
IF # = 0
* Tell the user that it is not there
REMARK NOT FOUND!
Loop
Endif
* EDIT # will edit the current record
EDIT #
Enddo While More:Key
RELEASE KEY, MORE:KEY
SET TALK ON
ET TALK ON