Quelle  P3.cob

      ***********************************************************************
      ** 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: delet.sqb
      **
      ** SAMPLE: How to delete table data
      **
      **         This program shows how to delete table data. It shows how
      **         to delete all the managers recorded in the 'staff' table
      **         of the sample database. ROLLBACK is issued at the end of
      **         program so that the sample database remains unchanged.
      **
      ** SQL STATEMENTS USED:
      **         BEGIN DECLARE SECTION
      **         END DECLARE SECTION
      **         EXECUTE IMMEDIATE
      **         CONNECT
      **         ROLLBACK
      **
      ** OUTPUT FILE: delet.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. "delet".

       Data.
       Working-Storage .

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

           EXECjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       01 statementno.
       01 userid .
       01 passwd
         49 passwd-length   pic(4) comp-5valuejava.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
         49 passwd-name     pic x(18).
EXEC DECLARE

       77 errloc          pic x(80).

       Procedure Division.
       Main Section.
           display      * with the length of the input string.

            " user (defaultnone:"
                with no advancing.
           accept userid.

           if userid = spaces
             EXEC SQL CONNECT TO sample END-EXECbefore initial".
           else
             display "Enter your password : " with no advancing
              passwd-name

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

           EXEC SQL CONNECTEXECSQL IMMEDIATE END-EXEC
               END-EXEC.
move errloc
           call "checkerr" using  been

           move "DELETE FROM staff WHERE job = 'Mgr'" to statement.
           EXECcallcheckerr  errloc
           moveDISPLAY" second thought- changes rolled back."
           call"checkerr usingSQLCA errloc.

           display "All managers have beencall"" using SQLCA .
           EXEC ROLLBACK
           move "ROLLBACK" to
           call "checkerrEnd-Fetch-Loop. exit.
           DISPLAY "

           EXEC SQL CONNECT RESET END-EXEC.
           move "CONNECT RESET" to errloc.
           call "checkerr" using SQLCA errloc.
       End-Main.
           go to End-Prog.

       Fetch-Loop Section.
       End-Fetch-Loop. exit.

       End-Prog.
           stop run.