home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / odbc / odbc3d.cpy < prev    next >
Text File  |  1997-12-01  |  2KB  |  33 lines
  1.       ******************************************************************
  2.       * ODBC3D.CPY                 (ODBC Ver 3.0)                      *
  3.       *----------------------------------------------------------------*
  4.       * Data definitions to be used with sample ODBC function calls    *
  5.       *  and included in WORKING-STORAGE or LOCAL-STORAGE SECTION      *
  6.       ******************************************************************
  7.       * ODBC Handles
  8.        01  Henv                       POINTER            VALUE NULL.
  9.        01  Hdbc                       POINTER            VALUE NULL.
  10.        01  Hstmt                      POINTER            VALUE NULL.
  11.  
  12.       * Arguments used for GetDiagRec calls
  13.        01  DiagHandleType             COMP-5  PIC 9(4).
  14.        01  DiagHandle                 POINTER.
  15.        01  DiagRecNumber              COMP-5  PIC 9(4).
  16.        01  DiagRecNumber-Index        COMP-5  PIC 9(4).
  17.        01  DiagSQLState.
  18.            02 DiagSQLState-Chars              PIC X(5).
  19.            02 DiagSQLState-Null               PIC X.
  20.        01  DiagNativeError            COMP-5  PIC S9(9).
  21.        01  DiagMessageText                    PIC X(511) VALUE SPACES.
  22.        01  DiagMessageBufferLength    COMP-5  PIC S9(4)  VALUE 511.
  23.        01  DiagMessageTextLength      COMP-5  PIC S9(4).
  24.  
  25.       * Misc declarations used in sample function calls
  26.        01  SQL-RC                     COMP-5  PIC S9(4)  VALUE 0.
  27.        01  Saved-SQL-RC               COMP-5  PIC S9(4)  VALUE 0.
  28.        01  SQL-stmt                           PIC X(30).
  29.  
  30.       *************************
  31.       * End of ODBC3D.CPY     *
  32.       *************************
  33.