|
|
1.1 root 1: ...
2:
3: BEGIN
4:
5: PersonnelRecord
6: %{ char *Title; %}
7: ::=
8: [APPLICATION 0]
9: IMPLICIT SET {
10: Name
11: %{
12: printf ("Name: %s %s. %s\n",
13: givenName, initial, familyName);
14: %},
15:
16: title[0]
17: IA5String
18: [[s Title]]
19: %{ printf ("Title: %s\n", Title); %},
20:
21: EmployeeNumber,
22:
23: dateOfHire[1]
24: Date
25: %{ printf ("Date of Hire: %s\n", Date); %},
26:
27: nameOfSpouse[2]
28: Name
29: %{
30: printf ("Name of Spouse: %s %s. %s\n",
31: givenName, initial, familyName);
32: %},
33:
34: [3]
35: %{
36: PE cc = prim2seq ($$);
37: if (cc)
38: printf ("Number of Children: %d\n",
39: cc -> pe_cardinal);
40: %}
41: IMPLICIT SEQUENCE OF ChildInformation
42: DEFAULT {}
43: }
44: %{ printf ("--------\n"); %}
45: ...
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.