<> <> <> <> 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.