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. ¨CHName0.cr Copyright c 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 Κ%˜šœ ™ Icodešœ Οmœ1™