File layout for random file in Exercise 10.6 Private Type udtPet strName As String * 20 strAnimalType As String * 20 strBreed As String * 15 strColor As String * 10 strPetCode As String * 4 strDeleteCode As String * 1 'D = deleted; A = active End Type