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