home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / odbc / odbc2d.cpy next >
Text File  |  1996-08-21  |  2KB  |  30 lines
  1.       ******************************************************************        
  2.       * ODBCDATA.CPY                                                   *        
  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 SQLError calls                                       
  13.        01  szSQLState.                                                          
  14.            02 szSQLState-Chars                PIC X(5).                         
  15.            02 szSQLState-Null                 PIC X.                            
  16.        01  fNativeError               COMP-5  PIC S9(9).                        
  17.        01  szErrorMsg                         PIC X(511) VALUE SPACES.          
  18.        01  cbErrorMsgMax              COMP-5  PIC S9(4)  VALUE 511.             
  19.        01  cbErrorMsg                 COMP-5  PIC S9(4).                        
  20.                                                                                 
  21.       * Misc declarations used in sample function calls                         
  22.        01  SQL-RC                     COMP-5  PIC S9(4)  VALUE 0.               
  23.        01  Saved-SQL-RC               COMP-5  PIC S9(4)  VALUE 0.               
  24.        01  char-count                 COMP-5  PIC  9(9)  VALUE 0.               
  25.        01  SQL-stmt                           PIC X(30).                        
  26.                                                                                 
  27.       ***********************                                                   
  28.       * End of ODBCDATA.CPY *                                                   
  29.       ***********************                                                   
  30.