The R13B03 release.OTP_R13B03

1 files changed, 59 insertions, 0 deletions

diff --git a/lib/asn1/examples/P-Record.asn b/lib/asn1/examples/P-Record.asn
new file mode 100644
index 0000000000..13643efef3
--- /dev/null
+++ b/lib/asn1/examples/P-Record.asn
@@ -0,0 +1,59 @@
+P-Record DEFINITIONS  ::=
+BEGIN
+
+
+PersonnelRecord ::= [APPLICATION 0] SET
+{	name			  Name,
+	title			  VisibleString,
+	number			  EmployeeNumber,
+	dateOfHire		  Date,
+	nameOfSpouse  	[1]	  Name,
+	children		  SEQUENCE OF ChildInformation DEFAULT {}
+}
+
+ChildInformation ::= SET
+{	name			Name OPTIONAL,
+	dateOfBirth		Date OPTIONAL
+}
+
+Name ::= [APPLICATION 1] SEQUENCE
+{	givenName		VisibleString,
+	initial			VisibleString,
+	familyName		VisibleString
+}
+
+EmployeeNumber ::= [APPLICATION 2] INTEGER
+Date ::= [APPLICATION 3] VisibleString  --  YYYY MMDD
+
+v PersonnelRecord ::=
+{
+	name {
+		givenName "John", 
+		initial "P", 
+		familyName "Smith"
+	},
+	title	"Director",
+	number	51,
+	dateOfHire "19710917",
+	nameOfSpouse {
+		givenName "Mary", 
+		initial "T", 
+		familyName "Smith"
+	},
+	children { 
+		{name {
+			givenName "Ralph", 
+			initial "T", 
+			familyName "Smith"
+		} ,
+		dateOfBirth "19571111"},
+		{name {
+			givenName "Susan", 
+			initial "B", 
+			familyName "Jones"
+		} ,
+		dateOfBirth "19590717" }
+	}
+}
+
+END