MVBasic Example
Here is an example of an MVBasic routine that opens PERSON and displays the information for the record with Id 2:
OPEN "PERSON" TO PERSON.FILE ELSE PRINT "PERSON NOT OPEN"
READ PERSON.ITEM FROM PERSON.FILE,2
PRINT "NAME: ":PERSON.ITEM<3>
PRINT "HAIR: ":PERSON.ITEM<2>
PRINT "AGE: ":PERSON.ITEM<1>
PRINT "PHONES:"
FOR I=1 TO DCOUNT(PERSON.ITEM<4>,@VM)
PRINT PERSON.ITEM<4,I>
NEXT I
END
Note that MVBasic uses the standard <> syntax for accessing dynamic array elements.
