<> <> <> <> <> <> <> CHEntries: PROGRAM 0 VERSION 0 = BEGIN DEPENDS UPON CHName (2) VERSION 0, Clearinghouse (2) VERSION 2, Time (15) VERSION 2; <> <<>> <> <> <> Duplexity: TYPE = CARDINAL; -- for now CharLength: TYPE = CARDINAL; -- for now FlowControl: TYPE = CARDINAL; -- for now LineSpeed: TYPE = CARDINAL; -- for now Parity: TYPE = CARDINAL; -- for now StopBits: TYPE = CARDINAL; -- for now <<>> <> <<>> Description: TYPE = STRING; AddressListValue: TYPE = Clearinghouse.NetworkAddressList; <> <<>> PortClientType: TYPE = { unassigned(0), outOfService(1), its(2), irs(3), gws(4), ibm3270Host(5), ttyEmulation(6), rbs(7), fax(9), -- oops! mailGateway(10), phototypesetter(11) }; PortDialerType: TYPE = { dialerNone(0), vadic(1), hayes(2), ventel(3), rs366(4) }; PortEchoingLocation: TYPE = { echoLocal(0), echoRemote(1) }; PortSyncType: TYPE = { asynchronous(0), synchronous(1), bitSynchronous(2), byteSynchronous(3), syncAny(4) }; <> MailService: TYPE = ARRAY 4 OF CHName.Name; <> <<>> AuthenticationLevelValue: TYPE = RECORD [ simpleSupported: BOOLEAN, strongSupported: BOOLEAN ]; MailboxesValue: TYPE = RECORD [ time: Time.Time, mailService: MailService ]; RS232CData: TYPE = RECORD [ cIUPort: BOOLEAN, owningClientType: PortClientType, preemptionAllowed: BOOLEAN, lineNumber: CARDINAL, -- logical line number dialerNumber: CARDINAL, -- logical dialer number; must be unique within domain duplexity: Duplexity, dialingHardware: PortDialerType, charLength: CharLength, echoing: PortEchoingLocation, xxxxpaddingxxx: LONG CARDINAL, flowControl: FlowControl, lineSpeed: LineSpeed, parity: Parity, stopBits: StopBits, portActsAsDCE: BOOLEAN, accessControl: CHName.Name, validLineSpeeds: LineSpeedSequence ]; UserDataValue: TYPE = RECORD [ lastNameIndex: CARDINAL, fileService: CHName.Name ]; <<>> <> <<>> LineSpeedSequence: TYPE = SEQUENCE OF LineSpeed; <> addressList: Clearinghouse.Property = 4; -- Item is AddressListValue adobeService: Clearinghouse.Property = 10013; associatedWorkstation: Clearinghouse.Property = 30005; authenticationLevel: Clearinghouse.Property = 8; -- Item is AuthenticationLevelValue authenticationService: Clearinghouse.Property = 10016; authKeys: Clearinghouse.Property = 6; canMailTo: Clearinghouse.Property = 20005; -- use with user groups clearinghouseService: Clearinghouse.Property = 10021; -- Item is Description communicationsInterfaceUnit: Clearinghouse.Property = 10020; externalCommunicationsService: Clearinghouse.Property = 10006; fetchService: Clearinghouse.Property = 10023; fileService: Clearinghouse.Property = 10000; -- Item is Description foreignMailSystemName: Clearinghouse.Property = 20007; ibm3270Host: Clearinghouse.Property = 10010; ibm3270HostBack: Clearinghouse.Property = 20103; -- Item is Clearinghouse.Name ibm3270HostData: Clearinghouse.Property = 20002; --Item is IBM3270HostData interactiveTerminalService: Clearinghouse.Property = 10008; internetworkRoutingService: Clearinghouse.Property = 10002; gatewayService: Clearinghouse.Property = 10009; librarianService: Clearinghouse.Property = 10014; mailboxes: Clearinghouse.Property = 31; -- Item is MailboxesValue mailGateway: Clearinghouse.Property = 10011; mailGatewayRouteData: Clearinghouse.Property = 20006; mailService: Clearinghouse.Property = 10004; -- Item is Description members: Clearinghouse.Property = 3; -- Group property => no Item network: Clearinghouse.Property = 10018; networkServers: Clearinghouse.Property = 10019; printService: Clearinghouse.Property = 10001; -- Item is Description remoteBatchService: Clearinghouse.Property = 10017; rs232CBack: Clearinghouse.Property = 20102; -- Item is RS232CBack rs232CData: Clearinghouse.Property = 20001; -- Item is RS232CData rs232CPort: Clearinghouse.Property = 10007; services: Clearinghouse.Property = 51; siemens9750Host: Clearinghouse.Property = 10012; siemens9750HostData: Clearinghouse.Property = 20003; --Item is Siemens9750HostData ttxGateway: Clearinghouse.Property = 10015; user: Clearinghouse.Property = 10003; -- Item is Description userData: Clearinghouse.Property = 20000; -- Item is UserDataValue userGroup: Clearinghouse.Property = 10022; -- Group property => no Item userPassword: Clearinghouse.Property = 20101; workstation: Clearinghouse.Property = 10005; END.