UniBasic Commands Reference - Rocket Software

The following program segment opens both the ORDERS file and the dictionary of
the ORDERS file, then reads the compiled virtual attribute into the program variable
GRAND_TOTAL. After prompting for an order number and reading the record, the
virtual attribute is evaluated with the ITYPE function. In this case, it performs a
summation on the value of GRAND_TOTAL in @RECORD. ITYPE does not
invoke the conversion and format functions in the dictionary item.
OPEN 'ORDERS' TO ORDERS.FILE ELSE STOP
OPEN 'DICT','ORDERS' TO DICT.ORDER ELSE STOP
READ GRAND_TOTAL FROM DICT.ORDER,'GRAND_TOTAL' ELSE
PRINT 'DICTIONARY ITEM GRAND_TOTAL NOT FOUND'
STOP
END
LOOP
PRINT 'Enter order number ':
INPUT ORDER.ID
WHILE ORDER.ID DO
@ID = ORDER.ID
READ @RECORD FROM ORDERS.FILE,ORDER.ID ELSE
PRINT 'ORDER NOT FOUND'
@RECORD = ''
END
IF @RECORD THEN
TOT.AMT = ITYPE(GRAND_TOTAL)
TOT.AMT = OCONV(TOT.AMT,'MD2,$')
PRINT "Total accounts receivable is ":TOT.AMT
END
REPEAT
Related Commands
UniBasic
CALCULATE
UniData
COMPILE.DICT – For information, see the UniData Commands Reference.
Virtual attributes – For information, see Using UniData.
ITYPE 1-408