File layout for random file in Exercise 10.8

Private Type udtBook
    strTitle                As String * 20
    strAuthor               As String * 20
    strChoice               As String * 20
    strShelf                As String * 7
    strSubject              As String * 15
    strBookCode             As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type