home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / LUA_SND.COP < prev    next >
Text File  |  1995-06-27  |  11KB  |  197 lines
  1. 1/************************************************************/
  2.  /*                                                          */
  3.  /*       L U A   -   S e n d   V e r b   R e c o r d        */
  4.  /*                                                          */
  5.  /************************************************************/
  6.  
  7.  define structure
  8.    1 LUA_SLI_SEND,
  9.      3 lua_verb                   /* Verb Code               */
  10.                                   type UINT16,
  11.  /*                               ------------               */
  12.      3 lua_verb_length            /* Length of Verb Record   */
  13.                                   type UINT16,
  14.  /*                               ------------               */
  15.      3 lua_prim_rc                /* Primary Return Code     */
  16.                                   type UINT16,
  17.  /*                               ------------               */
  18.      3 lua_sec_rc                 /* Secondary Return Code   */
  19.                                   unsigned fixed bin(31),
  20.  /*                               -----------------------    */
  21.      3 lua_opcode                 /* Verb Operation Code     */
  22.                                   type UINT16,
  23.  /*                               ------------               */
  24.      3 lua_correlator             /* User Correlation Field  */
  25.                                   unsigned fixed bin(31) unal,
  26.  /*                               ---------------------------*/
  27.      3 lua_luname                 /* Local LU Name           */
  28.                                   char(8),
  29.  /*                               --------                   */
  30.      3 *                          /* Reserved                */
  31.                                   char (2),
  32.  /*                               ---------                  */
  33.      3 lua_cobol_offset           /* Offset'Cobol Extension  */
  34.                                   type UINT16,
  35.  /*                               ------------               */
  36.      3 lua_sid                    /* Session ID              */
  37.                                   char (4),
  38.  /*                               ---------                  */
  39.      3 *                          /* Reserved                */
  40.                                   char (2),
  41.  /*                               ---------                  */
  42.      3 lua_data_length            /* Data Length             */
  43.                                   type UINT16,
  44.  /*                               ------------               */
  45.      3 lua_data_ptr               /* Data Buffer Pointer     */
  46.                                   pointer segmented unal,
  47.  /*                               -----------------------    */
  48.      3 lua_post_handle            /* Posting handle          */
  49.                                   pointer segmented unal,
  50.  /*                               -----------------------    */
  51.      3 lua_th,                    /* Transmission header     */
  52.        5 lua_th_flags,
  53.          7 fid                    /* Format Identification 3 */
  54.                                   bit (4),
  55.  /*                               --------                   */
  56.          7 mpf                    /* Segmenting Mapping fld. */
  57.                                   bit (2),
  58.  /*                               --------                   */
  59.          7 odai                   /* OAF-SAF Assignor Ind.   */
  60.                                   bit (1),
  61.  /*                               --------                   */
  62.          7 efi                    /* Expedited Flow Indicator*/
  63.                                   bit (1),
  64.  /*                               --------                   */
  65.        5 *                        /* Reserved                */
  66.                                   bit (8),
  67.  /*                               --------                   */
  68.        5 daf                      /* Destination Addr Field  */
  69.                                   char,
  70.  /*                               -----                      */
  71.        5 oaf                      /* Originating Addr Field  */
  72.                                   char,
  73.  /*                               -----                      */
  74.        5 snf (2)                  /* Sequence Number Field   */
  75.                                   fixed bin (8) unsigned,
  76.  /*                               -----------------------    */
  77.      3 lua_rh,                    /* Req/Rsp Header          */
  78.        5 LUA_RH_FLAG1,
  79.          7 rri                    /* Request Response Ind.   */
  80.                                   bit (1),
  81.  /*                               --------                   */
  82.          7 ruc                    /* RU Category             */
  83.                                   bit (2),
  84.  /*                               --------                   */
  85.          7 *                      /* Reserved                */
  86.                                   bit (1),
  87.  /*                               --------                   */
  88.          7 fi                     /* Format Indicator        */
  89.                                   bit (1),
  90.  /*                               --------                   */
  91.          7 sdi                    /* Sense Data Included Ind */
  92.                                   bit (1),
  93.  /*                               --------                   */
  94.          7 bci                    /* Begin Chain Indicator   */
  95.                                   bit (1),
  96.  /*                               --------                   */
  97.          7 eci                    /* End Chain Indicator     */
  98.                                   bit (1),
  99.  /*                               --------                   */
  100.        5 LUA_RH_FLAG2,
  101.          7 dr1i                   /* DR 1 Indicator          */
  102.                                   bit (1),
  103.  /*                               --------                   */
  104.          7 *                      /* Reserved                */
  105.                                   bit (1),
  106.  /*                               --------                   */
  107.          7 dr2i                   /* DR 3 Indicator          */
  108.                                   bit (1),
  109.  /*                               --------                   */
  110.          7 ri                     /* Response Indicator      */
  111.                                   bit (1),
  112.  /*                               --------                   */
  113.          7 *                      /* Reserved                */
  114.                                   bit (2),
  115.  /*                               --------                   */
  116.          7 qri                    /* Queued Response Ind     */
  117.                                   bit (1),
  118.  /*                               --------                   */
  119.          7 pi                     /* Pacing Indicator        */
  120.                                   bit (1),
  121.  /*                               --------                   */
  122.        5 LUA_RH_FLAG3,
  123.          7 bbi                    /* Begin Bracket Indicator */
  124.                                   bit (1),
  125.  /*                               --------                   */
  126.          7 ebi                    /* End Bracket Indicator   */
  127.                                   bit (1),
  128.  /*                               --------                   */
  129.          7 cdi                    /* Change Direction Ind.   */
  130.                                   bit (1),
  131.  /*                               --------                   */
  132.          7 *                      /* Reserved                */
  133.                                   bit (1),
  134.  /*                               --------                   */
  135.          7 csi                    /* Code Selection Ind.     */
  136.                                   bit (1),
  137.  /*                               --------                   */
  138.          7 edi                    /* Enciphered Data Ind.    */
  139.                                   bit (1),
  140.  /*                               --------                   */
  141.          7 pdi                    /* Padded Data Indicator   */
  142.                                   bit (1),
  143.  /*                               --------                   */
  144.          7 *                      /* Reserved                */
  145.                                   bit (1),
  146.  /*                               --------                   */
  147.      3 LUA_FLAG1,
  148.        5 bid_enable               /* Bid Enabled Indicator   */
  149.                                   bit (1),
  150.  /*                               --------                   */
  151.        5 *                        /* Reserved                */
  152.                                   bit (3),
  153.  /*                               --------                   */
  154.        5 sscp_exp                 /* SSCP Expedited Flow     */
  155.                                   bit (1),
  156.  /*                               --------                   */
  157.        5 sscp_norm                /* SSCP Normal Flow        */
  158.                                   bit (1),
  159.  /*                               --------                   */
  160.        5 lu_exp                   /* LU Expedited Flow       */
  161.                                   bit (1),
  162.  /*                               --------                   */
  163.        5 lu_norm                  /* LU Normal Flow          */
  164.                                   bit (1),
  165.  /*                               --------                   */
  166.      3 lua_message_type           /* SNA Message Command Type*/
  167.                                   char,
  168.  /*                               -----                      */
  169.      3 LUA_FLAG2,
  170.        5 *                        /* Reserved                */
  171.                                   bit (1),
  172.  /*                               --------                   */
  173.        5 async                    /* Asynchronous Request    */
  174.                                   bit (1),
  175.  /*                               --------                   */
  176.        5 *                        /* Reserved                */
  177.                                   bit (2),
  178.  /*                               --------                   */
  179.        5 sscp_exp                 /* SSCP Expedited Flow     */
  180.                                   bit (1),
  181.  /*                               --------                   */
  182.        5 sscp_norm                /* SSCP Normal Flow        */
  183.                                   bit (1),
  184.  /*                               --------                   */
  185.        5 lu_exp                   /* LU Expedited Flow       */
  186.                                   bit (1),
  187.  /*                               --------                   */
  188.        5 lu_norm                  /* LU Normal Flow          */
  189.                                   bit (1),
  190.  /*                               --------                   */
  191.      3 *                          /* Reserved                */
  192.                                   char (8),
  193.  /*                               ---------                  */
  194.      3 lua_sequence_number (2)    /* Sequence number         */
  195.                                   fixed bin (8) unsigned;
  196.  /*                               -----------------------    */
  197.