home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / LUA_PRG.COP < prev    next >
Text File  |  1995-06-27  |  4KB  |  64 lines
  1. 1/************************************************************/
  2.  /*                                                          */
  3.  /*      L U A   -   P u r g e   V e r b   R e c o r d       */
  4.  /*                                                          */
  5.  /************************************************************/
  6.  
  7.  define structure
  8.    1 LUA_SLI_PURGE,
  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(4),
  41.  /*                               --------                   */
  42.      3 lua_data_ptr               /* Data Buffer Pointer     */
  43.                                   pointer segmented unal,
  44.  /*                               -----------------------    */
  45.      3 lua_post_handle            /* Posting handle          */
  46.                                   pointer segmented unal,
  47.  /*                               -----------------------    */
  48.      3 *                          /* Reserved                */
  49.                                   char(11),
  50.  /*                               ---------                  */
  51.      3 LUA_FLAG2,
  52.        5 *                        /* Reserved                */
  53.                                   bit (1),
  54.  /*                               --------                   */
  55.        5 async                    /* Asynchronous Request    */
  56.                                   bit (1),
  57.  /*                               --------                   */
  58.        5 *                        /* Reserved                */
  59.                                   bit (6),
  60.  /*                               --------                   */
  61.      3 *                          /* Reserved                */
  62.                                   char (8);
  63.  /*                               ---------                  */
  64.