CHName0.cr
Copyright Ó 1986, 1991 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) August 8, 1986 7:25:29 pm PDT
Demers, January 14, 1987 10:00:19 pm PST
CHName:
PROGRAM 2
VERSION 0 =
BEGIN
Organization: TYPE = STRING;
maxOrganizationLength: CARDINAL = 20; -- in bytes
OrganizationName: TYPE = Organization;
Domain: TYPE = STRING;
maxDomainLength: CARDINAL = 20; -- in bytes
DomainName: TYPE = TwoPartName;
Object: TYPE = STRING;
maxObjectLength: CARDINAL = 40; -- in bytes
ObjectName: TYPE = ThreePartName;
Name: TYPE = ThreePartName;
TwoPartName:
TYPE =
RECORD [
organization: Organization,
domain: Domain
];
ThreePartName:
TYPE =
RECORD [
organization: Organization,
domain: Domain,
object: Object
];
END.