1P-Record DEFINITIONS ::= 2BEGIN 3 4 5PersonnelRecord ::= [APPLICATION 0] SET 6{ name Name, 7 title VisibleString, 8 number EmployeeNumber, 9 dateOfHire Date, 10 nameOfSpouse [1] Name, 11 children SEQUENCE OF ChildInformation DEFAULT {} 12} 13 14ChildInformation ::= SET 15{ name Name, 16 dateOfBirth Date 17} 18 19Name ::= [APPLICATION 1] SEQUENCE 20{ givenName VisibleString, 21 initial VisibleString, 22 familyName VisibleString 23} 24 25EmployeeNumber ::= [APPLICATION 2] INTEGER 26Date ::= [APPLICATION 3] VisibleString -- YYYY MMDD 27 28v PersonnelRecord ::= 29{ 30 name { 31 givenName "John", 32 initial "P", 33 familyName "Smith" 34 }, 35 title "Director", 36 number 51, 37 dateOfHire "19710917", 38 nameOfSpouse { 39 givenName "Mary", 40 initial "T", 41 familyName "Smith" 42 }, 43 children { 44 {name { 45 givenName "Ralph", 46 initial "T", 47 familyName "Smith" 48 } , 49 dateOfBirth "19571111"}, 50 {name { 51 givenName "Susan", 52 initial "B", 53 familyName "Jones" 54 } , 55 dateOfBirth "19590717" } 56 } 57} 58 59END 60