home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / odbc / odbc3eg.cbl < prev    next >
Text File  |  1997-12-01  |  3KB  |  73 lines
  1.       cbl  pgmname(mixed)
  2.       ******************************************************************
  3.       * ODBC3EG.CBL                                                    *
  4.       *----------------------------------------------------------------*
  5.       * Sample program using ODBC3, ODBC3D and ODBC3P COPY books       *
  6.       ******************************************************************
  7.        IDENTIFICATION DIVISION.
  8.        PROGRAM-ID. "ODBC3EG".
  9.        DATA DIVISION.
  10.  
  11.        WORKING-STORAGE SECTION.
  12.       *  copy ODBC API constant definitions
  13.            COPY "odbc3.cpy" SUPPRESS.
  14.  
  15.       *  copy additional definitions used by ODBC30PROC procedure
  16.            COPY "odbc3d.cpy".
  17.  
  18.       *  arguments used for SQLConnect
  19.        01  ServerName                    PIC X(10) VALUE Z"Oracle7".
  20.        01  ServerNameLength       COMP-5 PIC S9(4) VALUE 10.
  21.        01  UserId                        PIC X(10) VALUE Z"TEST123".
  22.        01  UserIdLength           COMP-5 PIC S9(4) VALUE 10.
  23.        01  Authentification              PIC X(10) VALUE Z"TEST123".
  24.        01  AuthentificationLength COMP-5 PIC S9(4) VALUE 10.
  25.  
  26.        PROCEDURE DIVISION.
  27.        Do-ODBC SECTION.
  28.         Start-ODBC.
  29.            DISPLAY "Sample ODBC 3.0 program starts"
  30.  
  31.       *  allocate henv & hdbc
  32.            PERFORM ODBC-Initialization
  33.  
  34.       *  connect to data source
  35.            CALL "SQLConnect" USING BY VALUE     Hdbc
  36.                                    BY REFERENCE ServerName
  37.                                    BY VALUE     ServerNameLength
  38.                                    BY REFERENCE UserId
  39.                                    BY VALUE     UserIdLength
  40.                                    BY REFERENCE Authentification
  41.                                    BY VALUE     AuthentificationLength
  42.                              RETURNING SQL-RC
  43.  
  44.            IF SQL-RC NOT = SQL-SUCCESS
  45.              MOVE "SQLConnect" to SQL-stmt
  46.              MOVE SQL-HANDLE-DBC to DiagHandleType
  47.              SET DiagHandle to Hdbc
  48.              PERFORM SQLDiag-Function
  49.            END-IF
  50.  
  51.       *  set licensing informationm
  52.            PERFORM SQL-SetLicInfo-Function
  53.  
  54.       *  allocate hstmt
  55.            PERFORM Allocate-Statement-Handle
  56.  
  57.       *****************************************
  58.       *  add application specific logic here  *
  59.       *****************************************
  60.  
  61.       *  clean-up environment
  62.            PERFORM ODBC-Clean-Up.
  63.  
  64.       *  End of sample program execution
  65.            DISPLAY "Sample COBOL ODBC program ended"
  66.            GOBACK.
  67.  
  68.       *  copy predefined COBOL ODBC calls which are performed
  69.            COPY "odbc3p.cpy".
  70.       *******************************************************
  71.       * End of ODBC3EG.CBL:  Sample program for ODBC 3.0 *
  72.       *******************************************************
  73.