home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / LUA_C.COP < prev    next >
Text File  |  1995-06-27  |  49KB  |  865 lines
  1. 1/************************************************************/
  2.  /*                                                          */
  3.  /* Name      - LUA.CPY                                      */
  4.  /*                                                          */
  5.  /* Function  - LUA Verb Record and Constants include file.  */
  6.  /*                                                          */
  7.  /* Purpose   - Defines the constants used for setting and   */
  8.  /*             test fields in the LUA verb record struct-   */
  9.  /*             ures needed to create an application using   */
  10.  /*             the LUA interface.                           */
  11.  /*                                                          */
  12.  /* Use       - This file must be included into every PL/I   */
  13.  /*             application program which uses the LUA int-  */
  14.  /*             erface.                                      */
  15.  /*                                                          */
  16.  /*                                                          */
  17.  /*                                                          */
  18.  /*                                                          */
  19.  /************************************************************/
  20.  
  21.  define alias UINT16 unsigned fixed bin(16);
  22.  define alias @UINT16 pointer;
  23.  
  24.  /************************************************************/
  25.  /*                                                          */
  26.  /*              L U A   V e r b   T y p e s                 */
  27.  /*                                                          */
  28.  /************************************************************/
  29.  
  30.  %dcl (LUA_VERB_RUI,
  31.        LUA_VERB_SLI)         char;
  32.  
  33.  
  34.  %LUA_VERB_RUI = '''0052''xn';
  35.  %LUA_VERB_SLI = '''0052''xn';
  36.  
  37.  
  38.  /************************************************************/
  39.  /*                                                          */
  40.  /*    L U A   O p c o d e s . .   R U I   a n d   S L I     */
  41.  /*                                                          */
  42.  /************************************************************/
  43.  
  44.  %dcl (LUA_OPCODE_RUI_INIT,
  45.        LUA_OPCODE_RUI_TERM,
  46.        LUA_OPCODE_RUI_READ,
  47.        LUA_OPCODE_RUI_WRITE,
  48.        LUA_OPCODE_RUI_PURGE,
  49.        LUA_OPCODE_RUI_BID,
  50.        LUA_OPCODE_SLI_OPEN,
  51.        LUA_OPCODE_SLI_CLOSE,
  52.        LUA_OPCODE_SLI_RECEIVE,
  53.        LUA_OPCODE_SLI_SEND,
  54.        LUA_OPCODE_SLI_PURGE,
  55.        LUA_OPCODE_SLI_BID,
  56.        LUA_OPCODE_SLI_BIND_ROUTINE,
  57.        LUA_OPCODE_SLI_STSN_ROUTINE,
  58.        LUA_OPCODE_SLI_CRV_ROUTINE,
  59.        LUA_OPCODE_SLI_SDT_ROUTINE) char;
  60.  
  61.      %LUA_OPCODE_RUI_INIT         = '''8001''xn';
  62.      %LUA_OPCODE_RUI_TERM         = '''8002''xn';
  63.      %LUA_OPCODE_RUI_READ         = '''8003''xn';
  64.      %LUA_OPCODE_RUI_WRITE        = '''8004''xn';
  65.      %LUA_OPCODE_RUI_PURGE        = '''8005''xn';
  66.      %LUA_OPCODE_RUI_BID          = '''8006''xn';
  67.      %LUA_OPCODE_SLI_OPEN         = '''0001''xn';
  68.      %LUA_OPCODE_SLI_CLOSE        = '''0002''xn';
  69.      %LUA_OPCODE_SLI_RECEIVE      = '''0003''xn';
  70.      %LUA_OPCODE_SLI_SEND         = '''0004''xn';
  71.      %LUA_OPCODE_SLI_PURGE        = '''0005''xn';
  72.      %LUA_OPCODE_SLI_BID          = '''0006''xn';
  73.      %LUA_OPCODE_SLI_BIND_ROUTINE = '''0011''xn';
  74.      %LUA_OPCODE_SLI_STSN_ROUTINE = '''0012''xn';
  75.      %LUA_OPCODE_SLI_CRV_ROUTINE  = '''0013''xn';
  76.      %LUA_OPCODE_SLI_SDT_ROUTINE  = '''0014''xn';
  77.  
  78.  /************************************************************/
  79.  /*                                                          */
  80.  /* Primary Return codes (stored in LUA_PRIM_RC)             */
  81.  /*                                                          */
  82.  /************************************************************/
  83.  
  84.  %dcl (LUA_OK,
  85.        LUA_PARAMETER_CHECK,
  86.        LUA_STATE_CHECK,
  87.        LUA_SESSION_FAILURE,
  88.        LUA_UNSUCCESSFUL,
  89.        LUA_NEGATIVE_RSP,
  90.        LUA_CANCELLED,
  91.        LUA_IN_PROGRESS,
  92.        LUA_STATUS,
  93.        LUA_COMM_SUBSYSTEM_ABENDED,
  94.        LUA_COMM_SUBSYSTEM_NOT_LOADED,
  95.        LUA_INVALID_VERB_SEGMENT,
  96.        LUA_UNEXPECTED_DOS_ERROR,
  97.        LUA_STACK_TOO_SMALL,
  98.        LUA_SERVER_RESOURCE_NOT_FOUND,
  99.        LUA_INVALID_VERB)
  100.                                         char;
  101.  
  102.      %LUA_OK                           = '''0000''xn';
  103.      %LUA_PARAMETER_CHECK              = '''0100''xn';
  104.      %LUA_STATE_CHECK                  = '''0200''xn';
  105.      %LUA_SESSION_FAILURE              = '''0F00''xn';
  106.      %LUA_UNSUCCESSFUL                 = '''1400''xn';
  107.      %LUA_NEGATIVE_RSP                 = '''1800''xn';
  108.      %LUA_CANCELLED                    = '''2100''xn';
  109.      %LUA_IN_PROGRESS                  = '''3000''xn';
  110.      %LUA_STATUS                       = '''4000''xn';
  111.      %LUA_COMM_SUBSYSTEM_ABENDED       = '''03F0''xn';
  112.      %LUA_COMM_SUBSYSTEM_NOT_LOADED    = '''04F0''xn';
  113.      %LUA_INVALID_VERB_SEGMENT         = '''08F0''xn';
  114.      %LUA_UNEXPECTED_DOS_ERROR         = '''11F0''xn';
  115.      %LUA_STACK_TOO_SMALL              = '''15F0''xn';
  116.      %LUA_SERVER_RESOURCE_NOT_FOUND    = '''24F0''xn';
  117.      %LUA_INVALID_VERB                 = '''FFFF''xn';
  118.  
  119.  /************************************************************/
  120.  /*                                                          */
  121.  /* Secondary Return Codes (stored in LUA_SEC_RC)            */
  122.  /*                                                          */
  123.  /************************************************************/
  124.  
  125.  %dcl (LUA_SEC_RC_OK,
  126.        LUA_INVALID_LUNAME,
  127.        LUA_BAD_SESSION_ID,
  128.        LUA_DATA_TRUNCATED,
  129.        LUA_BAD_DATA_PTR,
  130.        LUA_DATA_SEG_LENGTH_ERROR,
  131.        LUA_RESERVED_FIELD_NOT_ZERO,
  132.        LUA_INVALID_POST_HANDLE,
  133.        LUA_PURGED,
  134.        LUA_TH_SEQ_NBR_ERROR,
  135.        LUA_BID_VERB_SEG_ERROR,
  136.        LUA_NO_PREVIOUS_BID_ENABLED,
  137.        LUA_NO_DATA,
  138.        LUA_BID_ALREADY_ENABLED,
  139.        LUA_VERB_RECORD_SPANS_SEGMENTS,
  140.        LUA_INVALID_FLOW,
  141.        LUA_NOT_ACTIVE,
  142.        LUA_VERB_LENGTH_INVALID,
  143.        LUA_REQUIRED_FIELD_MISSING,
  144.        LUA_READY,
  145.        LUA_NOT_READY,
  146.        LUA_INIT_COMPLETE,
  147.        LUA_SESSION_END_REQUESTED,
  148.        LUA_NO_SLI_SESSION,
  149.        LUA_SESSION_ALREADY_OPEN,
  150.        LUA_INVALID_OPEN_INIT_TYPE,
  151.        LUA_INVALID_OPEN_DATA,
  152.        LUA_UNEXPECTED_SNA_SEQUENCE,
  153.        LUA_NEG_RSP_FROM_BIND_ROUTINE,
  154.        LUA_NEG_RSP_FROM_CRV_ROUTINE,
  155.        LUA_NEG_RSP_FROM_STSN_ROUTINE,
  156.        LUA_CRV_ROUTINE_REQUIRED,
  157.        LUA_NEG_RSP_FROM_SDT_ROUTINE,
  158.        LUA_INVALID_OPEN_ROUTINE_TYPE,
  159.        LUA_MAX_NUMBER_OF_SENDS,
  160.        LUA_SEND_ON_FLOW_PENDING,
  161.        LUA_INVALID_MESSAGE_TYPE,
  162.        LUA_RECEIVE_ON_FLOW_PENDING,
  163.        LUA_DATA_LENGTH_ERROR,
  164.        LUA_CLOSE_PENDING,
  165.        LUA_NEGATIVE_RSP_CHASE,
  166.        LUA_NEGATIVE_RSP_SHUTC,
  167.        LUA_NEGATIVE_RSP_RSHUTD,
  168.        LUA_NO_RECEIVE_TO_PURGE,
  169.        LUA_CANCEL_COMMAND_RECEIVED,
  170.        LUA_RUI_WRITE_FAILURE,
  171.        LUA_INVALID_SESSION_TYPE,
  172.        LUA_SLI_BID_PENDING,
  173.        LUA_SLI_PURGE_PENDING,
  174.        LUA_PROCEDURE_ERROR,
  175.        LUA_INVALID_SLI_ENCR_OPTION,
  176.        LUA_RECEIVED_UNBIND,
  177.        LUA_RECEIVED_UNBIND_HOLD,
  178.        LUA_RECEIVED_UNBIND_NORMAL,
  179.        LUA_SLI_LOGIC_ERROR,
  180.        LUA_TERMINATED,
  181.        LUA_NO_RUI_SESSION,
  182.        LUA_DUPLICATE_RUI_INIT,
  183.        LUA_INVALID_PROCESS,
  184.        LUA_API_MODE_CHANGE,
  185.        LUA_COMMAND_COUNT_ERROR,
  186.        LUA_NO_READ_TO_PURGE,
  187.        LUA_MULTIPLE_WRITE_FLOWS,
  188.        LUA_DUPLICATE_READ_FLOW,
  189.        LUA_DUPLICATE_WRITE_FLOW,
  190.        LUA_LINK_NOT_STARTED,
  191.        LUA_INVALID_ADAPTER,
  192.        LUA_ENCR_DECR_LOAD_ERROR,
  193.        LUA_ENCR_DECR_PROC_ERROR,
  194.        LUA_LINK_NOT_STARTED_RETRY,
  195.        LUA_NEG_NOTIFY_RSP,
  196.        LUA_RUI_LOGIC_ERROR,
  197.        LUA_COBOL_NOT_SUPPORTED,
  198.        LUA_LU_INOPERATIVE,
  199.        LUA_UNAUTHORIZED_ACCESS,
  200.        LUA_RESOURCE_NOT_AVAILABLE,
  201.        LUA_SESSION_LIMIT_EXCEEDED,
  202.        LUA_SLU_SESSION_LIMIT_EXCEEDED,
  203.        LUA_MODE_INCONSISTENCY,
  204.        LUA_BRACKET_RACE_ERROR,
  205.        LUA_INSUFFICIENT_RESOURCES,
  206.        LUA_BB_REJECT_NO_RTR,
  207.        LUA_BB_REJECT_RTR,
  208.        LUA_RECEIVER_IN_TRANSMIT_MODE,
  209.        LUA_REQUEST_NOT_EXECUTABLE,
  210.        LUA_INVALID_SESSION_PARAMETERS,
  211.        LUA_UNIT_OF_WORK_ABORTED,
  212.        LUA_FM_FUNCTION_NOT_SUPPORTED,
  213.        LUA_LU_COMPONENT_DISC,
  214.        LUA_INVALID_PARAMETER_FLAGS,
  215.        LUA_INVALID_PARAMETER,
  216.        LUA_NEGOTIABLE_BIND_ERROR,
  217.        LUA_BIND_FM_PROFILE_ERROR,
  218.        LUA_BIND_TS_PROFILE_ERROR,
  219.        LUA_BIND_LU_TYPE_ERROR,
  220.        LUA_CRYPTOGRAPHY_INOPERATIVE,
  221.        LUA_REQ_RESOURCES_NOT_AVAIL,
  222.        LUA_SSCP_LU_SESSION_NOT_ACTIVE,
  223.        LUA_SSCP_PLU_SESS_REACTIVATION,
  224.        LUA_SSCP_PLU_SESS_NOT_ACTIVE,
  225.        LUA_SSCP_PLU_SESS_NOT_ACTIVE2,
  226.        LUA_SSCP_PLU_SESS_REACTIVATE2,
  227.        LUA_SYNC_EVENT_RESPONSE,
  228.        LUA_REC_CORR_TABLE_FULL,
  229.        LUA_SEND_CORR_TABLE_FULL,
  230.        LUA_SESSION_SERVICE_PATH_ERROR,
  231.        LUA_RU_DATA_ERROR,
  232.        LUA_RU_LENGTH_ERROR,
  233.        LUA_FUNCTION_NOT_SUPPORTED,
  234.        LUA_HDX_BRACKET_STATE_ERROR,
  235.        LUA_RESP_ALREADY_SENT,
  236.        LUA_EXR_SENSE_INCORRECT,
  237.        LUA_RESPONSE_OUT_OF_ORDER,
  238.        LUA_CHASE_RESPONSE_REQUIRED,
  239.        LUA_CATEGORY_NOT_SUPPORTED,
  240.        LUA_INCORRECT_SEQUENCE_NUMBER,
  241.        LUA_CHAINING_ERROR,
  242.        LUA_BRACKET,
  243.        LUA_DIRECTION,
  244.        LUA_DATA_TRAFFIC_RESET,
  245.        LUA_DATA_TRAFFIC_QUIESCED,
  246.        LUA_DATA_TRAFFIC_NOT_RESET,
  247.        LUA_NO_BEGIN_BRACKET,
  248.        LUA_SC_PROTOCOL_VIOLATION,
  249.        LUA_IMMEDIATE_REQ_MODE_ERROR,
  250.        LUA_QUEUED_RESPONSE_ERROR,
  251.        LUA_ERP_SYNC_EVENT_ERROR,
  252.        LUA_RSP_BEFORE_SENDING_REQ,
  253.        LUA_RSP_CORRELATION_ERROR,
  254.        LUA_RSP_PROTOCOL_ERROR,
  255.        LUA_INVALID_SC_OR_NC_RH,
  256.        LUA_BB_NOT_ALLOWED,
  257.        LUA_EB_NOT_ALLOWED,
  258.        LUA_EXCEPTION_RSP_NOT_ALLOWED,
  259.        LUA_DEFINITE_RSP_NOT_ALLOWED,
  260.        LUA_PACING_NOT_SUPPORTED,
  261.        LUA_CD_NOT_ALLOWED,
  262.        LUA_NO_RESPONSE_NOT_ALLOWED,
  263.        LUA_CHAINING_NOT_SUPPORTED,
  264.        LUA_BRACKETS_NOT_SUPPORTED,
  265.        LUA_CD_NOT_SUPPORTED,
  266.        LUA_INCORRECT_USE_OF_FI,
  267.        LUA_ALTERNATE_CODE_NOT_SUPPORT,
  268.        LUA_INCORRECT_RU_CATEGORY,
  269.        LUA_INCORRECT_REQUEST_CODE,
  270.        LUA_INCORRECT_SPEC_OF_SDI_RTI,
  271.        LUA_INCORRECT_DR1I_DR2I_ERI,
  272.        LUA_INCORRECT_USE_OF_QRI,
  273.        LUA_INCORRECT_USE_OF_EDI,
  274.        LUA_INCORRECT_USE_OF_PDI,
  275.        LUA_NAU_INOPERATIVE,
  276.        LUA_NO_SESSION)                 char;
  277.  
  278.      %LUA_SEC_RC_OK                    = '''00000000''xn';
  279.      %LUA_INVALID_LUNAME               = '''01000000''xn';
  280.      %LUA_BAD_SESSION_ID               = '''02000000''xn';
  281.      %LUA_DATA_TRUNCATED               = '''03000000''xn';
  282.      %LUA_BAD_DATA_PTR                 = '''04000000''xn';
  283.      %LUA_DATA_SEG_LENGTH_ERROR        = '''05000000''xn';
  284.      %LUA_RESERVED_FIELD_NOT_ZERO      = '''06000000''xn';
  285.      %LUA_INVALID_POST_HANDLE          = '''07000000''xn';
  286.      %LUA_PURGED                       = '''0C000000''xn';
  287.      %LUA_TH_SEQ_NBR_ERROR             = '''0E000000''xn';
  288.      %LUA_BID_VERB_SEG_ERROR           = '''0F000000''xn';
  289.      %LUA_NO_PREVIOUS_BID_ENABLED      = '''10000000''xn';
  290.      %LUA_NO_DATA                      = '''11000000''xn';
  291.      %LUA_BID_ALREADY_ENABLED          = '''12000000''xn';
  292.      %LUA_VERB_RECORD_SPANS_SEGMENTS   = '''13000000''xn';
  293.      %LUA_INVALID_FLOW                 = '''14000000''xn';
  294.      %LUA_NOT_ACTIVE                   = '''15000000''xn';
  295.      %LUA_VERB_LENGTH_INVALID          = '''16000000''xn';
  296.      %LUA_REQUIRED_FIELD_MISSING       = '''19000000''xn';
  297.      %LUA_READY                        = '''30000000''xn';
  298.      %LUA_NOT_READY                    = '''31000000''xn';
  299.      %LUA_INIT_COMPLETE                = '''32000000''xn';
  300.      %LUA_SESSION_END_REQUESTED        = '''33000000''xn';
  301.      %LUA_NO_SLI_SESSION               = '''34000000''xn';
  302.      %LUA_SESSION_ALREADY_OPEN         = '''35000000''xn';
  303.      %LUA_INVALID_OPEN_INIT_TYPE       = '''36000000''xn';
  304.      %LUA_INVALID_OPEN_DATA            = '''37000000''xn';
  305.      %LUA_UNEXPECTED_SNA_SEQUENCE      = '''38000000''xn';
  306.      %LUA_NEG_RSP_FROM_BIND_ROUTINE    = '''39000000''xn';
  307.      %LUA_NEG_RSP_FROM_CRV_ROUTINE     = '''3A000000''xn';
  308.      %LUA_NEG_RSP_FROM_STSN_ROUTINE    = '''3B000000''xn';
  309.      %LUA_CRV_ROUTINE_REQUIRED         = '''3C000000''xn';
  310.      %LUA_NEG_RSP_FROM_SDT_ROUTINE     = '''3D000000''xn';
  311.      %LUA_INVALID_OPEN_ROUTINE_TYPE    = '''3E000000''xn';
  312.      %LUA_MAX_NUMBER_OF_SENDS          = '''3F000000''xn';
  313.      %LUA_SEND_ON_FLOW_PENDING         = '''40000000''xn';
  314.      %LUA_INVALID_MESSAGE_TYPE         = '''41000000''xn';
  315.      %LUA_RECEIVE_ON_FLOW_PENDING      = '''42000000''xn';
  316.      %LUA_DATA_LENGTH_ERROR            = '''43000000''xn';
  317.      %LUA_CLOSE_PENDING                = '''44000000''xn';
  318.      %LUA_NEGATIVE_RSP_CHASE           = '''46000000''xn';
  319.      %LUA_NEGATIVE_RSP_SHUTC           = '''47000000''xn';
  320.      %LUA_NEGATIVE_RSP_RSHUTD          = '''48000000''xn';
  321.      %LUA_NO_RECEIVE_TO_PURGE          = '''4A000000''xn';
  322.      %LUA_CANCEL_COMMAND_RECEIVED      = '''4D000000''xn';
  323.      %LUA_RUI_WRITE_FAILURE            = '''4E000000''xn';
  324.      %LUA_INVALID_SESSION_TYPE         = '''4F000000''xn';
  325.      %LUA_SLI_BID_PENDING              = '''51000000''xn';
  326.      %LUA_SLI_PURGE_PENDING            = '''52000000''xn';
  327.      %LUA_PROCEDURE_ERROR              = '''53000000''xn';
  328.      %LUA_INVALID_SLI_ENCR_OPTION      = '''54000000''xn';
  329.      %LUA_RECEIVED_UNBIND              = '''55000000''xn';
  330.      %LUA_RECEIVED_UNBIND_HOLD         = '''56000000''xn';
  331.      %LUA_RECEIVED_UNBIND_NORMAL       = '''57000000''xn';
  332.      %LUA_SLI_LOGIC_ERROR              = '''7F000000''xn';
  333.      %LUA_TERMINATED                   = '''80000000''xn';
  334.      %LUA_NO_RUI_SESSION               = '''81000000''xn';
  335.      %LUA_DUPLICATE_RUI_INIT           = '''82000000''xn';
  336.      %LUA_INVALID_PROCESS              = '''83000000''xn';
  337.      %LUA_API_MODE_CHANGE              = '''85000000''xn';
  338.      %LUA_COMMAND_COUNT_ERROR          = '''87000000''xn';
  339.      %LUA_NO_READ_TO_PURGE             = '''88000000''xn';
  340.      %LUA_MULTIPLE_WRITE_FLOWS         = '''89000000''xn';
  341.      %LUA_DUPLICATE_READ_FLOW          = '''8A000000''xn';
  342.      %LUA_DUPLICATE_WRITE_FLOW         = '''8B000000''xn';
  343.      %LUA_LINK_NOT_STARTED             = '''8C000000''xn';
  344.      %LUA_INVALID_ADAPTER              = '''8D000000''xn';
  345.      %LUA_ENCR_DECR_LOAD_ERROR         = '''8E000000''xn';
  346.      %LUA_ENCR_DECR_PROC_ERROR         = '''8F000000''xn';
  347.      %LUA_LINK_NOT_STARTED_RETRY       = '''90000000''xn';
  348.      %LUA_NEG_NOTIFY_RSP               = '''BE000000''xn';
  349.      %LUA_RUI_LOGIC_ERROR              = '''BF000000''xn';
  350.      %LUA_COBOL_NOT_SUPPORTED          = '''C0000000''xn';
  351.      %LUA_LU_INOPERATIVE               = '''FF000000''xn';
  352.      %LUA_UNAUTHORIZED_ACCESS          = '''90020000''xn';
  353.      %LUA_RESOURCE_NOT_AVAILABLE       = '''00000108''xn';
  354.      %LUA_SESSION_LIMIT_EXCEEDED       = '''00000508''xn';
  355.      %LUA_SLU_SESSION_LIMIT_EXCEEDED   = '''0A000508''xn';
  356.      %LUA_MODE_INCONSISTENCY           = '''00000908''xn';
  357.      %LUA_BRACKET_RACE_ERROR           = '''00000B08''xn';
  358.      %LUA_INSUFFICIENT_RESOURCES       = '''00001208''xn';
  359.      %LUA_BB_REJECT_NO_RTR             = '''00001308''xn';
  360.      %LUA_BB_REJECT_RTR                = '''00001408''xn';
  361.      %LUA_RECEIVER_IN_TRANSMIT_MODE    = '''00001B08''xn';
  362.      %LUA_REQUEST_NOT_EXECUTABLE       = '''00001C08''xn';
  363.      %LUA_INVALID_SESSION_PARAMETERS   = '''00002108''xn';
  364.      %LUA_UNIT_OF_WORK_ABORTED         = '''00002408''xn';
  365.      %LUA_FM_FUNCTION_NOT_SUPPORTED    = '''00002608''xn';
  366.      %LUA_LU_COMPONENT_DISC            = '''00003108''xn';
  367.      %LUA_INVALID_PARAMETER_FLAGS      = '''00003308''xn';
  368.      %LUA_INVALID_PARAMETER            = '''00003508''xn';
  369.      %LUA_NEGOTIABLE_BIND_ERROR        = '''01003508''xn';
  370.      %LUA_BIND_FM_PROFILE_ERROR        = '''02003508''xn';
  371.      %LUA_BIND_TS_PROFILE_ERROR        = '''03003508''xn';
  372.      %LUA_BIND_LU_TYPE_ERROR           = '''0E003508''xn';
  373.      %LUA_CRYPTOGRAPHY_INOPERATIVE     = '''00004808''xn';
  374.      %LUA_REQ_RESOURCES_NOT_AVAIL      = '''00004B08''xn';
  375.      %LUA_SSCP_LU_SESSION_NOT_ACTIVE   = '''00005708''xn';
  376.      %LUA_SSCP_PLU_SESS_REACTIVATION   = '''01005708''xn';
  377.      %LUA_SSCP_PLU_SESS_NOT_ACTIVE     = '''02005708''xn';
  378.      %LUA_SSCP_PLU_SESS_NOT_ACTIVE2    = '''03005708''xn';
  379.      %LUA_SSCP_PLU_SESS_REACTIVATE2    = '''04005708''xn';
  380.      %LUA_SYNC_EVENT_RESPONSE          = '''00006708''xn';
  381.      %LUA_REC_CORR_TABLE_FULL          = '''01007808''xn';
  382.      %LUA_SEND_CORR_TABLE_FULL         = '''02007808''xn';
  383.      %LUA_SESSION_SERVICE_PATH_ERROR   = '''00007D08''xn';
  384.      %LUA_RU_DATA_ERROR                = '''00000110''xn';
  385.      %LUA_RU_LENGTH_ERROR              = '''00000210''xn';
  386.      %LUA_FUNCTION_NOT_SUPPORTED       = '''00000310''xn';
  387.      %LUA_HDX_BRACKET_STATE_ERROR      = '''21010510''xn';
  388.      %LUA_RESP_ALREADY_SENT            = '''22010510''xn';
  389.      %LUA_EXR_SENSE_INCORRECT          = '''23010510''xn';
  390.      %LUA_RESPONSE_OUT_OF_ORDER        = '''24010510''xn';
  391.      %LUA_CHASE_RESPONSE_REQUIRED      = '''25010510''xn';
  392.      %LUA_CATEGORY_NOT_SUPPORTED       = '''00000710''xn';
  393.      %LUA_INCORRECT_SEQUENCE_NUMBER    = '''00000120''xn';
  394.      %LUA_CHAINING_ERROR               = '''00000220''xn';
  395.      %LUA_BRACKET                      = '''00000320''xn';
  396.      %LUA_DIRECTION                    = '''00000420''xn';
  397.      %LUA_DATA_TRAFFIC_RESET           = '''00000520''xn';
  398.      %LUA_DATA_TRAFFIC_QUIESCED        = '''00000620''xn';
  399.      %LUA_DATA_TRAFFIC_NOT_RESET       = '''00000720''xn';
  400.      %LUA_NO_BEGIN_BRACKET             = '''00000820''xn';
  401.      %LUA_SC_PROTOCOL_VIOLATION        = '''00000920''xn';
  402.      %LUA_IMMEDIATE_REQ_MODE_ERROR     = '''00000A20''xn';
  403.      %LUA_QUEUED_RESPONSE_ERROR        = '''00000B20''xn';
  404.      %LUA_ERP_SYNC_EVENT_ERROR         = '''00000C20''xn';
  405.      %LUA_RSP_BEFORE_SENDING_REQ       = '''00000D20''xn';
  406.      %LUA_RSP_CORRELATION_ERROR        = '''00000E20''xn';
  407.      %LUA_RSP_PROTOCOL_ERROR           = '''00000F20''xn';
  408.      %LUA_INVALID_SC_OR_NC_RH          = '''00000140''xn';
  409.      %LUA_BB_NOT_ALLOWED               = '''00000340''xn';
  410.      %LUA_EB_NOT_ALLOWED               = '''00000440''xn';
  411.      %LUA_EXCEPTION_RSP_NOT_ALLOWED    = '''00000640''xn';
  412.      %LUA_DEFINITE_RSP_NOT_ALLOWED     = '''00000740''xn';
  413.      %LUA_PACING_NOT_SUPPORTED         = '''00000840''xn';
  414.      %LUA_CD_NOT_ALLOWED               = '''00000940''xn';
  415.      %LUA_NO_RESPONSE_NOT_ALLOWED      = '''00000A40''xn';
  416.      %LUA_CHAINING_NOT_SUPPORTED       = '''00000B40''xn';
  417.      %LUA_BRACKETS_NOT_SUPPORTED       = '''00000C40''xn';
  418.      %LUA_CD_NOT_SUPPORTED             = '''00000D40''xn';
  419.      %LUA_INCORRECT_USE_OF_FI          = '''00000F40''xn';
  420.      %LUA_ALTERNATE_CODE_NOT_SUPPORT   = '''00001040''xn';
  421.      %LUA_INCORRECT_RU_CATEGORY        = '''00001140''xn';
  422.      %LUA_INCORRECT_REQUEST_CODE       = '''00001240''xn';
  423.      %LUA_INCORRECT_SPEC_OF_SDI_RTI    = '''00001340''xn';
  424.      %LUA_INCORRECT_DR1I_DR2I_ERI      = '''00001440''xn';
  425.      %LUA_INCORRECT_USE_OF_QRI         = '''00001540''xn';
  426.      %LUA_INCORRECT_USE_OF_EDI         = '''00001640''xn';
  427.      %LUA_INCORRECT_USE_OF_PDI         = '''00001740''xn';
  428.      %LUA_NAU_INOPERATIVE              = '''00000380''xn';
  429.      %LUA_NO_SESSION                   = '''00000580''xn';
  430.  
  431.  /*----------------------------------------------------------*/
  432.  /* DACTLU Codes                                             */
  433.  /*----------------------------------------------------------*/
  434.  
  435.  %dcl (LUA_SESSION_INOP,
  436.        LUA_DACTLU_RCVD,
  437.        LUA_SERVER_CONN_FAILURE,
  438.        LUA_VIRTUAL_ROUTE_INOP,
  439.        LUA_ROUTE_EXTENSION_INOP,
  440.        LUA_HIER_RESET,
  441.        LUA_VIRTUAL_ROUTE_DEACT,
  442.        LUA_FAILURE_UNRECOVERABLE,
  443.        LUA_SESSION_OVERRIDE,
  444.        LUA_FAILURE_RECOVERABLE,
  445.        LUA_SSCP_CLEANUP)               char;
  446.  
  447.      %LUA_SESSION_INOP                 = '''034000C0''xn';
  448.      %LUA_DACTLU_RCVD                  = '''044000C0''xn';
  449.      %LUA_SERVER_CONN_FAILURE          = '''054000C0''xn';
  450.      %LUA_VIRTUAL_ROUTE_INOP           = '''074000C0''xn';
  451.      %LUA_ROUTE_EXTENSION_INOP         = '''084000C0''xn';
  452.      %LUA_HIER_RESET                   = '''094000C0''xn';
  453.      %LUA_VIRTUAL_ROUTE_DEACT          = '''0B4000C0''xn';
  454.      %LUA_FAILURE_UNRECOVERABLE        = '''0C4000C0''xn';
  455.      %LUA_SESSION_OVERRIDE             = '''0D4000C0''xn';
  456.      %LUA_FAILURE_RECOVERABLE          = '''0E4000C0''xn';
  457.      %LUA_SSCP_CLEANUP                 = '''0F4000C0''xn';
  458.  
  459.  /************************************************************/
  460.  /*                                                          */
  461.  /* LUA_RH.RUC Masks                                         */
  462.  /*                                                          */
  463.  /************************************************************/
  464.  
  465.  dcl (LUA_RH_FMD                       init (0),
  466.       LUA_RH_NC                        init (1),
  467.       LUA_RH_DFC                       init (2),
  468.       LUA_RH_SC                        init (3))
  469.                                        fixed bin (31);
  470.  
  471.  /************************************************************/
  472.  /*                                                          */
  473.  /* LUA Message Types                                        */
  474.  /*                                                          */
  475.  /************************************************************/
  476.  
  477.  %dcl (LUA_MESSAGE_TYPE_LU_DATA,
  478.        LUA_MESSAGE_TYPE_SSCP_DATA,
  479.        LUA_MESSAGE_TYPE_RSP,
  480.        LUA_MESSAGE_TYPE_BID,
  481.        LUA_MESSAGE_TYPE_BIND,
  482.        LUA_MESSAGE_TYPE_BIS,
  483.        LUA_MESSAGE_TYPE_CANCEL,
  484.        LUA_MESSAGE_TYPE_CHASE,
  485.        LUA_MESSAGE_TYPE_CLEAR,
  486.        LUA_MESSAGE_TYPE_CRV,
  487.        LUA_MESSAGE_TYPE_LUSTAT_LU,
  488.        LUA_MESSAGE_TYPE_LUSTAT_SSCP,
  489.        LUA_MESSAGE_TYPE_QC,
  490.        LUA_MESSAGE_TYPE_QEC,
  491.        LUA_MESSAGE_TYPE_RELQ,
  492.        LUA_MESSAGE_TYPE_RQR,
  493.        LUA_MESSAGE_TYPE_RTR,
  494.        LUA_MESSAGE_TYPE_SBI,
  495.        LUA_MESSAGE_TYPE_SHUTD,
  496.        LUA_MESSAGE_TYPE_SIGNAL,
  497.        LUA_MESSAGE_TYPE_SDT,
  498.        LUA_MESSAGE_TYPE_STSN,
  499.        LUA_MESSAGE_TYPE_UNBIND)        char;
  500.  
  501.      %LUA_MESSAGE_TYPE_LU_DATA         = '''01''xn';
  502.      %LUA_MESSAGE_TYPE_SSCP_DATA       = '''11''xn';
  503.      %LUA_MESSAGE_TYPE_RSP             = '''02''xn';
  504.      %LUA_MESSAGE_TYPE_BID             = '''C8''xn';
  505.      %LUA_MESSAGE_TYPE_BIND            = '''31''xn';
  506.      %LUA_MESSAGE_TYPE_BIS             = '''70''xn';
  507.      %LUA_MESSAGE_TYPE_CANCEL          = '''83''xn';
  508.      %LUA_MESSAGE_TYPE_CHASE           = '''84''xn';
  509.      %LUA_MESSAGE_TYPE_CLEAR           = '''A1''xn';
  510.      %LUA_MESSAGE_TYPE_CRV             = '''D0''xn';
  511.      %LUA_MESSAGE_TYPE_LUSTAT_LU       = '''04''xn';
  512.      %LUA_MESSAGE_TYPE_LUSTAT_SSCP     = '''14''xn';
  513.      %LUA_MESSAGE_TYPE_QC              = '''81''xn';
  514.      %LUA_MESSAGE_TYPE_QEC             = '''80''xn';
  515.      %LUA_MESSAGE_TYPE_RELQ            = '''82''xn';
  516.      %LUA_MESSAGE_TYPE_RQR             = '''A3''xn';
  517.      %LUA_MESSAGE_TYPE_RTR             = '''05''xn';
  518.      %LUA_MESSAGE_TYPE_SBI             = '''71''xn';
  519.      %LUA_MESSAGE_TYPE_SHUTD           = '''C0''xn';
  520.      %LUA_MESSAGE_TYPE_SIGNAL          = '''C9''xn';
  521.      %LUA_MESSAGE_TYPE_SDT             = '''A0''xn';
  522.      %LUA_MESSAGE_TYPE_STSN            = '''A2''xn';
  523.      %LUA_MESSAGE_TYPE_UNBIND          = '''32''xn';
  524.  
  525.  /************************************************************/
  526.  /*                                                          */
  527.  /* LUA Correlation Table Constants                          */
  528.  /*                                                          */
  529.  /************************************************************/
  530.  
  531.  %dcl (LUA_WRAP_LU_NORM_SEND_CT,
  532.        LUA_CT_FACTOR)          char;
  533.  
  534.      %LUA_WRAP_LU_NORM_SEND_CT = '''01''xn';
  535.      %LUA_CT_FACTOR            = '''32''xn';
  536.  
  537.  /************************************************************/
  538.  /*                                                          */
  539.  /* LUA Init Types (Used for SLI only)                       */
  540.  /*                                                          */
  541.  /************************************************************/
  542.  
  543.  %dcl (LUA_INIT_TYPE_SEC_IS,
  544.        LUA_INIT_TYPE_SEC_LOG,
  545.        LUA_INIT_TYPE_PRIM,
  546.        LUA_INIT_TYPE_PRIM_SSCP) char;
  547.  
  548.      %LUA_INIT_TYPE_SEC_IS    = '''01''xn';
  549.      %LUA_INIT_TYPE_SEC_LOG   = '''02''xn';
  550.      %LUA_INIT_TYPE_PRIM      = '''03''xn';
  551.      %LUA_INIT_TYPE_PRIM_SSCP = '''04''xn';
  552.  
  553.  /************************************************************/
  554.  /*                                                          */
  555.  /* LUA Session Types (Used for SLI only)                    */
  556.  /*                                                          */
  557.  /************************************************************/
  558.  
  559.  %dcl (LUA_SESSION_TYPE_NORMAL,
  560.        LUA_SESSION_TYPE_DEDICATED) char;
  561.  
  562.      %LUA_SESSION_TYPE_NORMAL    = '''00''xn';
  563.      %LUA_SESSION_TYPE_DEDICATED = '''01''xn';
  564.  
  565.  /************************************************************/
  566.  /*                                                          */
  567.  /* LUA SLI_OPEN Extension Routine Types                     */
  568.  /*                                                          */
  569.  /************************************************************/
  570.  
  571.  %dcl (LUA_ROUTINE_TYPE_BIND,
  572.        LUA_ROUTINE_TYPE_CRV,
  573.        LUA_ROUTINE_TYPE_STSN,
  574.        LUA_ROUTINE_TYPE_SDT,
  575.        LUA_ROUTINE_TYPE_END)           char;
  576.  
  577.      %LUA_ROUTINE_TYPE_BIND            = '''01''xn';
  578.      %LUA_ROUTINE_TYPE_CRV             = '''02''xn';
  579.      %LUA_ROUTINE_TYPE_STSN            = '''03''xn';
  580.      %LUA_ROUTINE_TYPE_SDT             = '''04''xn';
  581.      %LUA_ROUTINE_TYPE_END             = '''00''xn';
  582.  
  583. 1/************************************************************/
  584.  /*                                                          */
  585.  /* LUA Verb Record Structures                               */
  586.  /*                                                          */
  587.  /************************************************************/
  588.  
  589.  /*----------------------------------------------------------*/
  590.  /* Common Verb Header                                       */
  591.  /*----------------------------------------------------------*/
  592.  
  593.  define structure                                                       00001000
  594.    1 LUA_COMMON,                                                        00002000
  595.      3 lua_verb                   /* Verb Code               */         00003000
  596.                                   type UINT16,                          00004000
  597.  /*                               ------------               */         00005000
  598.      3 lua_verb_length            /* Length of Verb Record   */         00006000
  599.                                   type UINT16,                          00007000
  600.  /*                               ------------               */         00008000
  601.      3 lua_prim_rc                /* Primary Return Code     */         00009000
  602.                                   type UINT16,                          00010000
  603.  /*                               ------------               */         00011000
  604.      3 lua_sec_rc                 /* Secondary Return Code   */         00012000
  605.                                   unsigned fixed bin(31),               00013000
  606.  /*                               -----------------------    */         00014000
  607.      3 lua_opcode                 /* Verb Operation Code     */         00015000
  608.                                   unsigned fixed bin(16) unal,          00016000
  609.  /*                               ---------------------------*/         00017000
  610.      3 lua_correlator             /* User Correlation Field  */         00018000
  611.                                   unsigned fixed bin(31) unal,          00019000
  612.  /*                               ---------------------------*/         00020000
  613.      3 lua_luname                 /* Local LU Name           */         00021000
  614.                                   char(8),                              00022000
  615.  /*                               --------                   */         00023000
  616.      3 lua_extension_list_offset  /* Offset'DLL Ext. List    */         00024000
  617.                                   type UINT16,                          00025000
  618.  /*                               ------------               */         00026000
  619.      3 lua_cobol_offset           /* Offset'Cobol Extension  */         00027000
  620.                                   type UINT16,                          00028000
  621.  /*                               ------------               */         00029000
  622.      3 lua_sid                    /* Session ID              */         00030000
  623.                                   unsigned fixed bin(31),               00031000
  624.  /*                               ------------               */         00032000
  625.      3 lua_max_length             /* Receive Buffer Length   */         00033000
  626.                                   type UINT16,                          00034000
  627.  /*                               ------------               */         00035000
  628.      3 lua_data_length            /* Data Length             */         00036000
  629.                                   type UINT16,                          00037000
  630.  /*                               ------------               */         00038000
  631.      3 lua_data_ptr               /* Data Buffer Pointer     */         00039000
  632.                                   pointer segmented,                    00040000
  633.  /*                               ------------------         */         00041000
  634.      3 lua_post_handle            /* Posting handle */                  00042000
  635.                                   unsigned fixed bin(31),               00043000
  636.  /*                               -----------------------    */         00044000
  637.      3 lua_th,                    /* Transmission header     */         00045000
  638.        5 lua_th_flags,                                                  00046000
  639.          7 fid                    /* Format Identification 3 */         00047000
  640.                                   bit (4),                              00048000
  641.  /*                               --------                   */         00049000
  642.          7 mpf                    /* Segmenting Mapping fld. */         00050000
  643.                                   bit (2),                              00051000
  644.  /*                               --------                   */         00052000
  645.          7 odai                   /* OAF-SAF Assignor Ind.   */         00053000
  646.                                   bit (1),                              00054000
  647.  /*                               --------                   */         00055000
  648.          7 efi                    /* Expedited Flow Indicator*/         00056000
  649.                                   bit (1),                              00057000
  650.  /*                               --------                   */         00058000
  651.        5 *                        /* Reserved                */         00059000
  652.                                   bit (8),                              00060000
  653.  /*                               --------                   */         00061000
  654.        5 daf                      /* Destination Addr Field  */         00062000
  655.                                   char,                                 00063000
  656.  /*                               -----                      */         00064000
  657.        5 oaf                      /* Originating Addr Field  */         00065000
  658.                                   char,                                 00066000
  659.  /*                               -----                      */         00067000
  660.        5 snf                      /* Sequence Number Field   */         00068000
  661.                                   char(2),                              00069000
  662.  /*                               --------                   */         00070000
  663.      3 lua_rh,                    /* Req/Rsp Header          */         00071000
  664.        5 LUA_RH_FLAG1,                                                  00072000
  665.          7 rri                    /* Request Response Ind.   */         00073000
  666.                                   bit (1),                              00074000
  667.  /*                               --------                   */         00075000
  668.          7 ruc                    /* RU Category             */         00076000
  669.                                   bit (2),                              00077000
  670.  /*                               --------                   */         00078000
  671.          7 *                      /* Reserved                */         00079000
  672.                                   bit (1),                              00080000
  673.  /*                               --------                   */         00081000
  674.          7 fi                     /* Format Indicator        */         00082000
  675.                                   bit (1),                              00083000
  676.  /*                               --------                   */         00084000
  677.          7 sdi                    /* Sense Data Included Ind */         00085000
  678.                                   bit (1),                              00086000
  679.  /*                               --------                   */         00087000
  680.          7 bci                    /* Begin Chain Indicator   */         00088000
  681.                                   bit (1),                              00089000
  682.  /*                               --------                   */         00090000
  683.          7 eci                    /* End Chain Indicator     */         00091000
  684.                                   bit (1),                              00092000
  685.  /*                               --------                   */         00093000
  686.        5 LUA_RH_FLAG2,                                                  00094000
  687.          7 dr1i                   /* DR 1 Indicator          */         00095000
  688.                                   bit (1),                              00096000
  689.  /*                               --------                   */         00097000
  690.          7 *                      /* Reserved                */         00098000
  691.                                   bit (1),                              00099000
  692.  /*                               --------                   */         00100000
  693.          7 dr2i                   /* DR 3 Indicator          */         00101000
  694.                                   bit (1),                              00102000
  695.  /*                               --------                   */         00103000
  696.          7 ri                     /* Response Indicator      */         00104000
  697.                                   bit (1),                              00105000
  698.  /*                               --------                   */         00106000
  699.          7 *                      /* Reserved                */         00107000
  700.                                   bit (2),                              00108000
  701.  /*                               --------                   */         00109000
  702.          7 qri                    /* Queued Response Ind     */         00110000
  703.                                   bit (1),                              00111000
  704.  /*                               --------                   */         00112000
  705.          7 pi                     /* Pacing Indicator        */         00113000
  706.                                   bit (1),                              00114000
  707.  /*                               --------                   */         00115000
  708.        5 LUA_RH_FLAG3,                                                  00116000
  709.          7 bbi                    /* Begin Bracket Indicator */         00117000
  710.                                   bit (1),                              00118000
  711.  /*                               --------                   */         00119000
  712.          7 ebi                    /* End Bracket Indicator   */         00120000
  713.                                   bit (1),                              00121000
  714.  /*                               --------                   */         00122000
  715.          7 cdi                    /* Change Direction Ind.   */         00123000
  716.                                   bit (1),                              00124000
  717.  /*                               --------                   */         00125000
  718.          7 *                      /* Reserved                */         00126000
  719.                                   bit (1),                              00127000
  720.  /*                               --------                   */         00128000
  721.          7 csi                    /* Code Selection Ind.     */         00129000
  722.                                   bit (1),                              00130000
  723.  /*                               --------                   */         00131000
  724.          7 edi                    /* Enciphered Data Ind.    */         00132000
  725.                                   bit (1),                              00133000
  726.  /*                               --------                   */         00134000
  727.          7 pdi                    /* Padded Data Indicator   */         00135000
  728.                                   bit (1),                              00136000
  729.  /*                               --------                   */         00137000
  730.          7 *                      /* Reserved                */         00138000
  731.                                   bit (1),                              00139000
  732.  /*                               --------                   */         00140000
  733.      3 LUA_FLAG1,                                                       00141000
  734.        5 bid_enable               /* Bid Enabled Indicator   */         00142000
  735.                                   bit (1),                              00143000
  736.  /*                               --------                   */         00144000
  737.        5 *                        /* Reserved                */         00145000
  738.                                   bit (1),                              00146000
  739.  /*                               --------                   */         00147000
  740.        5 close_abend              /* Close Immediate Flag    */         00148000
  741.                                   bit (1),                              00149000
  742.  /*                               --------                   */         00150000
  743.        5 no_wait                  /* No Wait Flag            */         00151000
  744.                                   bit (1),                              00152000
  745.  /*                               --------                   */         00153000
  746.        5 sscp_exp                 /* SSCP Expedited Flow     */         00154000
  747.                                   bit (1),                              00155000
  748.  /*                               --------                   */         00156000
  749.        5 sscp_norm                /* SSCP Normal Flow        */         00157000
  750.                                   bit (1),                              00158000
  751.  /*                               --------                   */         00159000
  752.        5 lu_exp                   /* LU Expedited Flow       */         00160000
  753.                                   bit (1),                              00161000
  754.  /*                               --------                   */         00162000
  755.        5 lu_norm                  /* LU Normal Flow          */         00163000
  756.                                   bit (1),                              00164000
  757.  /*                               --------                   */         00165000
  758.      3 lua_message_type           /* SNA Message Command Type*/         00166000
  759.                                   char,                                 00167000
  760.  /*                               -----                      */         00168000
  761.      3 LUA_FLAG2,                                                       00169000
  762.        5 bid_enable               /* Bid Enabled Indicator   */         00170000
  763.                                   bit (1),                              00171000
  764.  /*                               --------                   */         00172000
  765.        5 async                    /* Asynchronous Request    */         00173000
  766.                                   bit (1),                              00174000
  767.  /*                               --------                   */         00175000
  768.        5 *                        /* Reserved                */         00176000
  769.                                   bit (2),                              00177000
  770.  /*                               --------                   */         00178000
  771.        5 sscp_exp                 /* SSCP Expedited Flow     */         00179000
  772.                                   bit (1),                              00180000
  773.  /*                               --------                   */         00181000
  774.        5 sscp_norm                /* SSCP Normal Flow        */         00182000
  775.                                   bit (1),                              00183000
  776.  /*                               --------                   */         00184000
  777.        5 lu_exp                   /* LU Expedited Flow       */         00185000
  778.                                   bit (1),                              00186000
  779.  /*                               --------                   */         00187000
  780.        5 lu_norm                  /* LU Normal Flow          */         00188000
  781.                                   bit (1),                              00189000
  782.  /*                               --------                   */         00190000
  783.     3 lua_ct_mode                 /* Correlation Table Mode  */         00191000
  784.                                   char,                                 00192000
  785.  /*                               -----                      */         00193000
  786.     3 lua_ct_lu_norm_send_size    /* Send Normal CT Size     */         00194000
  787.                                   char,                                 00195000
  788.  /*                               -----                      */         00196000
  789.     3 lua_resv58                  /* Reserved Field          */         00197000
  790.                                   char(5),                              00198000
  791.  /*                               --------                   */         00199000
  792.     3 lua_encr_decr_option        /* Cryptography Option     */         00200000
  793.                                   char;                                 00201000
  794.  /*                               -----                      */         00202000
  795.                                                                         00203000
  796.  /************************************************************/         00204000
  797.  /*                                                          */         00205000
  798.  /* LUA Specific Fields for the SLI_OPEN Verb                */         00206000
  799.  /*                                                          */         00207000
  800.  /************************************************************/         00208000
  801.                                                                         00209000
  802.  define structure                                                       00210000
  803.    1 LUA_EXT_ENTRY,                                                     00211000
  804.      3 lua_routine_type           /* Extension Routine Type  */         00212000
  805.                                   char,                                 00213000
  806.  /*                               -----                      */         00214000
  807.      3 lua_module_name            /* Extension Module Name   */         00215000
  808.                                   char(8),                              00216000
  809.  /*                               --------                   */         00217000
  810.      3 lua_procedure_name         /* Extension Proc. Name    */         00218000
  811.                                   char(33);                             00219000
  812.  /*                               ---------                  */         00220000
  813.                                                                         00221000
  814.  define structure                                                       00222000
  815.    1 LUA_SLI_OPEN,                                                      00223000
  816.      3 lua_init_type              /* Type of Session Init.   */         00224000
  817.                                   char,                                 00225000
  818.  /*                               -----                      */         00226000
  819.      3 lua_session_type           /* SLI Session Type        */         00227000
  820.                                   char,                                 00228000
  821.  /*                               -----                      */         00229000
  822.      3 lua_wait                   /* 2ndary Retry Wait Time  */         00230000
  823.                                   type UINT16,                          00231000
  824.  /*                               ------------               */         00232000
  825.      3 lua_open_extension(4)      /* Open Extension List     */         00233000
  826.                                   type LUA_EXT_ENTRY,                   00234000
  827.  /*                               -------------------        */         00235000
  828.      3 lua_ending_delim           /* Extension List Delimiter*/         00236000
  829.                                   char;                                 00237000
  830.  /*                               -----                      */         00238000
  831.                                                                         00239000
  832.  /************************************************************/         00240000
  833.  /*                                                          */         00241000
  834.  /* LUA Specific fields for the SLI_OPEN, SLI_SEND, RUI_BID, */         00242000
  835.  /* and SLI_BID verbs.                                       */         00243000
  836.  /*                                                          */         00244000
  837.  /************************************************************/         00245000
  838.                                                                         00246000
  839.  define structure                                                       00247000
  840.  1 LUA_SPECIFIC union,                                                  00248000
  841.      3 open                       /* Open Verb               */         00249000
  842.                                   type LUA_SLI_OPEN,                    00250000
  843.  /*                               ------------------         */         00251000
  844.      3 lua_sequence_number        /* sequence number         */         00252000
  845.                                   char(2),                              00253000
  846.  /*                               --------                   */         00254000
  847.      3 lua_peek_data              /* Data Pending            */         00255000
  848.                                   char(12);                             00256000
  849.  /*                               ---------                  */         00257000
  850.                                                                         00258000
  851.  /************************************************************/         00259000
  852.  /*                                                          */         00260000
  853.  /* Generic LUA Verb Record Structure Declaration            */         00261000
  854.  /*                                                          */         00262000
  855.  /************************************************************/         00263000
  856.                                                                         00264000
  857.  define structure                                                       00265000
  858.    1 LUA_VERB_RECORD,                                                   00266000
  859.      3 common                     /* common verb header      */         00267000
  860.                                   type LUA_COMMON,                      00268000
  861.  /*                               ----------------           */         00269000
  862.      3 specific                   /* command specific part   */         00270000
  863.                                   type LUA_SPECIFIC;                    00271000
  864.  /*                               ------------------         */         00272000
  865.