Downloading - Weber Marking Systems

KEY1, KEY2, ..., KEYN are the key column names
VAL1, VAL2, ..., VALN are the key values
Notes:
Appendix C: Automated Print Control
DB-READ-NEXT returns the record pointed to by the 'record pointer'.
When a file is opened, a 'record pointer' for the DB-READ-NEXT
function is set to point to the first record in the file. This 'record
pointer' can be changed in several ways:
1) By calling DB-READ-NEXT without the START-AT clause -
When DB-READ-NEXT is called (without the START-AT clause),
the next record in the file is returned and the 'record pointer' is
incremented to point to the following record in the file.
2) By calling any other database function (DB-READ, DB-UPDATE,
DB-INSERT, DB-DELETE-RECORD, DB-OPEN), which will set the
'record pointer' to the beginning of the file.
3) By calling DB-READ-NEXT with a START-AT clause. This will
create a record set of all records in the file with key value greater than
or equal to the specified key. The 'record pointer' will point to the first
record in that record set. Subsequent DB-READ-NEXT commands
that don't contain a START-AT clause will return records from this
record set.
If end-of-file is reached, or any other error occurs, $ERRORCODE is
set to 1. For example:
DB-OPEN="ADDRESSES", "EMPLOYEES", $HANDLE, QUERY
:LOOP
DB-READ-NEXT=$HANDLE, "LAST NAME", $NAME
IF-EQUAL=$ERRORCODE, 1, EXIT
MESSAGE-BOX="NAME", $NAME
GOTO=LOOP
:EXIT
DB-CLOSE=$HANDLE
This will display one message box containing the last name for every
entry in the table "EMPLOYEES'. Here's another example:
DB-OPEN="ADDRESSES", "EMPLOYEES", $HANDLE, QUERY
DB-READ-NEXT=$HANDLE, "LAST NAME", $NAME, START-
AT, "LAST NAME", "WEBER"
:LOOP
IF-EQUAL=$ERRORCODE, 1, EXIT
MESSAGE-BOX="NAME", $NAME
DB-READ-NEXT=$HANDLE, "LAST NAME", $NAME
GOTO=LOOP
Legitronic User Manual (v3.4) 207