!*** MODULE $latdef *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN PARAMETER LAT$M_ETYPE = '0000FFFF'X PARAMETER LAT$C_ENT_NODE = '00000001'X PARAMETER LAT$C_ENT_SERVICE = '00000002'X PARAMETER LAT$C_ENT_LINK = '00000003'X PARAMETER LAT$C_ENT_PORT = '00000004'X PARAMETER LAT$C_ENT_CONNECTION = '00000005'X PARAMETER LAT$C_ENT_QUEUE_ENTRY = '00000006'X PARAMETER LAT$C_MAXETYPE = '00000006'X PARAMETER LAT$M_ESTATUS = '0000000F'X PARAMETER LAT$C_ENTS_OLD = '00000000'X ! Must already exist PARAMETER LAT$C_ENTS_NEW = '00000001'X ! Must NOT exist. Create it. PARAMETER LAT$C_ENTS_UNK = '00000002'X ! Create if it does not exist PARAMETER LAT$C_ENTS_DEL = '00000003'X ! Must exist. Delete it. PARAMETER LAT$M_SENSE_NEXT = '00000001'X PARAMETER LAT$M_SENSE_FULL = '00000002'X PARAMETER LAT$M_READ_HISTORY = '00000004'X STRUCTURE /ENTITY/ PARAMETER LAT$S_ETYPE = 16 PARAMETER LAT$V_ETYPE = 0 BYTE %FILL (2) UNION MAP PARAMETER LAT$S_ESTATUS = 4 PARAMETER LAT$V_ESTATUS = 0 BYTE %FILL (1) END MAP MAP UNION MAP BYTE LAT$B_EFLAGS ! Flags for SENSEmode END MAP MAP PARAMETER LAT$S_SENSE_NEXT = 1 PARAMETER LAT$V_SENSE_NEXT = 0 ! Wildcard flag PARAMETER LAT$S_SENSE_FULL = 1 PARAMETER LAT$V_SENSE_FULL = 1 ! Full (vs. summary) flag PARAMETER LAT$S_READ_HISTORY = 1 PARAMETER LAT$V_READ_HISTORY = 2 ! Used for history buffer BYTE %FILL (1) END MAP END UNION END MAP END UNION END STRUCTURE ! ENTITY PARAMETER LAT$M_ITEMINDEX = '00003FFF'X PARAMETER LAT$M_STRING = '00004000'X PARAMETER LAT$M_CLEAR = '00008000'X PARAMETER LAT$_ITM_STATE = '00000001'X ! Entity (node or port) state PARAMETER LAT$_ITM_CIRCUIT_TIMER = '00000002'X ! Circuit timer value PARAMETER LAT$_ITM_KEEPALIVE_TIMER = '00000003'X ! Keepalive timer value PARAMETER LAT$_ITM_MULTICAST_TIMER = '00000004'X ! Multicast timer value PARAMETER LAT$_ITM_NODE_LIMIT = '00000005'X ! Maximum number of nodes PARAMETER LAT$_ITM_RETRANSMIT_LIMIT = '00000006'X ! Retransmit limit value PARAMETER LAT$_ITM_SERVER_MODE = '00000007'X ! Enable LAT master flag PARAMETER LAT$_ITM_OUTGOING_SES_LIMIT = '00000008'X ! Outgoing sessions limit PARAMETER LAT$_ITM_INCOMING_SES_LIMIT = '00000009'X ! Incoming sessions limit PARAMETER LAT$_ITM_CONNECTIONS = '0000000A'X ! Enable LAT slave flag PARAMETER LAT$_ITM_DECNET_ADDRESS = '0000000B'X ! Use DECnet address flag PARAMETER LAT$_ITM_RATING = '0000000C'X ! Static LAT rating value PARAMETER LAT$_ITM_RATING_TYPE = '0000000D'X ! Dynamic/static rating flag PARAMETER LAT$_ITM_NODE_TYPE = '0000000E'X ! Local/remote node type flag PARAMETER LAT$_ITM_NODE_STATUS = '0000000F'X ! Reachable/unreachable flag PARAMETER LAT$_ITM_SERVICE_STATUS = '00000010'X ! Available/unavailable flag PARAMETER LAT$_ITM_PORT_TYPE = '00000011'X ! Port type value PARAMETER LAT$_ITM_QUEUED = '00000012'X ! Queued/nonqueued access flag PARAMETER LAT$_ITM_DISCONNECT_REASON = '00000013'X ! Reason for last disconnect PARAMETER LAT$_ITM_CONNECTED_COUNT = '00000014'X ! Number of current sessions PARAMETER LAT$_ITM_SERVICE_TYPE = '00000015'X ! Service type value PARAMETER LAT$_ITM_CTNOD_SSZ = '00000016'X ! (node) Seconds since zeroed PARAMETER LAT$_ITM_CTNOD_MSGR = '00000017'X ! (node) Messages received PARAMETER LAT$_ITM_CTNOD_MSGT = '00000018'X ! (node) Messages transmitted PARAMETER LAT$_ITM_CTNOD_SLTR = '00000019'X ! (node) Slots received PARAMETER LAT$_ITM_CTNOD_SLTT = '0000001A'X ! (node) Slots transmitted PARAMETER LAT$_ITM_CTNOD_BYTR = '0000001B'X ! (node) Bytes received PARAMETER LAT$_ITM_CTNOD_BYTT = '0000001C'X ! (node) Bytes transmitted PARAMETER LAT$_ITM_CTNOD_MNA = '0000001D'X ! (node) Multiple node addresses PARAMETER LAT$_ITM_CTNOD_DUP = '0000001E'X ! (node) Duplicates received PARAMETER LAT$_ITM_CTNOD_MRT = '0000001F'X ! (node) Messages retransmitted PARAMETER LAT$_ITM_CTNOD_ILM = '00000020'X ! (node) Illegal messages received PARAMETER LAT$_ITM_CTNOD_ILS = '00000021'X ! (node) Illegal slots received PARAMETER LAT$_ITM_CTNOD_SLCA = '00000022'X ! (node) Solicitations accepted PARAMETER LAT$_ITM_CTNOD_SLCR = '00000023'X ! (node) Solicitations rejected PARAMETER LAT$_ITM_CTNOD_TER = '00000024'X ! (node) Transmit errors PARAMETER LAT$_ITM_CTNOD_RES = '00000025'X ! (node) Resource errors PARAMETER LAT$_ITM_CTNOD_NTB = '00000026'X ! (node) No transmit buffer PARAMETER LAT$_ITM_CTNOD_TMO = '00000027'X ! (node) Virtual circuit timeouts PARAMETER LAT$_ITM_CTNOD_DOB = '00000028'X ! (node) Discarded output bytes PARAMETER LAT$_ITM_CTNOD_LSTER = '00000029'X ! (node) Last transmit error PARAMETER LAT$_ITM_CTNOD_PROTO = '0000002A'X ! (node) Protocol error count PARAMETER LAT$_ITM_CTPRO_IVM = '0000002B'X ! (protocol) Invalid message type received PARAMETER LAT$_ITM_CTPRO_ISM = '0000002C'X ! (protocol) Invalid start message received PARAMETER LAT$_ITM_CTPRO_IVS = '0000002D'X ! (protocol) Invalid sequence number PARAMETER LAT$_ITM_CTPRO_NIZ = '0000002E'X ! (protocol) Zero node index received PARAMETER LAT$_ITM_CTPRO_ICI = '0000002F'X ! (protocol) Invalid server slot index PARAMETER LAT$_ITM_CTPRO_CSI = '00000030'X ! (protocol) Circuit sequence invalid PARAMETER LAT$_ITM_CTPRO_NLV = '00000031'X ! (protocol) Circuit index no longer valid PARAMETER LAT$_ITM_CTPRO_HALT = '00000032'X ! (protocol) Circuit forced to halt PARAMETER LAT$_ITM_CTPRO_MIZ = '00000033'X ! (protocol) Invalid master slot index PARAMETER LAT$_ITM_CTPRO_SIZ = '00000034'X ! (protocol) Invalid slave slot index PARAMETER LAT$_ITM_CTPRO_CRED = '00000035'X ! (protocol) Invalid credit field PARAMETER LAT$_ITM_CTPRO_RCSM = '00000036'X ! (protocol) Repeat master slot create PARAMETER LAT$_ITM_CTPRO_RDSM = '00000037'X ! (protocol) Repeat master slot disconnect PARAMETER LAT$_ITM_CTSRV_SSZ = '00000038'X ! (service) Seconds since zeroed PARAMETER LAT$_ITM_CTSRV_MCNA = '00000039'X ! (service) Connections attempted PARAMETER LAT$_ITM_CTSRV_MCNC = '0000003A'X ! (service) Connections completed PARAMETER LAT$_ITM_CTSRV_SCNA = '0000003B'X ! (service) Connections accepted PARAMETER LAT$_ITM_CTSRV_SCNR = '0000003C'X ! (service) Connections rejected PARAMETER LAT$_ITM_CTPRT_SSZ = '0000003D'X ! (port) Seconds since zeroed PARAMETER LAT$_ITM_CTPRT_RMT = '0000003E'X ! (port) Remote accesses PARAMETER LAT$_ITM_CTPRT_BYTR = '0000003F'X ! (port) Bytes received PARAMETER LAT$_ITM_CTPRT_BYTT = '00000040'X ! (port) Bytes transmitted PARAMETER LAT$_ITM_MAXIMUM_UNITS = '00000041'X ! Maximum LTA device unit number PARAMETER LAT$_ITM_SERVICE_CLASS = '00000042'X ! Port service class item PARAMETER LAT$_ITM_DISPLAY_NUMBER = '00000043'X ! X Display Number (Binary) PARAMETER LAT$_ITM_CPU_RATING = '00000044'X ! CPU rating PARAMETER LAT$_ITM_SERVICE_RESPONDER = '00000045'X ! Service responder PARAMETER LAT$_ITM_CTNOD_MCBXMT = '00000046'X ! (node) Multicast bytes xmt PARAMETER LAT$_ITM_CTNOD_MCBRCV = '00000047'X ! (node) Multicast bytes rcv PARAMETER LAT$_ITM_CTNOD_MCMXMT = '00000048'X ! (node) Multicast msgs xmt PARAMETER LAT$_ITM_CTNOD_MCMRCV = '00000049'X ! (node) Multicast msgs rcv PARAMETER LAT$_ITM_CTNOD_SOLFAIL = '0000004A'X ! (node) Solicit failures PARAMETER LAT$_ITM_CTNOD_ATLOS = '0000004B'X ! (node) Attention slot lost PARAMETER LAT$_ITM_CTNOD_DATLOS = '0000004C'X ! (node) User data lost PARAMETER LAT$_ITM_CTNOD_NOREJ = '0000004D'X ! (node) No reject slot sent PARAMETER LAT$_ITM_CTNOD_LOSCT = '0000004E'X ! (node) Node counter lost PARAMETER LAT$_ITM_CTNOD_LOSSAM = '0000004F'X ! (node) s.a.m. lossage PARAMETER LAT$_ITM_CTNOD_NOSAM = '00000050'X ! (node) Couldn't send s.a.m. PARAMETER LAT$_ITM_CTNOD_NOSTS = '00000051'X ! (node) Lost node status PARAMETER LAT$_ITM_CTNOD_NOXMT = '00000052'X ! (node) No link to send on PARAMETER LAT$_ITM_HISTORY = '00000053'X ! (node) History buffer enable PARAMETER LAT$_ITM_CTNOD_CTLERR = '00000054'X ! (node) Controller errors PARAMETER LAT$_ITM_CTNOD_CERRCOD = '00000055'X ! (node) Last controller error PARAMETER LAT$_ITM_CTNOD_ISOLA = '00000056'X ! (node) (Incoming) solicits accepted PARAMETER LAT$_ITM_CTNOD_ISOLR = '00000057'X ! (node) (Incoming) solicits rejected PARAMETER LAT$_ITM_CONNECTED_SESSIONS = '00000058'X ! Connected session count PARAMETER LAT$_ITM_CONNECT_TYPE = '00000059'X ! Connection type PARAMETER LAT$_ITM_CONNECTION_SESS_LIM = '0000005A'X ! Connection session limit PARAMETER LAT$_ITM_CTCON_MSGRCV = '0000005B'X ! (conn) msgs received PARAMETER LAT$_ITM_CTCON_DUPRCV = '0000005C'X ! (conn) dup msgs rcvd PARAMETER LAT$_ITM_CTCON_MSGXMT = '0000005D'X ! (conn) msgs xmtd PARAMETER LAT$_ITM_CTCON_MSGILL = '0000005E'X ! (conn) illegal msgs rcvd PARAMETER LAT$_ITM_CTCON_MSGRXT = '0000005F'X ! (conn) msgs retransmitted PARAMETER LAT$_ITM_CTCON_SLTILL = '00000060'X ! (conn) ill slots rcvd PARAMETER LAT$_ITM_CTCON_DUPNOD = '00000061'X ! (conn) duplicate node PARAMETER LAT$_ITM_CTCON_SECZER = '00000062'X ! (conn) seconds since zero PARAMETER LAT$_ITM_CTCON_BYTRCV = '00000063'X ! (conn) bytes received PARAMETER LAT$_ITM_CTCON_BYTXMT = '00000064'X ! (conn) bytes xmtd PARAMETER LAT$_ITM_CTCON_SLTRCV = '00000065'X ! (conn) slots rcvd PARAMETER LAT$_ITM_CTCON_SLTXMT = '00000066'X ! (conn) slots transmitted PARAMETER LAT$_ITM_CTCON_SOLACP = '00000067'X ! (conn) solicits accepted PARAMETER LAT$_ITM_CTCON_SOLREJ = '00000068'X ! (conn) solicits rejected PARAMETER LAT$_ITM_CTCON_XERR = '00000069'X ! (conn) last transmit error PARAMETER LAT$_ITM_CTCON_XERRCOD = '0000006A'X ! (conn) last xmt error code PARAMETER LAT$_ITM_CTCON_ATTLOS = '0000006B'X ! (conn) attention slot loss PARAMETER LAT$_ITM_CTCON_DATLOS = '0000006C'X ! (conn) data loss PARAMETER LAT$_ITM_CTCON_CANTREJ = '0000006D'X ! (conn) reject slot loss PARAMETER LAT$_ITM_SESSION_NUMBER = '0000006E'X ! (conn) session number for subblock PARAMETER LAT$_ITM_FORWARD_SESSION_LIMIT = '0000006F'X ! (node) forward session limit PARAMETER LAT$_ITM_EXTRA_DATALINK_BUFFERS = '00000070'X ! Extra datalink buffers PARAMETER LAT$_ITM_TRANSMIT_BUFFERS_INUSE = '00000071'X ! Transmit buffers in use PARAMETER LAT$_ITM_QUE_POS_OBSOLETE = '00000072'X ! Queue position for entry ! Obsolete - node queue and ! service queue position are ! now implemented. PARAMETER LAT$_ITM_QUEUE_DEPTH_LIMIT = '00000073'X ! (node) queue depth limit PARAMETER LAT$_ITM_DEVICE_SEED = '00000074'X ! (node) device seed PARAMETER LAT$_ITM_NODE_QUEUE_POSITION = '00000075'X ! (port) minimum queue position PARAMETER LAT$_ITM_SERVICE_QUEUE_POSITION = '00000076'X ! (port) maximum queue position PARAMETER LAT$_ITM_DIALUP = '00000077'X ! (port) dialup characteristic PARAMETER LAT$_ITM_AUTOPROMPT = '00000078'X ! (port) autoprompt char PARAMETER LAT$_ITM_RATING_LOAD_OBSOLETE = '00000079'X ! obsolete - portion of rating for load PARAMETER LAT$_ITM_CTPRT_LCL = '0000007A'X ! (port) local accesses PARAMETER LAT$_ITM_CTPRT_SLCA = '0000007B'X ! (port) Solicitations accepted PARAMETER LAT$_ITM_CTPRT_SLCR = '0000007C'X ! (port) Solicitations rejected PARAMETER LAT$_ITM_CTPRT_ISOLA = '0000007D'X ! (node) (Incoming) solicits accepted PARAMETER LAT$_ITM_CTPRT_ISOLR = '0000007E'X ! (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. ! PARAMETER LAT$_ITM_PASSWORD = '0000007F'X ! (svc) Password enabled/disabled PARAMETER LAT$_ITM_HI_CIRCUITS = '00000080'X ! (node) Hi circuit count PARAMETER LAT$_ITM_CUR_CIRCUITS = '00000081'X ! (node) Current circuit count PARAMETER LAT$_ITM_MAX_CIRCUITS = '00000082'X ! (node) Maximum virtual circuits PARAMETER LAT$_ITM_HI_SESSIONS = '00000083'X ! (node) Hi session count PARAMETER LAT$_ITM_CUR_SESSIONS = '00000084'X ! (node) Current session count PARAMETER LAT$_ITM_MAX_SESSIONS = '00000085'X ! (node) Maximum session count PARAMETER LAT$_ITM_HI_OUT_QUEUE = '00000086'X ! (node) Hi outgoing queue entries PARAMETER LAT$_ITM_CUR_OUT_QUEUE = '00000087'X ! (node) Current outgoing q entries PARAMETER LAT$_ITM_MAX_OUT_QUEUE = '00000088'X ! (node) Maximum outgoing q entries PARAMETER LAT$_ITM_HI_IN_QUEUE = '00000089'X ! (node) Hi incoming queue entries PARAMETER LAT$_ITM_CUR_IN_QUEUE = '0000008A'X ! (node) Current incoming q entries PARAMETER LAT$_ITM_MAX_IN_QUEUE = '0000008B'X ! (node) Maximum incoming q entries PARAMETER LAT$_ITM_HI_SAMS_QUEUED = '0000008C'X ! (node) Hi unprocessed SAMs PARAMETER LAT$_ITM_CUR_SAMS_QUEUED = '0000008D'X ! (node) Current unprocessed SAMs PARAMETER LAT$_ITM_MAX_SAMS_QUEUED = '0000008E'X ! (node) Maximum unprocessed SAMs PARAMETER LAT$_ITM_HI_SOL_QUEUED = '0000008F'X ! (node) Hi unprocessed sol infos PARAMETER LAT$_ITM_CUR_SOL_QUEUED = '00000090'X ! (node) Current unprocessed sol infos PARAMETER LAT$_ITM_MAX_SOL_QUEUED = '00000091'X ! (node) Maximum unprocessed sol infos PARAMETER LAT$_ITM_HI_AVAIL_SVCS = '00000092'X ! (node) Hi available services PARAMETER LAT$_ITM_CUR_AVAIL_SVCS = '00000093'X ! (node) Current available services PARAMETER LAT$_ITM_MAX_AVAIL_SVCS = '00000094'X ! (node) Maximum available services PARAMETER LAT$_ITM_HI_REACH_NODES = '00000095'X ! (node) Hi reachable nodes PARAMETER LAT$_ITM_CUR_REACH_NODES = '00000096'X ! (node) Current reachable nodes PARAMETER LAT$_ITM_MAX_REACH_NODES = '00000097'X ! (node) Maximum reachable nodes PARAMETER LAT$_ITM_HI_LCL_SVCS = '00000098'X ! (node) Hi local services PARAMETER LAT$_ITM_CUR_LCL_SVCS = '00000099'X ! (node) Current local services PARAMETER LAT$_ITM_MAX_LCL_SVCS = '0000009A'X ! (node) Maximum local services PARAMETER LAT$_ITM_DISCARDED_NODES = '0000009B'X ! (node) Discarded nodes PARAMETER LAT$_ITM_MAX_DL_BUFFERS = '0000009C'X ! (conn) Maximum datalink buffers PARAMETER LAT$_ITM_PRODUCT_TYPE = '0000009D'X ! (conn) Product type PARAMETER LAT$_ITM_REM_PRODUCT_VERSION = '0000009E'X ! (conn) Remote product version PARAMETER LAT$_ITM_CTPRT_FRAMERR = '0000009F'X ! (port) Framing errors PARAMETER LAT$_ITM_CTPRT_PARERR = '000000A0'X ! (port) Parity errors PARAMETER LAT$_ITM_CTPRT_OVERRUN = '000000A1'X ! (port) Data overruns PARAMETER LAT$_ITM_CTPRO_INVCLASS = '000000A2'X ! (protocol) protocol error invalid service class PARAMETER LAT$_ITM_CTPRO_EXCSTART = '000000A3'X ! (protocol) protocol error (excessive start slots) PARAMETER LAT$_ITM_CTNOD_XSTR = '000000A4'X ! (node) Remote node too many START slots PARAMETER LAT$_ITM_PASSWORD_FAILURES = '000000A5'X ! (service,port) Password failures PARAMETER LAT$_ITM_CTPRO_ILLSAM = '000000A6'X ! (protocol) Illegal SAMs PARAMETER LAT$_ITM_TYPEAHEAD = '000000A7'X ! (port) 1 = typeahd present PARAMETER LAT$_ITM_CTLAT_RMSG = '000000A8'X ! (link) LAT msgs rcvd PARAMETER LAT$_ITM_CTLAT_RBYT = '000000A9'X ! (link) LAT bytes rcvd PARAMETER LAT$_ITM_CTLAT_XMSG = '000000AA'X ! (link) LAT msgs xmt PARAMETER LAT$_ITM_CTLAT_XBYT = '000000AB'X ! (link) LAT bytes xmt PARAMETER LAT$_ITM_CTLAT_MUL_RMSG = '000000AC'X ! (link) LAT multicast msgs rcvd PARAMETER LAT$_ITM_CTLAT_MUL_RBYT = '000000AD'X ! (link) LAT multicast bytes rcvd PARAMETER LAT$_ITM_CTLAT_MUL_XMSG = '000000AE'X ! (link) LAT multicast msgs xmt PARAMETER LAT$_ITM_CTLAT_MUL_XBYT = '000000AF'X ! (link) LAT multicast bytes xmt PARAMETER LAT$_ITM_PATH_STATE = '000000B0'X ! Datalink path state PARAMETER LAT$_ITM_LARGE_BUFFERS = '000000B1'X ! Use of large buffers by default PARAMETER LAT$_ITM_ANNOUNCEMENTS = '000000B2'X ! (node) Transmit service announcements PARAMETER LAT$_ITM_PORT_STATE = '000000B3'X ! (port) Current state PARAMETER LAT$_ITM_CTPRO_BADUID = '000000B4'X ! (protocol) Invalid node UID event PARAMETER LAT$C_ITM_MAXSCALAR = '000000B4'X PARAMETER LAT$_ITM_IDENTIFICATION = '00004100'X ! Entity (node or service) identification PARAMETER LAT$_ITM_SERVICE_NAME = '00004101'X ! Service name PARAMETER LAT$_ITM_NODE_NAME = '00004102'X ! Node name PARAMETER LAT$_ITM_PORT_NAME = '00004103'X ! Port name PARAMETER LAT$_ITM_CONNECTED_SERVICE_NAME = '00004104'X ! Port's connected service name PARAMETER LAT$_ITM_CONNECTED_NODE_NAME = '00004105'X ! Port's connected node name PARAMETER LAT$_ITM_CONNECTED_PORT_NAME = '00004106'X ! Port's connected port name PARAMETER LAT$_ITM_TARGET_SERVICE_NAME = '00004107'X ! Port's target service name PARAMETER LAT$_ITM_TARGET_NODE_NAME = '00004108'X ! Port's target node name PARAMETER LAT$_ITM_TARGET_PORT_NAME = '00004109'X ! Port's target port name PARAMETER LAT$_ITM_SERVICE_GROUPS = '0000410A'X ! Enabled service groups bitmask PARAMETER LAT$_ITM_USER_GROUPS = '0000410B'X ! Enabled user groups bitmask PARAMETER LAT$_ITM_LINK_NAME = '0000410C'X ! Link name PARAMETER LAT$_ITM_SERVICE_PASSWORD = '0000410D'X ! Service password PARAMETER LAT$_ITM_DEVICE_NAME = '0000410E'X ! Link's device name PARAMETER LAT$_ITM_DATALINK_ADDRESS = '0000410F'X ! 6-byte binary Ethernet address PARAMETER LAT$_ITM_PROTOCOL_VERSION = '00004110'X ! LAT protocol version string PARAMETER LAT$_ITM_SVC_NODE_BLOCK = '00004111'X ! Subblock for SENSE SERVICE PARAMETER LAT$_ITM_NODE_SVC_BLOCK = '00004112'X ! Subblock for SENSE NODE PARAMETER LAT$_ITM_DED_PORT_BLOCK = '00004113'X ! Subblock for dedicated ports PARAMETER LAT$_ITM_COUNTERS = '00004114'X ! Subblock for counters PARAMETER LAT$_ITM_PROTOCOL_ERRORS = '00004115'X ! Subblock for protocol errors PARAMETER LAT$_ITM_CONNECTED_LINK_NAME = '00004116'X ! Port's connected link name PARAMETER LAT$_ITM_HISTORY_ENTRY = '00004117'X ! Node history buffer entry PARAMETER LAT$_ITM_CONNECT_ID = '00004118'X ! Connect ID name PARAMETER LAT$_ITM_SESSION_BLOCK = '00004119'X ! Subblock for SENSE CONNECTION PARAMETER LAT$_ITM_QUEUED_ENTRY_ID = '0000411A'X ! Queued entry ID string PARAMETER LAT$_ITM_LIM_PORT_BLOCK = '0000411B'X ! subblock for limited ports PARAMETER LAT$_ITM_SERVICE_CLASSES = '0000411C'X ! service class bitmask for node PARAMETER LAT$_ITM_LAT_DEV_CTR_BLOCK = '0000411D'X ! link LAT only counters PARAMETER LAT$_ITM_PATH_BLOCK = '0000411E'X ! Datalink path information PARAMETER LAT$C_ITM_MAXSTRING = '0000411E'X STRUCTURE /ITEM_ENTRY/ UNION MAP INTEGER*2 LAT$W_ITEMCODE END MAP MAP PARAMETER LAT$S_ITEMINDEX = 14 PARAMETER LAT$V_ITEMINDEX = 0 PARAMETER LAT$S_STRING = 1 PARAMETER LAT$V_STRING = 14 PARAMETER LAT$S_CLEAR = 1 PARAMETER LAT$V_CLEAR = 15 BYTE %FILL (2) END MAP END UNION UNION MAP BYTE LAT$B_ITEM_BCNT CHARACTER*1 LAT$T_ITEM_STRING_VALUE(1:1) END MAP MAP INTEGER*4 LAT$L_ITEM_SCALAR_VALUE END MAP END UNION END STRUCTURE ! ITEM_ENTRY PARAMETER LAT$C_DISABLED = '00000000'X PARAMETER LAT$C_ENABLED = '00000001'X PARAMETER LAT$C_OFF = '00000000'X PARAMETER LAT$C_ON = '00000001'X PARAMETER LAT$C_SHUT = '00000002'X PARAMETER LAT$M_FLUSH_DATA = '00000001'X PARAMETER LAT$C_PT_FORWARD = '00000000'X ! "Forward" connection port PARAMETER LAT$C_PT_INTERACTIVE = '00000001'X ! Interactive incoming port PARAMETER LAT$C_PT_APPLICATION = '00000002'X ! Application port PARAMETER LAT$C_PT_DEDICATED = '00000003'X ! Dedicated port PARAMETER LAT$C_PT_LIMITED = '00000004'X ! Limited port PARAMETER LAT$C_PT_STATE_INACTIVE = '00000000'X ! Idle, no connection PARAMETER LAT$C_PT_STATE_CONNECTING = '00000001'X ! Connection in progress, not done PARAMETER LAT$C_PT_STATE_ACTIVE = '00000002'X ! Fully connected PARAMETER LAT$C_PT_STATE_DISCONNECTING = '00000003'X ! In the disconnect process PARAMETER LAT$C_NT_LOCAL = '00000000'X ! My own node PARAMETER LAT$C_NT_REMOTE = '00000001'X ! The other guy PARAMETER LAT$C_ST_GENERAL = '00000000'X ! General timesharing service PARAMETER LAT$C_ST_APPLICATION = '00000001'X ! Application service PARAMETER LAT$C_ST_LIMITED = '00000002'X ! Limited service PARAMETER LAT$C_DYNAMIC = '00000000'X ! Dynamic calculation PARAMETER LAT$C_STATIC = '00000001'X ! Fixed rating PARAMETER LAT$C_PS_WORKING = '00000000'X PARAMETER LAT$C_PS_SUSPECT = '00000001'X PARAMETER LAT$C_PS_FAILED = '00000002'X PARAMETER LAT$C_CN_UNKNOWN = '00000000'X ! Unknown connection type PARAMETER LAT$C_CN_INCOMING = '00000001'X ! Slave connection PARAMETER LAT$C_CN_OUTGOING = '00000002'X ! Master connection PARAMETER LAT$C_UNREACHABLE = '00000000'X ! Known not there PARAMETER LAT$C_UNKNOWN = '00000001'X ! Haven't heard in a while PARAMETER LAT$C_REACHABLE = '00000002'X ! I heard from him PARAMETER LAT$C_UNAVAILABLE = '00000000'X ! Can't get it PARAMETER LAT$C_AVAILABLE = '00000001'X ! It IS there PARAMETER LAT$C_SERVCLASS_INTERACTIVE = '00000001'X ! SC1 = TTDRIVER PARAMETER LAT$C_SERVCLASS_TESTSERVICE = '00000002'X ! SC2 = TEST SERVICE PARAMETER LAT$C_SERVCLASS_XTRANSPORT = '00000003'X ! SC3 = X Transport PARAMETER LAT$C_SERVCLASS_FONT = '00000004'X ! SC4 = X Fonts STRUCTURE /LATSETBITS/ UNION MAP ! unsupported type CHARACTER*0 LAT$T_FILLER END MAP MAP CHARACTER*1 LAT$T_FILLER2 END MAP END UNION END STRUCTURE ! LATSETBITS PARAMETER LAT$C_RATING_VECTOR_LENGTH = '00000038'X ! Size of vector STRUCTURE /RATING_VEC/ INTEGER*4 LAT$A_CONTROL_INIT_RTN ! Address of controller init INTEGER*4 LAT$A_UNIT_INIT_RTN ! Address of init init INTEGER*4 LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVER INTEGER*4 LAT$A_TIMER_RTN ! Routine called each second INTEGER*4 LAT$A_CALC_RATING_RTN ! Routine that calculates rating INTEGER*4 LAT$A_STOP_RTN ! Routine called at LAT shutdown INTEGER*4 LAT$A_SPARE1_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE2_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE3_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE4_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE5_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE6_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE7_RTN ! Expansion placeholder INTEGER*4 LAT$A_SPARE8_RTN ! Expansion placeholder END STRUCTURE ! RATING_VEC !DEC$ END OPTIONS