CHName.cr
Copyright © 1986 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) August 8, 1986 7:25:29 pm PDT
Demers, September 19, 1986 1:51:34 pm PDT
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.