UniBasic Commands Reference - Rocket Software

Parameters
The following table describes each parameter of the syntax.
Parameter Description
Example
In the following example, the program segment selects the IDs in the INVENTORY
file to select list 0, and then builds a dynamic array of the items for which quantity in
stock is greater than 10. The last program statement prints the select list to show its
contents.
1-626 UniBasic Commands Reference
dyn.array.var Specifies a dynamic array to contain the values removed from
the select list.
FROM list.num Specifies which select list (0-9) you want to use. If you do not
specify a list.num, UniData reads the default list (0). If no items
are available in the list, UniData executes the ELSE clause.
THEN statements END THEN executes if the read is successful. END is required to
terminate multiline THEN statements.
ELSE statements END ELSE executes if the read is not successful or the list does not
exist. END is required to terminate multiline ELSE statements.
READLIST Parameters
OPEN 'INVENTORY' TO INV.FILE ELSE STOP
SELECT INV.FILE
DONE = 0
LOOP
READNEXT INV.ID ELSE DONE = 1
WHILE NOT(DONE) DO
READ INV.REC FROM INV.FILE,INV.ID ELSE
PRINT "No INVENTORY RECORD: ":INV.ID
END
IF INV.REC > 9 THEN
READLIST LIST.ITEM ELSE LIST.ITEM = " "
END
REPEAT
PRINT LIST.ITEM