UniBasic Commands Reference - Rocket Software

Example
In the following example, the program segment opens the ORDERS file to the
variable ORDER.FILE and the dictionary of the ORDERS file to the special @DICT
variable. After selecting the ORDERS file, the program reads the value of each
record ID into @ID, reads the value of the order record into @RECORD, then uses
the {} (braces) function to evaluate the order balance (storing the total in
TOTAL.DUE). The braces function updates the @CONV and @FORMAT variables,
which are used to print the total with the correct format.
1-119 UniBasic Commands Reference
OPEN 'ORDERS' TO ORDER.FILE ELSE
STOP 'NO ORDER FILE'
END
OPEN 'DICT','ORDERS' TO @DICT ELSE
STOP 'NO DICTIONARY FOR ORDERS FILE'
END
TOTAL.DUE = 0
SELECT ORDER.FILE
MORE = 1
LOOP
READNEXT @ID ELSE MORE = 0
UNTIL NOT(MORE) DO
READ @RECORD FROM ORDER.FILE,@ID ELSE
@RECORD = ''
END
TOTAL.DUE += {GRAND_TOTAL}
REPEAT
TOTAL.DUE = OCONV(TOTAL.DUE,@CONV)
PRINT "Total Accounts Receivable":FMT(TOTAL.DUE,@FORMAT)
CLEARSELECT
END
Related Command
UniBasic
ITYPE