! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF DECLARE LONG CONSTANT LAT$M_ETYPE = x'0000FFFF' DECLARE LONG CONSTANT LAT$C_ENT_NODE = 1 DECLARE LONG CONSTANT LAT$C_ENT_SERVICE = 2 DECLARE LONG CONSTANT LAT$C_ENT_LINK = 3 DECLARE LONG CONSTANT LAT$C_ENT_PORT = 4 DECLARE LONG CONSTANT LAT$C_ENT_CONNECTION = 5 DECLARE LONG CONSTANT LAT$C_ENT_QUEUE_ENTRY = 6 DECLARE LONG CONSTANT LAT$C_MAXETYPE = 6 DECLARE LONG CONSTANT LAT$M_ESTATUS = x'0000000F' DECLARE LONG CONSTANT LAT$C_ENTS_OLD = 0 ! Must already exist DECLARE LONG CONSTANT LAT$C_ENTS_NEW = 1 ! Must NOT exist. Create it. DECLARE LONG CONSTANT LAT$C_ENTS_UNK = 2 ! Create if it does not exist DECLARE LONG CONSTANT LAT$C_ENTS_DEL = 3 ! Must exist. Delete it. DECLARE LONG CONSTANT LAT$M_SENSE_NEXT = x'00000001' DECLARE LONG CONSTANT LAT$M_SENSE_FULL = x'00000002' DECLARE LONG CONSTANT LAT$M_READ_HISTORY = x'00000004' DECLARE LONG CONSTANT LAT$S_ENTITY = 3 record ENTITY WORD ETYPE_bits ! COMMENT ADDED BY SDL - ETYPE_bits contains bits ETYPE through ETYPE group LAT$R_ESTATFLAGS variant case BYTE ESTATUS_bits ! COMMENT ADDED BY SDL - ESTATUS_bits contains bits ESTATUS through ESTATUS case group LAT$R_EFLAG variant case BYTE LAT$B_EFLAGS ! Flags for SENSEmode case group LAT$R_EFLAGBITS ! Wildcard flag ! Full (vs. summary) flag ! Used for history buffer BYTE SENSE_NEXT_bits ! COMMENT ADDED BY SDL - SENSE_NEXT_bits contains bits SENSE_NEXT through & ! FILL_74_ end group LAT$R_EFLAGBITS end variant end group LAT$R_EFLAG end variant end group LAT$R_ESTATFLAGS end record ENTITY DECLARE LONG CONSTANT LAT$M_ITEMINDEX = x'00003FFF' DECLARE LONG CONSTANT LAT$M_STRING = x'00004000' DECLARE LONG CONSTANT LAT$M_CLEAR = x'00008000' DECLARE LONG CONSTANT LAT$_ITM_STATE = 1 ! Entity (node or port) state DECLARE LONG CONSTANT LAT$_ITM_CIRCUIT_TIMER = 2 ! Circuit timer value DECLARE LONG CONSTANT LAT$_ITM_KEEPALIVE_TIMER = 3 ! Keepalive timer value DECLARE LONG CONSTANT LAT$_ITM_MULTICAST_TIMER = 4 ! Multicast timer value DECLARE LONG CONSTANT LAT$_ITM_NODE_LIMIT = 5 ! Maximum number of nodes DECLARE LONG CONSTANT LAT$_ITM_RETRANSMIT_LIMIT = 6 ! Retransmit limit value DECLARE LONG CONSTANT LAT$_ITM_SERVER_MODE = 7 ! Enable LAT master flag DECLARE LONG CONSTANT LAT$_ITM_OUTGOING_SES_LIMIT = 8 ! Outgoing sessions limit DECLARE LONG CONSTANT LAT$_ITM_INCOMING_SES_LIMIT = 9 ! Incoming sessions limit DECLARE LONG CONSTANT LAT$_ITM_CONNECTIONS = 10 ! Enable LAT slave flag DECLARE LONG CONSTANT LAT$_ITM_DECNET_ADDRESS = 11 ! Use DECnet address flag DECLARE LONG CONSTANT LAT$_ITM_RATING = 12 ! Static LAT rating value DECLARE LONG CONSTANT LAT$_ITM_RATING_TYPE = 13 ! Dynamic/static rating flag DECLARE LONG CONSTANT LAT$_ITM_NODE_TYPE = 14 ! Local/remote node type flag DECLARE LONG CONSTANT LAT$_ITM_NODE_STATUS = 15 ! Reachable/unreachable flag DECLARE LONG CONSTANT LAT$_ITM_SERVICE_STATUS = 16 ! Available/unavailable flag DECLARE LONG CONSTANT LAT$_ITM_PORT_TYPE = 17 ! Port type value DECLARE LONG CONSTANT LAT$_ITM_QUEUED = 18 ! Queued/nonqueued access flag DECLARE LONG CONSTANT LAT$_ITM_DISCONNECT_REASON = 19 ! Reason for last disconnect DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_COUNT = 20 ! Number of current sessions DECLARE LONG CONSTANT LAT$_ITM_SERVICE_TYPE = 21 ! Service type value DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SSZ = 22 ! (node) Seconds since zeroed DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGR = 23 ! (node) Messages received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGT = 24 ! (node) Messages transmitted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTR = 25 ! (node) Slots received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTT = 26 ! (node) Slots transmitted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTR = 27 ! (node) Bytes received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTT = 28 ! (node) Bytes transmitted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MNA = 29 ! (node) Multiple node addresses DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DUP = 30 ! (node) Duplicates received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MRT = 31 ! (node) Messages retransmitted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILM = 32 ! (node) Illegal messages received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILS = 33 ! (node) Illegal slots received DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCA = 34 ! (node) Solicitations accepted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCR = 35 ! (node) Solicitations rejected DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TER = 36 ! (node) Transmit errors DECLARE LONG CONSTANT LAT$_ITM_CTNOD_RES = 37 ! (node) Resource errors DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NTB = 38 ! (node) No transmit buffer DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TMO = 39 ! (node) Virtual circuit timeouts DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DOB = 40 ! (node) Discarded output bytes DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LSTER = 41 ! (node) Last transmit error DECLARE LONG CONSTANT LAT$_ITM_CTNOD_PROTO = 42 ! (node) Protocol error count DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVM = 43 ! (protocol) Invalid message type received DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ISM = 44 ! (protocol) Invalid start message received DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVS = 45 ! (protocol) Invalid sequence number DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NIZ = 46 ! (protocol) Zero node index received DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ICI = 47 ! (protocol) Invalid server slot index DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CSI = 48 ! (protocol) Circuit sequence invalid DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NLV = 49 ! (protocol) Circuit index no longer valid DECLARE LONG CONSTANT LAT$_ITM_CTPRO_HALT = 50 ! (protocol) Circuit forced to halt DECLARE LONG CONSTANT LAT$_ITM_CTPRO_MIZ = 51 ! (protocol) Invalid master slot index DECLARE LONG CONSTANT LAT$_ITM_CTPRO_SIZ = 52 ! (protocol) Invalid slave slot index DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CRED = 53 ! (protocol) Invalid credit field DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RCSM = 54 ! (protocol) Repeat master slot create DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RDSM = 55 ! (protocol) Repeat master slot disconnect DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SSZ = 56 ! (service) Seconds since zeroed DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNA = 57 ! (service) Connections attempted DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNC = 58 ! (service) Connections completed DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNA = 59 ! (service) Connections accepted DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNR = 60 ! (service) Connections rejected DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SSZ = 61 ! (port) Seconds since zeroed DECLARE LONG CONSTANT LAT$_ITM_CTPRT_RMT = 62 ! (port) Remote accesses DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTR = 63 ! (port) Bytes received DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTT = 64 ! (port) Bytes transmitted DECLARE LONG CONSTANT LAT$_ITM_MAXIMUM_UNITS = 65 ! Maximum LTA device unit number DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASS = 66 ! Port service class item DECLARE LONG CONSTANT LAT$_ITM_DISPLAY_NUMBER = 67 ! X Display Number (Binary) DECLARE LONG CONSTANT LAT$_ITM_CPU_RATING = 68 ! CPU rating DECLARE LONG CONSTANT LAT$_ITM_SERVICE_RESPONDER = 69 ! Service responder DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBXMT = 70 ! (node) Multicast bytes xmt DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBRCV = 71 ! (node) Multicast bytes rcv DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMXMT = 72 ! (node) Multicast msgs xmt DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMRCV = 73 ! (node) Multicast msgs rcv DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SOLFAIL = 74 ! (node) Solicit failures DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ATLOS = 75 ! (node) Attention slot lost DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DATLOS = 76 ! (node) User data lost DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOREJ = 77 ! (node) No reject slot sent DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSCT = 78 ! (node) Node counter lost DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSSAM = 79 ! (node) s.a.m. lossage DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSAM = 80 ! (node) Couldn't send s.a.m. DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSTS = 81 ! (node) Lost node status DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOXMT = 82 ! (node) No link to send on DECLARE LONG CONSTANT LAT$_ITM_HISTORY = 83 ! (node) History buffer enable DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CTLERR = 84 ! (node) Controller errors DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CERRCOD = 85 ! (node) Last controller error DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLA = 86 ! (node) (Incoming) solicits accepted DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLR = 87 ! (node) (Incoming) solicits rejected DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SESSIONS = 88 ! Connected session count DECLARE LONG CONSTANT LAT$_ITM_CONNECT_TYPE = 89 ! Connection type DECLARE LONG CONSTANT LAT$_ITM_CONNECTION_SESS_LIM = 90 ! Connection session limit DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRCV = 91 ! (conn) msgs received DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPRCV = 92 ! (conn) dup msgs rcvd DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGXMT = 93 ! (conn) msgs xmtd DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGILL = 94 ! (conn) illegal msgs rcvd DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRXT = 95 ! (conn) msgs retransmitted DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTILL = 96 ! (conn) ill slots rcvd DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPNOD = 97 ! (conn) duplicate node DECLARE LONG CONSTANT LAT$_ITM_CTCON_SECZER = 98 ! (conn) seconds since zero DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTRCV = 99 ! (conn) bytes received DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTXMT = 100 ! (conn) bytes xmtd DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTRCV = 101 ! (conn) slots rcvd DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTXMT = 102 ! (conn) slots transmitted DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLACP = 103 ! (conn) solicits accepted DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLREJ = 104 ! (conn) solicits rejected DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERR = 105 ! (conn) last transmit error DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERRCOD = 106 ! (conn) last xmt error code DECLARE LONG CONSTANT LAT$_ITM_CTCON_ATTLOS = 107 ! (conn) attention slot loss DECLARE LONG CONSTANT LAT$_ITM_CTCON_DATLOS = 108 ! (conn) data loss DECLARE LONG CONSTANT LAT$_ITM_CTCON_CANTREJ = 109 ! (conn) reject slot loss DECLARE LONG CONSTANT LAT$_ITM_SESSION_NUMBER = 110 ! (conn) session number for subblock DECLARE LONG CONSTANT LAT$_ITM_FORWARD_SESSION_LIMIT = 111 ! (node) forward session limit DECLARE LONG CONSTANT LAT$_ITM_EXTRA_DATALINK_BUFFERS = 112 ! Extra datalink buffers DECLARE LONG CONSTANT LAT$_ITM_TRANSMIT_BUFFERS_INUSE = 113 ! Transmit buffers in use DECLARE LONG CONSTANT LAT$_ITM_QUE_POS_OBSOLETE = 114 ! Queue position for entry ! Obsolete - node queue and ! service queue position are ! now implemented. DECLARE LONG CONSTANT LAT$_ITM_QUEUE_DEPTH_LIMIT = 115 ! (node) queue depth limit DECLARE LONG CONSTANT LAT$_ITM_DEVICE_SEED = 116 ! (node) device seed DECLARE LONG CONSTANT LAT$_ITM_NODE_QUEUE_POSITION = 117 ! (port) minimum queue position DECLARE LONG CONSTANT LAT$_ITM_SERVICE_QUEUE_POSITION = 118 ! (port) maximum queue position DECLARE LONG CONSTANT LAT$_ITM_DIALUP = 119 ! (port) dialup characteristic DECLARE LONG CONSTANT LAT$_ITM_AUTOPROMPT = 120 ! (port) autoprompt char DECLARE LONG CONSTANT LAT$_ITM_RATING_LOAD_OBSOLETE = 121 ! obsolete - portion of rating for load DECLARE LONG CONSTANT LAT$_ITM_CTPRT_LCL = 122 ! (port) local accesses DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCA = 123 ! (port) Solicitations accepted DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCR = 124 ! (port) Solicitations rejected DECLARE LONG CONSTANT LAT$_ITM_CTPRT_ISOLA = 125 ! (node) (Incoming) solicits accepted DECLARE LONG CONSTANT LAT$_ITM_CTPRT_ISOLR = 126 ! (node) (Incoming) solicits rejected ! ! This next item code is only returned (it cannot be supplied as a ! SETMODE item). It indicates whether or not a service on the local ! node is password protected. ! DECLARE LONG CONSTANT LAT$_ITM_PASSWORD = 127 ! (svc) Password enabled/disabled DECLARE LONG CONSTANT LAT$_ITM_HI_CIRCUITS = 128 ! (node) Hi circuit count DECLARE LONG CONSTANT LAT$_ITM_CUR_CIRCUITS = 129 ! (node) Current circuit count DECLARE LONG CONSTANT LAT$_ITM_MAX_CIRCUITS = 130 ! (node) Maximum virtual circuits DECLARE LONG CONSTANT LAT$_ITM_HI_SESSIONS = 131 ! (node) Hi session count DECLARE LONG CONSTANT LAT$_ITM_CUR_SESSIONS = 132 ! (node) Current session count DECLARE LONG CONSTANT LAT$_ITM_MAX_SESSIONS = 133 ! (node) Maximum session count DECLARE LONG CONSTANT LAT$_ITM_HI_OUT_QUEUE = 134 ! (node) Hi outgoing queue entries DECLARE LONG CONSTANT LAT$_ITM_CUR_OUT_QUEUE = 135 ! (node) Current outgoing q entries DECLARE LONG CONSTANT LAT$_ITM_MAX_OUT_QUEUE = 136 ! (node) Maximum outgoing q entries DECLARE LONG CONSTANT LAT$_ITM_HI_IN_QUEUE = 137 ! (node) Hi incoming queue entries DECLARE LONG CONSTANT LAT$_ITM_CUR_IN_QUEUE = 138 ! (node) Current incoming q entries DECLARE LONG CONSTANT LAT$_ITM_MAX_IN_QUEUE = 139 ! (node) Maximum incoming q entries DECLARE LONG CONSTANT LAT$_ITM_HI_SAMS_QUEUED = 140 ! (node) Hi unprocessed SAMs DECLARE LONG CONSTANT LAT$_ITM_CUR_SAMS_QUEUED = 141 ! (node) Current unprocessed SAMs DECLARE LONG CONSTANT LAT$_ITM_MAX_SAMS_QUEUED = 142 ! (node) Maximum unprocessed SAMs DECLARE LONG CONSTANT LAT$_ITM_HI_SOL_QUEUED = 143 ! (node) Hi unprocessed sol infos DECLARE LONG CONSTANT LAT$_ITM_CUR_SOL_QUEUED = 144 ! (node) Current unprocessed sol infos DECLARE LONG CONSTANT LAT$_ITM_MAX_SOL_QUEUED = 145 ! (node) Maximum unprocessed sol infos DECLARE LONG CONSTANT LAT$_ITM_HI_AVAIL_SVCS = 146 ! (node) Hi available services DECLARE LONG CONSTANT LAT$_ITM_CUR_AVAIL_SVCS = 147 ! (node) Current available services DECLARE LONG CONSTANT LAT$_ITM_MAX_AVAIL_SVCS = 148 ! (node) Maximum available services DECLARE LONG CONSTANT LAT$_ITM_HI_REACH_NODES = 149 ! (node) Hi reachable nodes DECLARE LONG CONSTANT LAT$_ITM_CUR_REACH_NODES = 150 ! (node) Current reachable nodes DECLARE LONG CONSTANT LAT$_ITM_MAX_REACH_NODES = 151 ! (node) Maximum reachable nodes DECLARE LONG CONSTANT LAT$_ITM_HI_LCL_SVCS = 152 ! (node) Hi local services DECLARE LONG CONSTANT LAT$_ITM_CUR_LCL_SVCS = 153 ! (node) Current local services DECLARE LONG CONSTANT LAT$_ITM_MAX_LCL_SVCS = 154 ! (node) Maximum local services DECLARE LONG CONSTANT LAT$_ITM_DISCARDED_NODES = 155 ! (node) Discarded nodes DECLARE LONG CONSTANT LAT$_ITM_MAX_DL_BUFFERS = 156 ! (conn) Maximum datalink buffers DECLARE LONG CONSTANT LAT$_ITM_PRODUCT_TYPE = 157 ! (conn) Product type DECLARE LONG CONSTANT LAT$_ITM_REM_PRODUCT_VERSION = 158 ! (conn) Remote product version DECLARE LONG CONSTANT LAT$_ITM_CTPRT_FRAMERR = 159 ! (port) Framing errors DECLARE LONG CONSTANT LAT$_ITM_CTPRT_PARERR = 160 ! (port) Parity errors DECLARE LONG CONSTANT LAT$_ITM_CTPRT_OVERRUN = 161 ! (port) Data overruns DECLARE LONG CONSTANT LAT$_ITM_CTPRO_INVCLASS = 162 ! (protocol) protocol error invalid service class DECLARE LONG CONSTANT LAT$_ITM_CTPRO_EXCSTART = 163 ! (protocol) protocol error (excessive start slots) DECLARE LONG CONSTANT LAT$_ITM_CTNOD_XSTR = 164 ! (node) Remote node too many START slots DECLARE LONG CONSTANT LAT$_ITM_PASSWORD_FAILURES = 165 ! (service,port) Password failures DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ILLSAM = 166 ! (protocol) Illegal SAMs DECLARE LONG CONSTANT LAT$_ITM_TYPEAHEAD = 167 ! (port) 1 = typeahd present DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RMSG = 168 ! (link) LAT msgs rcvd DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RBYT = 169 ! (link) LAT bytes rcvd DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XMSG = 170 ! (link) LAT msgs xmt DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XBYT = 171 ! (link) LAT bytes xmt DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RMSG = 172 ! (link) LAT multicast msgs rcvd DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RBYT = 173 ! (link) LAT multicast bytes rcvd DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XMSG = 174 ! (link) LAT multicast msgs xmt DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XBYT = 175 ! (link) LAT multicast bytes xmt DECLARE LONG CONSTANT LAT$_ITM_PATH_STATE = 176 ! Datalink path state DECLARE LONG CONSTANT LAT$_ITM_LARGE_BUFFERS = 177 ! Use of large buffers by default DECLARE LONG CONSTANT LAT$_ITM_ANNOUNCEMENTS = 178 ! (node) Transmit service announcements DECLARE LONG CONSTANT LAT$_ITM_PORT_STATE = 179 ! (port) Current state DECLARE LONG CONSTANT LAT$_ITM_CTPRO_BADUID = 180 ! (protocol) Invalid node UID event DECLARE LONG CONSTANT LAT$C_ITM_MAXSCALAR = 180 DECLARE LONG CONSTANT LAT$_ITM_IDENTIFICATION = 16640 ! Entity (node or service) identification DECLARE LONG CONSTANT LAT$_ITM_SERVICE_NAME = 16641 ! Service name DECLARE LONG CONSTANT LAT$_ITM_NODE_NAME = 16642 ! Node name DECLARE LONG CONSTANT LAT$_ITM_PORT_NAME = 16643 ! Port name DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SERVICE_NAME = 16644 ! Port's connected service name DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_NODE_NAME = 16645 ! Port's connected node name DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_PORT_NAME = 16646 ! Port's connected port name DECLARE LONG CONSTANT LAT$_ITM_TARGET_SERVICE_NAME = 16647 ! Port's target service name DECLARE LONG CONSTANT LAT$_ITM_TARGET_NODE_NAME = 16648 ! Port's target node name DECLARE LONG CONSTANT LAT$_ITM_TARGET_PORT_NAME = 16649 ! Port's target port name DECLARE LONG CONSTANT LAT$_ITM_SERVICE_GROUPS = 16650 ! Enabled service groups bitmask DECLARE LONG CONSTANT LAT$_ITM_USER_GROUPS = 16651 ! Enabled user groups bitmask DECLARE LONG CONSTANT LAT$_ITM_LINK_NAME = 16652 ! Link name DECLARE LONG CONSTANT LAT$_ITM_SERVICE_PASSWORD = 16653 ! Service password DECLARE LONG CONSTANT LAT$_ITM_DEVICE_NAME = 16654 ! Link's device name DECLARE LONG CONSTANT LAT$_ITM_DATALINK_ADDRESS = 16655 ! 6-byte binary Ethernet address DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_VERSION = 16656 ! LAT protocol version string DECLARE LONG CONSTANT LAT$_ITM_SVC_NODE_BLOCK = 16657 ! Subblock for SENSE SERVICE DECLARE LONG CONSTANT LAT$_ITM_NODE_SVC_BLOCK = 16658 ! Subblock for SENSE NODE DECLARE LONG CONSTANT LAT$_ITM_DED_PORT_BLOCK = 16659 ! Subblock for dedicated ports DECLARE LONG CONSTANT LAT$_ITM_COUNTERS = 16660 ! Subblock for counters DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_ERRORS = 16661 ! Subblock for protocol errors DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_LINK_NAME = 16662 ! Port's connected link name DECLARE LONG CONSTANT LAT$_ITM_HISTORY_ENTRY = 16663 ! Node history buffer entry DECLARE LONG CONSTANT LAT$_ITM_CONNECT_ID = 16664 ! Connect ID name DECLARE LONG CONSTANT LAT$_ITM_SESSION_BLOCK = 16665 ! Subblock for SENSE CONNECTION DECLARE LONG CONSTANT LAT$_ITM_QUEUED_ENTRY_ID = 16666 ! Queued entry ID string DECLARE LONG CONSTANT LAT$_ITM_LIM_PORT_BLOCK = 16667 ! subblock for limited ports DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASSES = 16668 ! service class bitmask for node DECLARE LONG CONSTANT LAT$_ITM_LAT_DEV_CTR_BLOCK = 16669 ! link LAT only counters DECLARE LONG CONSTANT LAT$_ITM_PATH_BLOCK = 16670 ! Datalink path information DECLARE LONG CONSTANT LAT$C_ITM_MAXSTRING = 16670 DECLARE LONG CONSTANT LAT$S_ITEM_ENTRY = 6 record ITEM_ENTRY group LAT$R_ITM_CODE variant case WORD LAT$W_ITEMCODE case group LAT$R_ITM_BITS WORD ITEMINDEX_bits ! COMMENT ADDED BY SDL - ITEMINDEX_bits contains bits ITEMINDEX through CLEAR end group LAT$R_ITM_BITS end variant end group LAT$R_ITM_CODE group LAT$R_ITEM_VALUE variant case group LAT$R_ITEM_COUNTED_STRING BYTE LAT$B_ITEM_BCNT STRING LAT$T_ITEM_STRING_VALUE ( 1 to 1 ) = 1 end group LAT$R_ITEM_COUNTED_STRING case LONG LAT$L_ITEM_SCALAR_VALUE end variant end group LAT$R_ITEM_VALUE end record ITEM_ENTRY DECLARE LONG CONSTANT LAT$C_DISABLED = 0 DECLARE LONG CONSTANT LAT$C_ENABLED = 1 DECLARE LONG CONSTANT LAT$C_OFF = 0 DECLARE LONG CONSTANT LAT$C_ON = 1 DECLARE LONG CONSTANT LAT$C_SHUT = 2 DECLARE LONG CONSTANT LAT$M_FLUSH_DATA = 1 DECLARE LONG CONSTANT LAT$C_PT_FORWARD = 0 ! "Forward" connection port DECLARE LONG CONSTANT LAT$C_PT_INTERACTIVE = 1 ! Interactive incoming port DECLARE LONG CONSTANT LAT$C_PT_APPLICATION = 2 ! Application port DECLARE LONG CONSTANT LAT$C_PT_DEDICATED = 3 ! Dedicated port DECLARE LONG CONSTANT LAT$C_PT_LIMITED = 4 ! Limited port DECLARE LONG CONSTANT LAT$C_PT_STATE_INACTIVE = 0 ! Idle, no connection DECLARE LONG CONSTANT LAT$C_PT_STATE_CONNECTING = 1 ! Connection in progress, not done DECLARE LONG CONSTANT LAT$C_PT_STATE_ACTIVE = 2 ! Fully connected DECLARE LONG CONSTANT LAT$C_PT_STATE_DISCONNECTING = 3 ! In the disconnect process DECLARE LONG CONSTANT LAT$C_NT_LOCAL = 0 ! My own node DECLARE LONG CONSTANT LAT$C_NT_REMOTE = 1 ! The other guy DECLARE LONG CONSTANT LAT$C_ST_GENERAL = 0 ! General timesharing service DECLARE LONG CONSTANT LAT$C_ST_APPLICATION = 1 ! Application service DECLARE LONG CONSTANT LAT$C_ST_LIMITED = 2 ! Limited service DECLARE LONG CONSTANT LAT$C_DYNAMIC = 0 ! Dynamic calculation DECLARE LONG CONSTANT LAT$C_STATIC = 1 ! Fixed rating DECLARE LONG CONSTANT LAT$C_PS_WORKING = 0 DECLARE LONG CONSTANT LAT$C_PS_SUSPECT = 1 DECLARE LONG CONSTANT LAT$C_PS_FAILED = 2 DECLARE LONG CONSTANT LAT$C_CN_UNKNOWN = 0 ! Unknown connection type DECLARE LONG CONSTANT LAT$C_CN_INCOMING = 1 ! Slave connection DECLARE LONG CONSTANT LAT$C_CN_OUTGOING = 2 ! Master connection DECLARE LONG CONSTANT LAT$C_UNREACHABLE = 0 ! Known not there DECLARE LONG CONSTANT LAT$C_UNKNOWN = 1 ! Haven't heard in a while DECLARE LONG CONSTANT LAT$C_REACHABLE = 2 ! I heard from him DECLARE LONG CONSTANT LAT$C_UNAVAILABLE = 0 ! Can't get it DECLARE LONG CONSTANT LAT$C_AVAILABLE = 1 ! It IS there DECLARE LONG CONSTANT LAT$C_SERVCLASS_INTERACTIVE = 1 ! SC1 = TTDRIVER DECLARE LONG CONSTANT LAT$C_SERVCLASS_TESTSERVICE = 2 ! SC2 = TEST SERVICE DECLARE LONG CONSTANT LAT$C_SERVCLASS_XTRANSPORT = 3 ! SC3 = X Transport DECLARE LONG CONSTANT LAT$C_SERVCLASS_FONT = 4 ! SC4 = X Fonts DECLARE LONG CONSTANT LAT$S_LATSETBITS = 1 record LATSETBITS variant case STRING LAT$T_FILLER = 0 case STRING LAT$T_FILLER2 = 1 end variant end record LATSETBITS DECLARE LONG CONSTANT LAT$C_RATING_VECTOR_LENGTH = 56 ! Size of vector DECLARE LONG CONSTANT LAT$S_RATING_VEC = 56 record RATING_VEC LONG LAT$A_CONTROL_INIT_RTN ! Address of controller init LONG LAT$A_UNIT_INIT_RTN ! Address of init init LONG LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVER LONG LAT$A_TIMER_RTN ! Routine called each second LONG LAT$A_CALC_RATING_RTN ! Routine that calculates rating LONG LAT$A_STOP_RTN ! Routine called at LAT shutdown LONG LAT$A_SPARE1_RTN ! Expansion placeholder LONG LAT$A_SPARE2_RTN ! Expansion placeholder LONG LAT$A_SPARE3_RTN ! Expansion placeholder LONG LAT$A_SPARE4_RTN ! Expansion placeholder LONG LAT$A_SPARE5_RTN ! Expansion placeholder LONG LAT$A_SPARE6_RTN ! Expansion placeholder LONG LAT$A_SPARE7_RTN ! Expansion placeholder LONG LAT$A_SPARE8_RTN ! Expansion placeholder end record RATING_VEC