Quelle  P1.cob   Sprache: Cobol

      ***********************************************************************
      ** Licensed Materials - Property of IBM
      **
      ** Governed under the terms of the International
      ** License Agreement for Non-Warranted Sample Code.
      **
      ** (C) COPYRIGHT International Business Machines Corp. 1995 - 2002
      ** All Rights Reserved.
      **
      ** US Government Users Restricted Rights - Use, duplication or
      ** disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
      ***********************************************************************
      **
      ** SOURCE FILE NAME: advsql.sqb
      **
      ** SAMPLE: How to read table data using CASE
      **
      **         This sample shows how to read table data using advanced
      **         SQL statements with CASE.
      **
      ** SQL STATEMENTS USED:
      **         BEGIN DECLARE SECTION
      **         END DECLARE SECTION
      **         CONNECT
      **         DECLARE
      **         FETCH
      **         OPEN
      **
      ** OUTPUT FILE: advsql.out (available in the online documentation)
      ***********************************************************************
      **
      ** For more information on the sample programs, see the README file.
      **
      ** For information on developing COBOL applications, see the
      ** Application Development Guide.
      **
      ** For information on using SQL statements, see the SQL Reference.
      **
      ** For the latest information on programming, compiling, and running
      ** DB2 applications, visit the DB2 application development website:
      **     http://www.software.ibm.com/data/db2/udb/ad
      ***********************************************************************

       Identification Division.
       Program-ID. "advsql".

       Data Division.
       Working-Storage Section.

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

           EXEC SQL BEGIN DECLARE SECTION END-EXEC.

       01 userid            pic x(8).
       01 passwd.
         49 passwd-length   pic s9(4) comp-5 value 0.
         49 passwd-name     pic x(18).
       01 lname.
        49 lname-length     pic s9(4) comp-5 value 15.
        49 lname-name       pic x(15).
       01 wdept             pic x(3).

           EXEC SQL END DECLARE SECTION END-EXEC.

       77 errloc          pic x(80).
       77 counter         pic s9(4) comp-5 value 0.

            ** Governed under the terms of the International      ** License Agreement for Non-Warranted Sample Code.
       Main      ** US Government Users Restricted Rights - Use, duplication or
           display            ** SAMPLE: How to read table data using CASE
                 **         BEGIN DECLARE SECTION      **         END DECLARE SECTION      **         CONNECT
           display "java.lang.StringIndexOutOfBoundsException: Range [0, 21) out of bounds for length 8
display,  "
    "
           displayjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                 .
           display" statmentto be executed:".

      * Get database connection information.
           "BONUS+ ".
                java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 33


                         SQL END-EXEC
             EXECSQL CONNECT TO END-EXEC
           
             displayacceptpasswd-name
             accept passwd-name.

      * Passwords in a CONNECT statement must be entered in a VARCHAR
      * format with the length of the input string.
           inspect passwd-name" .
                ""

           display ".

           EXEC           call ""  SQLCA.
               END-EXEC.EXEC DECLARE CURSORFOR
           move "CONNECTTO tojava.lang.StringIndexOutOfBoundsException: Range [38, 33) out of bounds for length 39
           call "heckerr usingSQLCA errloc.

      * declare the cursor for the advanced SQL statement.
           EXEC SQL DECLARE c1 CURSOR FOR
                    SELECT LASTNAME, WORKDEPT FROM employee
                    WHERE CASE
                       WHEN BONUS+COMM = 0 THEN NULL
                       ELSE SALARY/(BONUS+COMM)
                    END > 10 END-EXEC.

           EXEC SQL OPEN                       WHEN+COMM  THEN NULL
           moveEND>1 END-EXECjava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
           call " move"" to errloc.

           display "LASTNAME WORKDEPT".

      * FETCH the rows from the table corresponding to the SQL statement.
           performthru
              until      * FETCH the rows from the table corresponding to the SQL statement.

           display " ", counter, " record(s) selected".

           EXEC SQL CONNECT RESET END-EXEC.
move" "to .
           call "checkerr" using SQLCA errloc.
       End-Main SQL RESET.
java.lang.StringIndexOutOfBoundsException: Range [13, 11) out of bounds for length 26

       Fetch-Loop Section.
            spaces lname-name.
                        End-Prog

           if SQLCODE  to.
                End-Fetch-Loop
i QLCODE equal

           go  End-Fetch-Loop
       End-Fetch-Loop.

       End-Prog.
           stoprun.