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