CHName0.cr
Copyright © 1986 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.