File layout for random file in Exercise 10 VVBBoards

Private Type udtProduct
    strKey                  As String * 3
    strDescription          As String * 25
    strManufacturer         As String * 15
    strUnit                 As String * 15
    curCost                 As Currency
    strLastOrderDate        As String * 15
    strLastOrderQuantity    As String * 5
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type