home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / odbc / odbc2eg.cbl < prev    next >
Text File  |  1997-12-09  |  2KB  |  66 lines
  1.       CBL PGMNAME(MIXED)
  2.       ******************************************************************
  3.       * ODBC2EG.CBL                                                    *
  4.       *----------------------------------------------------------------*
  5.       * Sample program using ODBC2, ODBC2D and ODBC2P COPY books       *
  6.       ******************************************************************
  7.        IDENTIFICATION DIVISION.
  8.        PROGRAM-ID. "ODBC2EG".
  9.        DATA DIVISION.
  10.  
  11.        WORKING-STORAGE SECTION.
  12.       *  copy ODBC API constant definitions
  13.            COPY "odbc2.cpy" SUPPRESS.
  14.  
  15.       *  copy additional definitions used by ODBCPROC procedure
  16.            COPY "odbc2d.cpy".
  17.  
  18.       *  arguments used for SQLConnect
  19.        01  szDSN                     PIC X(10) VALUE Z"myDSN".
  20.        01  szUID                     PIC X(10) VALUE Z"userid".
  21.        01  szAuthStr                 PIC X(10) VALUE Z"password".
  22.  
  23.        PROCEDURE DIVISION.
  24.        Do-ODBC SECTION.
  25.         Start-ODBC.
  26.            DISPLAY "Sample ODBC 2 program starts"
  27.  
  28.       *  allocate henv & hdbc
  29.            PERFORM ODBC-Initialization
  30.  
  31.       *  connect to data source
  32.            CALL "SQLConnect" USING BY VALUE     Hdbc
  33.                                    BY REFERENCE szDSN
  34.                                    BY VALUE     SQL-NTS
  35.                                    BY REFERENCE szUID
  36.                                    BY VALUE     SQL-NTS
  37.                                    BY REFERENCE szAuthStr
  38.                                    BY VALUE     SQL-NTS
  39.                              RETURNING SQL-RC
  40.            IF SQL-RC NOT = SQL-SUCCESS
  41.              DISPLAY "SQLConnect failed"
  42.              PERFORM SQLError-Function
  43.            END-IF
  44.  
  45.       *  set licensing informationm
  46.            PERFORM SQL-SetLicInfo-Function
  47.  
  48.       *  allocate hstmt
  49.            PERFORM SQLAllocStmt-Function.
  50.  
  51.       *****************************************
  52.       *  add application specific logic here  *
  53.       *****************************************
  54.  
  55.       *  clean-up environment
  56.            PERFORM ODBC-Clean-Up.
  57.  
  58.       *  End of sample program execution
  59.            GOBACK.
  60.  
  61.       *  copy predefined COBOL ODBC calls which are performed
  62.            COPY "odbc2p.cpy".
  63.       *********************************************
  64.       * End of ODBC2EG.CBL:   ODBC-Sample program *
  65.       *********************************************
  66.