home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / LUA_K.COP < prev    next >
Text File  |  1995-06-27  |  25KB  |  569 lines
  1.  /************************************************************/
  2.  /*                                                          */
  3.  /*              L U A   V e r b   T y p e s                 */
  4.  /*                                                          */
  5.  /************************************************************/
  6.  
  7.  define alias UINT16 unsigned fixed bin(16);
  8.  define alias @UINT16 pointer;
  9.  
  10.  dcl SLI external entry options(linkage(pascal16) asm);
  11.  
  12.  %dcl (LUA_VERB_RUI,
  13.        LUA_VERB_SLI)         char;
  14.  
  15.  
  16.  %LUA_VERB_RUI = '''0052''xn';
  17.  %LUA_VERB_SLI = '''0052''xn';
  18.  
  19.  
  20.  /************************************************************/
  21.  /*                                                          */
  22.  /*    L U A   O p c o d e s . .   R U I   a n d   S L I     */
  23.  /*                                                          */
  24.  /************************************************************/
  25.  
  26.  %dcl (LUA_OPCODE_RUI_INIT,
  27.        LUA_OPCODE_RUI_TERM,
  28.        LUA_OPCODE_RUI_READ,
  29.        LUA_OPCODE_RUI_WRITE,
  30.        LUA_OPCODE_RUI_PURGE,
  31.        LUA_OPCODE_RUI_BID,
  32.        LUA_OPCODE_SLI_OPEN,
  33.        LUA_OPCODE_SLI_CLOSE,
  34.        LUA_OPCODE_SLI_RECEIVE,
  35.        LUA_OPCODE_SLI_SEND,
  36.        LUA_OPCODE_SLI_PURGE,
  37.        LUA_OPCODE_SLI_BID,
  38.        LUA_OPCODE_SLI_BIND_ROUTINE,
  39.        LUA_OPCODE_SLI_STSN_ROUTINE,
  40.        LUA_OPCODE_SLI_CRV_ROUTINE,
  41.        LUA_OPCODE_SLI_SDT_ROUTINE) char;
  42.  
  43.      %LUA_OPCODE_RUI_INIT         = '''8001''xn';
  44.      %LUA_OPCODE_RUI_TERM         = '''8002''xn';
  45.      %LUA_OPCODE_RUI_READ         = '''8003''xn';
  46.      %LUA_OPCODE_RUI_WRITE        = '''8004''xn';
  47.      %LUA_OPCODE_RUI_PURGE        = '''8005''xn';
  48.      %LUA_OPCODE_RUI_BID          = '''8006''xn';
  49.      %LUA_OPCODE_SLI_OPEN         = '''0001''xn';
  50.      %LUA_OPCODE_SLI_CLOSE        = '''0002''xn';
  51.      %LUA_OPCODE_SLI_RECEIVE      = '''0003''xn';
  52.      %LUA_OPCODE_SLI_SEND         = '''0004''xn';
  53.      %LUA_OPCODE_SLI_PURGE        = '''0005''xn';
  54.      %LUA_OPCODE_SLI_BID          = '''0006''xn';
  55.      %LUA_OPCODE_SLI_BIND_ROUTINE = '''0011''xn';
  56.      %LUA_OPCODE_SLI_STSN_ROUTINE = '''0012''xn';
  57.      %LUA_OPCODE_SLI_CRV_ROUTINE  = '''0013''xn';
  58.      %LUA_OPCODE_SLI_SDT_ROUTINE  = '''0014''xn';
  59.  
  60.  /************************************************************/
  61.  /*                                                          */
  62.  /* Primary Return codes (stored in LUA_PRIM_RC)             */
  63.  /*                                                          */
  64.  /************************************************************/
  65.  
  66.  %dcl (LUA_OK,
  67.        LUA_PARAMETER_CHECK,
  68.        LUA_STATE_CHECK,
  69.        LUA_SESSION_FAILURE,
  70.        LUA_UNSUCCESSFUL,
  71.        LUA_NEGATIVE_RSP,
  72.        LUA_CANCELLED,
  73.        LUA_IN_PROGRESS,
  74.        LUA_STATUS,
  75.        LUA_COMM_SUBSYSTEM_ABENDED,
  76.        LUA_COMM_SUBSYSTEM_NOT_LOADED,
  77.        LUA_INVALID_VERB_SEGMENT,
  78.        LUA_UNEXPECTED_DOS_ERROR,
  79.        LUA_STACK_TOO_SMALL,
  80.        LUA_SERVER_RESOURCE_NOT_FOUND,
  81.        LUA_INVALID_VERB)
  82.                                         char;
  83.  
  84.      %LUA_OK                           = '''0000''xn';
  85.      %LUA_PARAMETER_CHECK              = '''0100''xn';
  86.      %LUA_STATE_CHECK                  = '''0200''xn';
  87.      %LUA_SESSION_FAILURE              = '''0F00''xn';
  88.      %LUA_UNSUCCESSFUL                 = '''1400''xn';
  89.      %LUA_NEGATIVE_RSP                 = '''1800''xn';
  90.      %LUA_CANCELLED                    = '''2100''xn';
  91.      %LUA_IN_PROGRESS                  = '''3000''xn';
  92.      %LUA_STATUS                       = '''4000''xn';
  93.      %LUA_COMM_SUBSYSTEM_ABENDED       = '''03F0''xn';
  94.      %LUA_COMM_SUBSYSTEM_NOT_LOADED    = '''04F0''xn';
  95.      %LUA_INVALID_VERB_SEGMENT         = '''08F0''xn';
  96.      %LUA_UNEXPECTED_DOS_ERROR         = '''11F0''xn';
  97.      %LUA_STACK_TOO_SMALL              = '''15F0''xn';
  98.      %LUA_SERVER_RESOURCE_NOT_FOUND    = '''24F0''xn';
  99.      %LUA_INVALID_VERB                 = '''FFFF''xn';
  100.  
  101.  /************************************************************/
  102.  /*                                                          */
  103.  /* Secondary Return Codes (stored in LUA_SEC_RC)            */
  104.  /*                                                          */
  105.  /************************************************************/
  106.  
  107.  %dcl (LUA_SEC_RC_OK,
  108.        LUA_INVALID_LUNAME,
  109.        LUA_BAD_SESSION_ID,
  110.        LUA_DATA_TRUNCATED,
  111.        LUA_BAD_DATA_PTR,
  112.        LUA_DATA_SEG_LENGTH_ERROR,
  113.        LUA_RESERVED_FIELD_NOT_ZERO,
  114.        LUA_INVALID_POST_HANDLE,
  115.        LUA_PURGED,
  116.        LUA_TH_SEQ_NBR_ERROR,
  117.        LUA_BID_VERB_SEG_ERROR,
  118.        LUA_NO_PREVIOUS_BID_ENABLED,
  119.        LUA_NO_DATA,
  120.        LUA_BID_ALREADY_ENABLED,
  121.        LUA_VERB_RECORD_SPANS_SEGMENTS,
  122.        LUA_INVALID_FLOW,
  123.        LUA_NOT_ACTIVE,
  124.        LUA_VERB_LENGTH_INVALID,
  125.        LUA_REQUIRED_FIELD_MISSING,
  126.        LUA_READY,
  127.        LUA_NOT_READY,
  128.        LUA_INIT_COMPLETE,
  129.        LUA_SESSION_END_REQUESTED,
  130.        LUA_NO_SLI_SESSION,
  131.        LUA_SESSION_ALREADY_OPEN,
  132.        LUA_INVALID_OPEN_INIT_TYPE,
  133.        LUA_INVALID_OPEN_DATA,
  134.        LUA_UNEXPECTED_SNA_SEQUENCE,
  135.        LUA_NEG_RSP_FROM_BIND_ROUTINE,
  136.        LUA_NEG_RSP_FROM_CRV_ROUTINE,
  137.        LUA_NEG_RSP_FROM_STSN_ROUTINE,
  138.        LUA_CRV_ROUTINE_REQUIRED,
  139.        LUA_NEG_RSP_FROM_SDT_ROUTINE,
  140.        LUA_INVALID_OPEN_ROUTINE_TYPE,
  141.        LUA_MAX_NUMBER_OF_SENDS,
  142.        LUA_SEND_ON_FLOW_PENDING,
  143.        LUA_INVALID_MESSAGE_TYPE,
  144.        LUA_RECEIVE_ON_FLOW_PENDING,
  145.        LUA_DATA_LENGTH_ERROR,
  146.        LUA_CLOSE_PENDING,
  147.        LUA_NEGATIVE_RSP_CHASE,
  148.        LUA_NEGATIVE_RSP_SHUTC,
  149.        LUA_NEGATIVE_RSP_RSHUTD,
  150.        LUA_NO_RECEIVE_TO_PURGE,
  151.        LUA_CANCEL_COMMAND_RECEIVED,
  152.        LUA_RUI_WRITE_FAILURE,
  153.        LUA_INVALID_SESSION_TYPE,
  154.        LUA_SLI_BID_PENDING,
  155.        LUA_SLI_PURGE_PENDING,
  156.        LUA_PROCEDURE_ERROR,
  157.        LUA_INVALID_SLI_ENCR_OPTION,
  158.        LUA_RECEIVED_UNBIND,
  159.        LUA_RECEIVED_UNBIND_HOLD,
  160.        LUA_RECEIVED_UNBIND_NORMAL,
  161.        LUA_SLI_LOGIC_ERROR,
  162.        LUA_TERMINATED,
  163.        LUA_NO_RUI_SESSION,
  164.        LUA_DUPLICATE_RUI_INIT,
  165.        LUA_INVALID_PROCESS,
  166.        LUA_API_MODE_CHANGE,
  167.        LUA_COMMAND_COUNT_ERROR,
  168.        LUA_NO_READ_TO_PURGE,
  169.        LUA_MULTIPLE_WRITE_FLOWS,
  170.        LUA_DUPLICATE_READ_FLOW,
  171.        LUA_DUPLICATE_WRITE_FLOW,
  172.        LUA_LINK_NOT_STARTED,
  173.        LUA_INVALID_ADAPTER,
  174.        LUA_ENCR_DECR_LOAD_ERROR,
  175.        LUA_ENCR_DECR_PROC_ERROR,
  176.        LUA_LINK_NOT_STARTED_RETRY,
  177.        LUA_NEG_NOTIFY_RSP,
  178.        LUA_RUI_LOGIC_ERROR,
  179.        LUA_COBOL_NOT_SUPPORTED,
  180.        LUA_LU_INOPERATIVE,
  181.        LUA_UNAUTHORIZED_ACCESS,
  182.        LUA_RESOURCE_NOT_AVAILABLE,
  183.        LUA_SESSION_LIMIT_EXCEEDED,
  184.        LUA_SLU_SESSION_LIMIT_EXCEEDED,
  185.        LUA_MODE_INCONSISTENCY,
  186.        LUA_BRACKET_RACE_ERROR,
  187.        LUA_INSUFFICIENT_RESOURCES,
  188.        LUA_BB_REJECT_NO_RTR,
  189.        LUA_BB_REJECT_RTR,
  190.        LUA_RECEIVER_IN_TRANSMIT_MODE,
  191.        LUA_REQUEST_NOT_EXECUTABLE,
  192.        LUA_INVALID_SESSION_PARAMETERS,
  193.        LUA_UNIT_OF_WORK_ABORTED,
  194.        LUA_FM_FUNCTION_NOT_SUPPORTED,
  195.        LUA_LU_COMPONENT_DISC,
  196.        LUA_INVALID_PARAMETER_FLAGS,
  197.        LUA_INVALID_PARAMETER,
  198.        LUA_NEGOTIABLE_BIND_ERROR,
  199.        LUA_BIND_FM_PROFILE_ERROR,
  200.        LUA_BIND_TS_PROFILE_ERROR,
  201.        LUA_BIND_LU_TYPE_ERROR,
  202.        LUA_CRYPTOGRAPHY_INOPERATIVE,
  203.        LUA_REQ_RESOURCES_NOT_AVAIL,
  204.        LUA_SSCP_LU_SESSION_NOT_ACTIVE,
  205.        LUA_SSCP_PLU_SESS_REACTIVATION,
  206.        LUA_SSCP_PLU_SESS_NOT_ACTIVE,
  207.        LUA_SSCP_PLU_SESS_NOT_ACTIVE2,
  208.        LUA_SSCP_PLU_SESS_REACTIVATE2,
  209.        LUA_SYNC_EVENT_RESPONSE,
  210.        LUA_REC_CORR_TABLE_FULL,
  211.        LUA_SEND_CORR_TABLE_FULL,
  212.        LUA_SESSION_SERVICE_PATH_ERROR,
  213.        LUA_RU_DATA_ERROR,
  214.        LUA_RU_LENGTH_ERROR,
  215.        LUA_FUNCTION_NOT_SUPPORTED,
  216.        LUA_HDX_BRACKET_STATE_ERROR,
  217.        LUA_RESP_ALREADY_SENT,
  218.        LUA_EXR_SENSE_INCORRECT,
  219.        LUA_RESPONSE_OUT_OF_ORDER,
  220.        LUA_CHASE_RESPONSE_REQUIRED,
  221.        LUA_CATEGORY_NOT_SUPPORTED,
  222.        LUA_INCORRECT_SEQUENCE_NUMBER,
  223.        LUA_CHAINING_ERROR,
  224.        LUA_BRACKET,
  225.        LUA_DIRECTION,
  226.        LUA_DATA_TRAFFIC_RESET,
  227.        LUA_DATA_TRAFFIC_QUIESCED,
  228.        LUA_DATA_TRAFFIC_NOT_RESET,
  229.        LUA_NO_BEGIN_BRACKET,
  230.        LUA_SC_PROTOCOL_VIOLATION,
  231.        LUA_IMMEDIATE_REQ_MODE_ERROR,
  232.        LUA_QUEUED_RESPONSE_ERROR,
  233.        LUA_ERP_SYNC_EVENT_ERROR,
  234.        LUA_RSP_BEFORE_SENDING_REQ,
  235.        LUA_RSP_CORRELATION_ERROR,
  236.        LUA_RSP_PROTOCOL_ERROR,
  237.        LUA_INVALID_SC_OR_NC_RH,
  238.        LUA_BB_NOT_ALLOWED,
  239.        LUA_EB_NOT_ALLOWED,
  240.        LUA_EXCEPTION_RSP_NOT_ALLOWED,
  241.        LUA_DEFINITE_RSP_NOT_ALLOWED,
  242.        LUA_PACING_NOT_SUPPORTED,
  243.        LUA_CD_NOT_ALLOWED,
  244.        LUA_NO_RESPONSE_NOT_ALLOWED,
  245.        LUA_CHAINING_NOT_SUPPORTED,
  246.        LUA_BRACKETS_NOT_SUPPORTED,
  247.        LUA_CD_NOT_SUPPORTED,
  248.        LUA_INCORRECT_USE_OF_FI,
  249.        LUA_ALTERNATE_CODE_NOT_SUPPORT,
  250.        LUA_INCORRECT_RU_CATEGORY,
  251.        LUA_INCORRECT_REQUEST_CODE,
  252.        LUA_INCORRECT_SPEC_OF_SDI_RTI,
  253.        LUA_INCORRECT_DR1I_DR2I_ERI,
  254.        LUA_INCORRECT_USE_OF_QRI,
  255.        LUA_INCORRECT_USE_OF_EDI,
  256.        LUA_INCORRECT_USE_OF_PDI,
  257.        LUA_NAU_INOPERATIVE,
  258.        LUA_NO_SESSION)                 char;
  259.  
  260.      %LUA_SEC_RC_OK                    = '''00000000''xn';
  261.      %LUA_INVALID_LUNAME               = '''01000000''xn';
  262.      %LUA_BAD_SESSION_ID               = '''02000000''xn';
  263.      %LUA_DATA_TRUNCATED               = '''03000000''xn';
  264.      %LUA_BAD_DATA_PTR                 = '''04000000''xn';
  265.      %LUA_DATA_SEG_LENGTH_ERROR        = '''05000000''xn';
  266.      %LUA_RESERVED_FIELD_NOT_ZERO      = '''06000000''xn';
  267.      %LUA_INVALID_POST_HANDLE          = '''07000000''xn';
  268.      %LUA_PURGED                       = '''0C000000''xn';
  269.      %LUA_TH_SEQ_NBR_ERROR             = '''0E000000''xn';
  270.      %LUA_BID_VERB_SEG_ERROR           = '''0F000000''xn';
  271.      %LUA_NO_PREVIOUS_BID_ENABLED      = '''10000000''xn';
  272.      %LUA_NO_DATA                      = '''11000000''xn';
  273.      %LUA_BID_ALREADY_ENABLED          = '''12000000''xn';
  274.      %LUA_VERB_RECORD_SPANS_SEGMENTS   = '''13000000''xn';
  275.      %LUA_INVALID_FLOW                 = '''14000000''xn';
  276.      %LUA_NOT_ACTIVE                   = '''15000000''xn';
  277.      %LUA_VERB_LENGTH_INVALID          = '''16000000''xn';
  278.      %LUA_REQUIRED_FIELD_MISSING       = '''19000000''xn';
  279.      %LUA_READY                        = '''30000000''xn';
  280.      %LUA_NOT_READY                    = '''31000000''xn';
  281.      %LUA_INIT_COMPLETE                = '''32000000''xn';
  282.      %LUA_SESSION_END_REQUESTED        = '''33000000''xn';
  283.      %LUA_NO_SLI_SESSION               = '''34000000''xn';
  284.      %LUA_SESSION_ALREADY_OPEN         = '''35000000''xn';
  285.      %LUA_INVALID_OPEN_INIT_TYPE       = '''36000000''xn';
  286.      %LUA_INVALID_OPEN_DATA            = '''37000000''xn';
  287.      %LUA_UNEXPECTED_SNA_SEQUENCE      = '''38000000''xn';
  288.      %LUA_NEG_RSP_FROM_BIND_ROUTINE    = '''39000000''xn';
  289.      %LUA_NEG_RSP_FROM_CRV_ROUTINE     = '''3A000000''xn';
  290.      %LUA_NEG_RSP_FROM_STSN_ROUTINE    = '''3B000000''xn';
  291.      %LUA_CRV_ROUTINE_REQUIRED         = '''3C000000''xn';
  292.      %LUA_NEG_RSP_FROM_SDT_ROUTINE     = '''3D000000''xn';
  293.      %LUA_INVALID_OPEN_ROUTINE_TYPE    = '''3E000000''xn';
  294.      %LUA_MAX_NUMBER_OF_SENDS          = '''3F000000''xn';
  295.      %LUA_SEND_ON_FLOW_PENDING         = '''40000000''xn';
  296.      %LUA_INVALID_MESSAGE_TYPE         = '''41000000''xn';
  297.      %LUA_RECEIVE_ON_FLOW_PENDING      = '''42000000''xn';
  298.      %LUA_DATA_LENGTH_ERROR            = '''43000000''xn';
  299.      %LUA_CLOSE_PENDING                = '''44000000''xn';
  300.      %LUA_NEGATIVE_RSP_CHASE           = '''46000000''xn';
  301.      %LUA_NEGATIVE_RSP_SHUTC           = '''47000000''xn';
  302.      %LUA_NEGATIVE_RSP_RSHUTD          = '''48000000''xn';
  303.      %LUA_NO_RECEIVE_TO_PURGE          = '''4A000000''xn';
  304.      %LUA_CANCEL_COMMAND_RECEIVED      = '''4D000000''xn';
  305.      %LUA_RUI_WRITE_FAILURE            = '''4E000000''xn';
  306.      %LUA_INVALID_SESSION_TYPE         = '''4F000000''xn';
  307.      %LUA_SLI_BID_PENDING              = '''51000000''xn';
  308.      %LUA_SLI_PURGE_PENDING            = '''52000000''xn';
  309.      %LUA_PROCEDURE_ERROR              = '''53000000''xn';
  310.      %LUA_INVALID_SLI_ENCR_OPTION      = '''54000000''xn';
  311.      %LUA_RECEIVED_UNBIND              = '''55000000''xn';
  312.      %LUA_RECEIVED_UNBIND_HOLD         = '''56000000''xn';
  313.      %LUA_RECEIVED_UNBIND_NORMAL       = '''57000000''xn';
  314.      %LUA_SLI_LOGIC_ERROR              = '''7F000000''xn';
  315.      %LUA_TERMINATED                   = '''80000000''xn';
  316.      %LUA_NO_RUI_SESSION               = '''81000000''xn';
  317.      %LUA_DUPLICATE_RUI_INIT           = '''82000000''xn';
  318.      %LUA_INVALID_PROCESS              = '''83000000''xn';
  319.      %LUA_API_MODE_CHANGE              = '''85000000''xn';
  320.      %LUA_COMMAND_COUNT_ERROR          = '''87000000''xn';
  321.      %LUA_NO_READ_TO_PURGE             = '''88000000''xn';
  322.      %LUA_MULTIPLE_WRITE_FLOWS         = '''89000000''xn';
  323.      %LUA_DUPLICATE_READ_FLOW          = '''8A000000''xn';
  324.      %LUA_DUPLICATE_WRITE_FLOW         = '''8B000000''xn';
  325.      %LUA_LINK_NOT_STARTED             = '''8C000000''xn';
  326.      %LUA_INVALID_ADAPTER              = '''8D000000''xn';
  327.      %LUA_ENCR_DECR_LOAD_ERROR         = '''8E000000''xn';
  328.      %LUA_ENCR_DECR_PROC_ERROR         = '''8F000000''xn';
  329.      %LUA_LINK_NOT_STARTED_RETRY       = '''90000000''xn';
  330.      %LUA_NEG_NOTIFY_RSP               = '''BE000000''xn';
  331.      %LUA_RUI_LOGIC_ERROR              = '''BF000000''xn';
  332.      %LUA_COBOL_NOT_SUPPORTED          = '''C0000000''xn';
  333.      %LUA_LU_INOPERATIVE               = '''FF000000''xn';
  334.      %LUA_UNAUTHORIZED_ACCESS          = '''90020000''xn';
  335.      %LUA_RESOURCE_NOT_AVAILABLE       = '''00000108''xn';
  336.      %LUA_SESSION_LIMIT_EXCEEDED       = '''00000508''xn';
  337.      %LUA_SLU_SESSION_LIMIT_EXCEEDED   = '''0A000508''xn';
  338.      %LUA_MODE_INCONSISTENCY           = '''00000908''xn';
  339.      %LUA_BRACKET_RACE_ERROR           = '''00000B08''xn';
  340.      %LUA_INSUFFICIENT_RESOURCES       = '''00001208''xn';
  341.      %LUA_BB_REJECT_NO_RTR             = '''00001308''xn';
  342.      %LUA_BB_REJECT_RTR                = '''00001408''xn';
  343.      %LUA_RECEIVER_IN_TRANSMIT_MODE    = '''00001B08''xn';
  344.      %LUA_REQUEST_NOT_EXECUTABLE       = '''00001C08''xn';
  345.      %LUA_INVALID_SESSION_PARAMETERS   = '''00002108''xn';
  346.      %LUA_UNIT_OF_WORK_ABORTED         = '''00002408''xn';
  347.      %LUA_FM_FUNCTION_NOT_SUPPORTED    = '''00002608''xn';
  348.      %LUA_LU_COMPONENT_DISC            = '''00003108''xn';
  349.      %LUA_INVALID_PARAMETER_FLAGS      = '''00003308''xn';
  350.      %LUA_INVALID_PARAMETER            = '''00003508''xn';
  351.      %LUA_NEGOTIABLE_BIND_ERROR        = '''01003508''xn';
  352.      %LUA_BIND_FM_PROFILE_ERROR        = '''02003508''xn';
  353.      %LUA_BIND_TS_PROFILE_ERROR        = '''03003508''xn';
  354.      %LUA_BIND_LU_TYPE_ERROR           = '''0E003508''xn';
  355.      %LUA_CRYPTOGRAPHY_INOPERATIVE     = '''00004808''xn';
  356.      %LUA_REQ_RESOURCES_NOT_AVAIL      = '''00004B08''xn';
  357.      %LUA_SSCP_LU_SESSION_NOT_ACTIVE   = '''00005708''xn';
  358.      %LUA_SSCP_PLU_SESS_REACTIVATION   = '''01005708''xn';
  359.      %LUA_SSCP_PLU_SESS_NOT_ACTIVE     = '''02005708''xn';
  360.      %LUA_SSCP_PLU_SESS_NOT_ACTIVE2    = '''03005708''xn';
  361.      %LUA_SSCP_PLU_SESS_REACTIVATE2    = '''04005708''xn';
  362.      %LUA_SYNC_EVENT_RESPONSE          = '''00006708''xn';
  363.      %LUA_REC_CORR_TABLE_FULL          = '''01007808''xn';
  364.      %LUA_SEND_CORR_TABLE_FULL         = '''02007808''xn';
  365.      %LUA_SESSION_SERVICE_PATH_ERROR   = '''00007D08''xn';
  366.      %LUA_RU_DATA_ERROR                = '''00000110''xn';
  367.      %LUA_RU_LENGTH_ERROR              = '''00000210''xn';
  368.      %LUA_FUNCTION_NOT_SUPPORTED       = '''00000310''xn';
  369.      %LUA_HDX_BRACKET_STATE_ERROR      = '''21010510''xn';
  370.      %LUA_RESP_ALREADY_SENT            = '''22010510''xn';
  371.      %LUA_EXR_SENSE_INCORRECT          = '''23010510''xn';
  372.      %LUA_RESPONSE_OUT_OF_ORDER        = '''24010510''xn';
  373.      %LUA_CHASE_RESPONSE_REQUIRED      = '''25010510''xn';
  374.      %LUA_CATEGORY_NOT_SUPPORTED       = '''00000710''xn';
  375.      %LUA_INCORRECT_SEQUENCE_NUMBER    = '''00000120''xn';
  376.      %LUA_CHAINING_ERROR               = '''00000220''xn';
  377.      %LUA_BRACKET                      = '''00000320''xn';
  378.      %LUA_DIRECTION                    = '''00000420''xn';
  379.      %LUA_DATA_TRAFFIC_RESET           = '''00000520''xn';
  380.      %LUA_DATA_TRAFFIC_QUIESCED        = '''00000620''xn';
  381.      %LUA_DATA_TRAFFIC_NOT_RESET       = '''00000720''xn';
  382.      %LUA_NO_BEGIN_BRACKET             = '''00000820''xn';
  383.      %LUA_SC_PROTOCOL_VIOLATION        = '''00000920''xn';
  384.      %LUA_IMMEDIATE_REQ_MODE_ERROR     = '''00000A20''xn';
  385.      %LUA_QUEUED_RESPONSE_ERROR        = '''00000B20''xn';
  386.      %LUA_ERP_SYNC_EVENT_ERROR         = '''00000C20''xn';
  387.      %LUA_RSP_BEFORE_SENDING_REQ       = '''00000D20''xn';
  388.      %LUA_RSP_CORRELATION_ERROR        = '''00000E20''xn';
  389.      %LUA_RSP_PROTOCOL_ERROR           = '''00000F20''xn';
  390.      %LUA_INVALID_SC_OR_NC_RH          = '''00000140''xn';
  391.      %LUA_BB_NOT_ALLOWED               = '''00000340''xn';
  392.      %LUA_EB_NOT_ALLOWED               = '''00000440''xn';
  393.      %LUA_EXCEPTION_RSP_NOT_ALLOWED    = '''00000640''xn';
  394.      %LUA_DEFINITE_RSP_NOT_ALLOWED     = '''00000740''xn';
  395.      %LUA_PACING_NOT_SUPPORTED         = '''00000840''xn';
  396.      %LUA_CD_NOT_ALLOWED               = '''00000940''xn';
  397.      %LUA_NO_RESPONSE_NOT_ALLOWED      = '''00000A40''xn';
  398.      %LUA_CHAINING_NOT_SUPPORTED       = '''00000B40''xn';
  399.      %LUA_BRACKETS_NOT_SUPPORTED       = '''00000C40''xn';
  400.      %LUA_CD_NOT_SUPPORTED             = '''00000D40''xn';
  401.      %LUA_INCORRECT_USE_OF_FI          = '''00000F40''xn';
  402.      %LUA_ALTERNATE_CODE_NOT_SUPPORT   = '''00001040''xn';
  403.      %LUA_INCORRECT_RU_CATEGORY        = '''00001140''xn';
  404.      %LUA_INCORRECT_REQUEST_CODE       = '''00001240''xn';
  405.      %LUA_INCORRECT_SPEC_OF_SDI_RTI    = '''00001340''xn';
  406.      %LUA_INCORRECT_DR1I_DR2I_ERI      = '''00001440''xn';
  407.      %LUA_INCORRECT_USE_OF_QRI         = '''00001540''xn';
  408.      %LUA_INCORRECT_USE_OF_EDI         = '''00001640''xn';
  409.      %LUA_INCORRECT_USE_OF_PDI         = '''00001740''xn';
  410.      %LUA_NAU_INOPERATIVE              = '''00000380''xn';
  411.      %LUA_NO_SESSION                   = '''00000580''xn';
  412.  
  413.  /*----------------------------------------------------------*/
  414.  /* DACTLU Codes                                             */
  415.  /*----------------------------------------------------------*/
  416.  
  417.  %dcl (LUA_SESSION_INOP,
  418.        LUA_DACTLU_RCVD,
  419.        LUA_SERVER_CONN_FAILURE,
  420.        LUA_VIRTUAL_ROUTE_INOP,
  421.        LUA_ROUTE_EXTENSION_INOP,
  422.        LUA_HIER_RESET,
  423.        LUA_VIRTUAL_ROUTE_DEACT,
  424.        LUA_FAILURE_UNRECOVERABLE,
  425.        LUA_SESSION_OVERRIDE,
  426.        LUA_FAILURE_RECOVERABLE,
  427.        LUA_SSCP_CLEANUP)               char;
  428.  
  429.      %LUA_SESSION_INOP                 = '''034000C0''xn';
  430.      %LUA_DACTLU_RCVD                  = '''044000C0''xn';
  431.      %LUA_SERVER_CONN_FAILURE          = '''054000C0''xn';
  432.      %LUA_VIRTUAL_ROUTE_INOP           = '''074000C0''xn';
  433.      %LUA_ROUTE_EXTENSION_INOP         = '''084000C0''xn';
  434.      %LUA_HIER_RESET                   = '''094000C0''xn';
  435.      %LUA_VIRTUAL_ROUTE_DEACT          = '''0B4000C0''xn';
  436.      %LUA_FAILURE_UNRECOVERABLE        = '''0C4000C0''xn';
  437.      %LUA_SESSION_OVERRIDE             = '''0D4000C0''xn';
  438.      %LUA_FAILURE_RECOVERABLE          = '''0E4000C0''xn';
  439.      %LUA_SSCP_CLEANUP                 = '''0F4000C0''xn';
  440.  
  441.  /************************************************************/
  442.  /*                                                          */
  443.  /* LUA_RH.RUC Masks                                         */
  444.  /*                                                          */
  445.  /************************************************************/
  446.  
  447.  %dcl (LUA_RH_FMD,
  448.        LUA_RH_NC,
  449.        LUA_RH_DFC,
  450.        LUA_RH_SC)                      char;
  451.  
  452.      %LUA_RH_FMD = '0';
  453.      %LUA_RH_NC  = '1';
  454.      %LUA_RH_DFC = '2';
  455.      %LUA_RH_SC  = '3';
  456.  
  457.  /************************************************************/
  458.  /*                                                          */
  459.  /* LUA Message Types                                        */
  460.  /*                                                          */
  461.  /************************************************************/
  462.  
  463.  %dcl (LUA_MESSAGE_TYPE_LU_DATA,
  464.        LUA_MESSAGE_TYPE_SSCP_DATA,
  465.        LUA_MESSAGE_TYPE_RSP,
  466.        LUA_MESSAGE_TYPE_BID,
  467.        LUA_MESSAGE_TYPE_BIND,
  468.        LUA_MESSAGE_TYPE_BIS,
  469.        LUA_MESSAGE_TYPE_CANCEL,
  470.        LUA_MESSAGE_TYPE_CHASE,
  471.        LUA_MESSAGE_TYPE_CLEAR,
  472.        LUA_MESSAGE_TYPE_CRV,
  473.        LUA_MESSAGE_TYPE_LUSTAT_LU,
  474.        LUA_MESSAGE_TYPE_LUSTAT_SSCP,
  475.        LUA_MESSAGE_TYPE_QC,
  476.        LUA_MESSAGE_TYPE_QEC,
  477.        LUA_MESSAGE_TYPE_RELQ,
  478.        LUA_MESSAGE_TYPE_RQR,
  479.        LUA_MESSAGE_TYPE_RTR,
  480.        LUA_MESSAGE_TYPE_SBI,
  481.        LUA_MESSAGE_TYPE_SHUTD,
  482.        LUA_MESSAGE_TYPE_SIGNAL,
  483.        LUA_MESSAGE_TYPE_SDT,
  484.        LUA_MESSAGE_TYPE_STSN,
  485.        LUA_MESSAGE_TYPE_UNBIND)        char;
  486.  
  487.      %LUA_MESSAGE_TYPE_LU_DATA         = '''01''x';
  488.      %LUA_MESSAGE_TYPE_SSCP_DATA       = '''11''x';
  489.      %LUA_MESSAGE_TYPE_RSP             = '''02''x';
  490.      %LUA_MESSAGE_TYPE_BID             = '''C8''x';
  491.      %LUA_MESSAGE_TYPE_BIND            = '''31''x';
  492.      %LUA_MESSAGE_TYPE_BIS             = '''70''x';
  493.      %LUA_MESSAGE_TYPE_CANCEL          = '''83''x';
  494.      %LUA_MESSAGE_TYPE_CHASE           = '''84''x';
  495.      %LUA_MESSAGE_TYPE_CLEAR           = '''A1''x';
  496.      %LUA_MESSAGE_TYPE_CRV             = '''D0''x';
  497.      %LUA_MESSAGE_TYPE_LUSTAT_LU       = '''04''x';
  498.      %LUA_MESSAGE_TYPE_LUSTAT_SSCP     = '''14''x';
  499.      %LUA_MESSAGE_TYPE_QC              = '''81''x';
  500.      %LUA_MESSAGE_TYPE_QEC             = '''80''x';
  501.      %LUA_MESSAGE_TYPE_RELQ            = '''82''x';
  502.      %LUA_MESSAGE_TYPE_RQR             = '''A3''x';
  503.      %LUA_MESSAGE_TYPE_RTR             = '''05''x';
  504.      %LUA_MESSAGE_TYPE_SBI             = '''71''x';
  505.      %LUA_MESSAGE_TYPE_SHUTD           = '''C0''x';
  506.      %LUA_MESSAGE_TYPE_SIGNAL          = '''C9''x';
  507.      %LUA_MESSAGE_TYPE_SDT             = '''A0''x';
  508.      %LUA_MESSAGE_TYPE_STSN            = '''A2''x';
  509.      %LUA_MESSAGE_TYPE_UNBIND          = '''32''x';
  510.  
  511.  /************************************************************/
  512.  /*                                                          */
  513.  /* LUA Correlation Table Constants                          */
  514.  /*                                                          */
  515.  /************************************************************/
  516.  
  517.  %dcl (LUA_WRAP_LU_NORM_SEND_CT,
  518.        LUA_CT_FACTOR)          char;
  519.  
  520.      %LUA_WRAP_LU_NORM_SEND_CT = '''01''xn';
  521.      %LUA_CT_FACTOR            = '''32''xn';
  522.  
  523.  /************************************************************/
  524.  /*                                                          */
  525.  /* LUA Init Types (Used for SLI only)                       */
  526.  /*                                                          */
  527.  /************************************************************/
  528.  
  529.  %dcl (LUA_INIT_TYPE_SEC_IS,
  530.        LUA_INIT_TYPE_SEC_LOG,
  531.        LUA_INIT_TYPE_PRIM,
  532.        LUA_INIT_TYPE_PRIM_SSCP) char;
  533.  
  534.      %LUA_INIT_TYPE_SEC_IS    = '''01''x';
  535.      %LUA_INIT_TYPE_SEC_LOG   = '''02''x';
  536.      %LUA_INIT_TYPE_PRIM      = '''03''x';
  537.      %LUA_INIT_TYPE_PRIM_SSCP = '''04''x';
  538.  
  539.  /************************************************************/
  540.  /*                                                          */
  541.  /* LUA Session Types (Used for SLI only)                    */
  542.  /*                                                          */
  543.  /************************************************************/
  544.  
  545.  %dcl (LUA_SESSION_TYPE_NORMAL,
  546.        LUA_SESSION_TYPE_DEDICATED) char;
  547.  
  548.      %LUA_SESSION_TYPE_NORMAL    = '''00''xn';
  549.      %LUA_SESSION_TYPE_DEDICATED = '''01''xn';
  550.  
  551.  /************************************************************/
  552.  /*                                                          */
  553.  /* LUA SLI_OPEN Extension Routine Types                     */
  554.  /*                                                          */
  555.  /************************************************************/
  556.  
  557.  %dcl (LUA_ROUTINE_TYPE_BIND,
  558.        LUA_ROUTINE_TYPE_CRV,
  559.        LUA_ROUTINE_TYPE_STSN,
  560.        LUA_ROUTINE_TYPE_SDT,
  561.        LUA_ROUTINE_TYPE_END)           char;
  562.  
  563.      %LUA_ROUTINE_TYPE_BIND            = '''01''xn';
  564.      %LUA_ROUTINE_TYPE_CRV             = '''02''xn';
  565.      %LUA_ROUTINE_TYPE_STSN            = '''03''xn';
  566.      %LUA_ROUTINE_TYPE_SDT             = '''04''xn';
  567.      %LUA_ROUTINE_TYPE_END             = '''00''xn';
  568.  
  569.