<<>> <> <> <> <> <> <> <> <> CHEntries: PROGRAM 0 VERSION 0 = BEGIN DEPENDS UPON CHName (2) VERSION 0, CHOps (2) VERSION 3, 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 = CHOps.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: CHOps.Property = 4; -- Item is AddressListValue adobeService: CHOps.Property = 10013; associatedWorkstation: CHOps.Property = 30005; authenticationLevel: CHOps.Property = 8; -- Item is AuthenticationLevelValue authenticationService: CHOps.Property = 10016; authKeys: CHOps.Property = 6; canMailTo: CHOps.Property = 20005; -- use with user groups clearinghouseService: CHOps.Property = 10021; -- Item is Description communicationsInterfaceUnit: CHOps.Property = 10020; externalCommunicationsService: CHOps.Property = 10006; fetchService: CHOps.Property = 10023; fileService: CHOps.Property = 10000; -- Item is Description foreignMailSystemName: CHOps.Property = 20007; ibm3270Host: CHOps.Property = 10010; ibm3270HostBack: CHOps.Property = 20103; -- Item is CHOps.Name ibm3270HostData: CHOps.Property = 20002; --Item is IBM3270HostData interactiveTerminalService: CHOps.Property = 10008; internetworkRoutingService: CHOps.Property = 10002; gatewayService: CHOps.Property = 10009; librarianService: CHOps.Property = 10014; mailboxes: CHOps.Property = 31; -- Item is MailboxesValue mailGateway: CHOps.Property = 10011; mailGatewayRouteData: CHOps.Property = 20006; mailService: CHOps.Property = 10004; -- Item is Description members: CHOps.Property = 3; -- Group property => no Item network: CHOps.Property = 10018; networkServers: CHOps.Property = 10019; printService: CHOps.Property = 10001; -- Item is Description remoteBatchService: CHOps.Property = 10017; rs232CBack: CHOps.Property = 20102; -- Item is RS232CBack rs232CData: CHOps.Property = 20001; -- Item is RS232CData rs232CPort: CHOps.Property = 10007; services: CHOps.Property = 51; siemens9750Host: CHOps.Property = 10012; siemens9750HostData: CHOps.Property = 20003; --Item is Siemens9750HostData ttxGateway: CHOps.Property = 10015; user: CHOps.Property = 10003; -- Item is Description userData: CHOps.Property = 20000; -- Item is UserDataValue userGroup: CHOps.Property = 10022; -- Group property => no Item userPassword: CHOps.Property = 20101; workstation: CHOps.Property = 10005; END.