************************************************************************* 
      ** 
      ** Source File Name = client.cbl  1.2 
      ** 
      ** Licensed Materials - Property of IBM 
      ** 
      ** (C) COPYRIGHT International Business Machines Corp. 1995, 1999 
      ** All Rights Reserved. 
      ** 
      ** US Government Users Restricted Rights - Use, duplication or 
      ** disclosure restricted by GSA ADP Schedule Contract with 
      ** 
      **    PURPOSE : 
      **      an example showing how to use CLIENT APIs in order to: 
      **         - set a client 
      **         - query a client 
      ** 
      **    APIs USED : 
      **       SET CLIENT                          sqlgsetc() 
      **       QUERY CLIENT                        sqlgqryc() 
      ** 
      ** 
      ** For more information about these samples see the README file. 
      ** 
      ** For more information on programming in COBOL, see the: 
      **    -  "Programming in COBOL" section of the Application Development Guide. 
      ** 
      ** For more information on Building COBOL Applications, see the: 
      **     - "Building COBOL Applications" section of the Application Building Guide. 
      ** 
      ** For more information on the SQL language see the SQL Reference. 
      ** 
      ************************************************************************* 

       Identification Division.
       Program-Id. "client".

       Data Division.
       Working-Storage Section.

           copy "sqlenv.cbl".
           copy "sql.cbl".
           copy "sqlca.cbl".

      * Local Variables 

       77 rc                  pic s9(9) comp-5.
       77 errloc              pic x(80).

      * Variables for SET/QUERY CLIENT 
       77 listnumber          pic s9(4) comp-5 value 5.

       01 default-settings.
          05 default-items occurs 5 times.
            10 default-type     pic s9(4) comp-5 value 0.
            10 default-value    pic s9(4) comp-5 value 0.

       Procedure Division.
       client-pgm section.

           display "Sample COBOL Program : client.cbl".

      * setup connection setting structure SQLE-CONN-SETTING 
           move SQL-CONNECT-TYPE            to SQLE-CONN-TYPE(1).
           move SQL-RULES                   to SQLE-CONN-TYPE(2).
           move SQL-DISCONNECT              to SQLE-CONN-TYPE(3).
           move SQL-SYNCPOINT               to SQLE-CONN-TYPE(4).
           move SQL-MAX-NETBIOS-CONNECTIONS to SQLE-CONN-TYPE(5).

           display "QUERY CLIENT".

      *************************** 
      * QUERY CLIENT API called * 
      *************************** 
           call "sqlgqryc" using
                                 by reference SQLE-CONN-SETTING
                                 by value     listnumber
                                 by reference sqlca
                           returning rc.

           move "QUERY CLIENT" to errloc.
           call "checkerr" using SQLCA errloc.

           perform print-query.

      * capture default settings 
           move SQLE-CONN-VALUE(1) to default-value(1).
           move SQLE-CONN-VALUE(2) to default-value(2).
           move SQLE-CONN-VALUE(3) to default-value(3).
           move SQLE-CONN-VALUE(4) to default-value(4).
           move SQLE-CONN-VALUE(5) to default-value(5).

      * setup connection setting structure SQLE-CONN-SETTING 
           move SQL-CONNECT-2       to SQLE-CONN-VALUE(1).
           move SQL-RULES-STD       to SQLE-CONN-VALUE(2).
           move SQL-DISCONNECT-COND to SQLE-CONN-VALUE(3).
           move SQL-SYNC-TWOPHASE   to SQLE-CONN-VALUE(4).
           move 254                 to SQLE-CONN-VALUE(5).

           display "SET CLIENT".
           display "connect type     = SQL-CONNECT-2".
           display "rules            = SQL-RULES-STD".
           display "disconnect       = SQL-DISCONNECT-COND".
           display "syncpoint        = SQL-SYNC-TWOPHASE".
           display "max netbios conn = 254".

      ************************* 
      * SET CLIENT API called * 
      ************************* 
           call "sqlgsetc" using
                                 by reference SQLE-CONN-SETTING
                                 by value     listnumber
                                 by reference sqlca
                           returning rc.

           move "SET CLIENT" to errloc.
           call "checkerr" using SQLCA errloc.

           display "QUERY CLIENT".
      *************************** 
      * QUERY CLIENT API called * 
      *************************** 
           call "sqlgqryc" using
                                 by reference SQLE-CONN-SETTING
                                 by value     listnumber
                                 by reference sqlca
                           returning rc.

           move "QUERY CLIENT" to errloc.
           call "checkerr" using SQLCA errloc.

           perform print-query.
      * reset connection setting with default settings 
           move default-value(1) to SQLE-CONN-VALUE(1).
           move default-value(2) to SQLE-CONN-VALUE(2).
           move default-value(3) to SQLE-CONN-VALUE(3).
           move default-value(4) to SQLE-CONN-VALUE(4).
           move default-value(5) to SQLE-CONN-VALUE(5).

           display "SET CLIENT".
      ************************* 
      * SET CLIENT API called * 
      ************************* 
           call "sqlgqryc" using
                                 by reference SQLE-CONN-SETTING
                                 by value     listnumber
                                 by reference sqlca
                           returning rc.

           move "SET CLIENT" to errloc.
           call "checkerr" using SQLCA errloc.

       end-client. stop run.

       print-query section.
      *********************** 
      * SQL CONNECTION TYPE * 
      *********************** 
           display " ".
           display "SQL CONNECTION TYPE".
           display "===================".
           display " ".

           if SQLE-CONN-VALUE(1) equal SQL-CONNECT-1 then
              display " Enforces the rules for Remote Unit of Work
      -    " (RUOW) from previous releases"
              display "TYPE = SQL-1".

           if SQLE-CONN-VALUE(1) equal SQL-CONNECT-2 then
              display " Supports the multiple database pre unit of work
      -    " semantics DUOW"
              display "TYPE = SQL-2".

      ************* 
      * SQL RULES * 
      ************* 
           display " ".
           display "SQL RULES".
           display "=========".
           display " ".

           if SQLE-CONN-VALUE(2) equal SQL-RULES-DB2 then
              display " Enables the SQL CONNECT statement to switch the
      -    " current connection to an extablished (dormant) connection"
              display "TYPE = SQL-DB2".

           if SQLE-CONN-VALUE(2) equal SQL-RULES-STD then
           display "Permits the establishement of a new connection only through
      -    " SQL CONNECT statement."
           display "Under SQL_STD, the SQL SET CONNECTION statement is used to
      -    " switch the current connection to a dormant donnection."
           display "TYPE = SQL-STD".

      ****************** 
      * SQL DISCONNECT * 
      ****************** 
           display " ".
           display "SQL DISCONNECT".
           display "==============".
           display " ".

           if SQLE-CONN-VALUE(3) equal SQL-DISCONNECT-EXPL then
              display " Breaks those connections that have been explicitly
      -    " marked for release at commit by the SQL RELEASE statement"
           display "TYPE = SQL-EXPLICIT".

           if SQLE-CONN-VALUE(3) equal SQL-DISCONNECT-COND then
              display " Breaks those connections that have no open WITH HOLD
      -    " cursors at commit, and those that have been marked for release by
      -    " the SQL RELEASE statement"
           display "TYPE = SQL-CONDITIONAL".

           if SQLE-CONN-VALUE(3) equal SQL-DISCONNECT-AUTO then
              display " Breaks all connections at commit"
           display "TYPE = SQL-AUTOMATIC".

      ***************** 
      * SQL SYNCPOINT * 
      ***************** 
           display " ".
           display "SQL SYNCPOINT".
           display "=============".
           display " ".

           if SQLE-CONN-VALUE(4) equal SQL-SYNC-TWOPHASE then
              display " Requires a Transaction Manager (TM) to coordinate two-
      -    " phase commits among databases that support this protocol"
           display "TYPE = SQL-TWOPHASE".

           if SQLE-CONN-VALUE(4) equal SQL-SYNC-ONEPHASE then
              display " Uses one-phase commits to commit the work done by each
      -    " database in multiple database transactions. Enforces single updat
      -    "er, multiple read behaviour"
           display "TYPE = SQL-ONEPHASE".

           if SQLE-CONN-VALUE(4) equal SQL-SYNC-NONE then
              display " Does not enforce two-phase commits, or single updater
      -    " multiple read behaviour"
           display "TYPE = SQL-NONE".

      ******************************* 
      * SQL MAX NETBIOS CONNECTIONS * 
      ******************************* 
           display " ".
           display "SQL MAX NETBIOS CONNECTIONS".
           display "===========================".
           display " ".

           display " This specifies the maximum number of concurrent".
           display " connections that can be made using the NETBIOS".
           display " adapter in an application".
           display "CONNECTIONS = " , SQLE-CONN-VALUE(5) .

       end-print-query. exit.