File layout for random file in Exercise 10.7

Private Type udtStudent
    strName                 As String * 25
    strUnits                As String * 3
    strLevel                As String * 1
    strDeansList            As String * 1
    strMajor                As String * 2
    strSchool               As String * 20
    strStudentCode          As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type