home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / LUA_CLS.COP < prev    next >
Text File  |  1995-06-27  |  6KB  |  101 lines
  1. 1/************************************************************/
  2.  /*                                                          */
  3.  /*     L U A   -   C l o s e   V e r b   R e c o r d        */
  4.  /*                                                          */
  5.  /************************************************************/
  6.  
  7.  define structure
  8.    1 LUA_SLI_CLOSE,
  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 (8),
  41.  /*                               ---------                  */
  42.      3 lua_post_handle            /* Posting handle          */
  43.                                   pointer segmented unal,
  44.  /*                               -----------------------    */
  45.      3 *                          /* Reserved                */
  46.                                   char (9),
  47.  /*                               ---------                  */
  48.      3 LUA_FLAG1,
  49.        5 bid_enable               /* Bid Enabled Indicator   */
  50.                                   bit (1),
  51.  /*                               --------                   */
  52.        5 *                        /* Reserved                */
  53.                                   bit (1),
  54.  /*                               --------                   */
  55.        5 close_abend              /* Close Immediate Flag    */
  56.                                   bit (1),
  57.  /*                               --------                   */
  58.        5 no_wait                  /* No Wait Flag            */
  59.                                   bit (1),
  60.  /*                               --------                   */
  61.        5 sscp_exp                 /* SSCP Expedited Flow     */
  62.                                   bit (1),
  63.  /*                               --------                   */
  64.        5 sscp_norm                /* SSCP Normal Flow        */
  65.                                   bit (1),
  66.  /*                               --------                   */
  67.        5 lu_exp                   /* LU Expedited Flow       */
  68.                                   bit (1),
  69.  /*                               --------                   */
  70.        5 lu_norm                  /* LU Normal Flow          */
  71.                                   bit (1),
  72.  /*                               --------                   */
  73.      3 *                          /* Reserved                */
  74.                                   char,
  75.  /*                               -----                      */
  76.      3 LUA_FLAG2,
  77.        5 bid_enable               /* Bid Enabled Indicator   */
  78.                                   bit (1),
  79.  /*                               --------                   */
  80.        5 async                    /* Asynchronous Request    */
  81.                                   bit (1),
  82.  /*                               --------                   */
  83.        5 *                        /* Reserved                */
  84.                                   bit (2),
  85.  /*                               --------                   */
  86.        5 sscp_exp                 /* SSCP Expedited Flow     */
  87.                                   bit (1),
  88.  /*                               --------                   */
  89.        5 sscp_norm                /* SSCP Normal Flow        */
  90.                                   bit (1),
  91.  /*                               --------                   */
  92.        5 lu_exp                   /* LU Expedited Flow       */
  93.                                   bit (1),
  94.  /*                               --------                   */
  95.        5 lu_norm                  /* LU Normal Flow          */
  96.                                   bit (1),
  97.  /*                               --------                   */
  98.      3 *                          /* Reserved                */
  99.                                   char (8);
  100.  /*                               ---------                  */
  101.