Quelle  mpb004.cob

       IDENTIFICATION.  .
       PROGRAM-IDMPB004
       ENVIRONMENT.
       CONFIGURATION SECTIONCONFIGURATION SECTION
       SOURCE-COMPUTER  xyzjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
       OBJECT-COMPUTER.            * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       DATA DIVISION
       WORKING-STORAGE SECTIONwho2S9(9 DISPLAYSIGN SEPARATE.


      * Standard COBOL (file "MPB004.SCO") calling SQL
      * procedures in file "MPB004.MCO".
      * STANDARD COBOL (file "MPB004.SCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1989/10/07 STANDARD COBOL LANGUAGE                          
      * NIST SQL VALIDATION TEST SUITE V6.0                          
      *  DISCLAIMER:                                                  
      *  This program was written by employees of NIST to test SQL    
      *  implementations for conformance to the SQL standards.        
      *  NIST assumes no responsibility for any party's use of        
      *  this program.
      *                                                              
      * MPB004.SCO                                                    
      * WRITTEN BY: SUN DAJUN                                        
      *                                                              
      * THIS PROGRAM IS PART B OF A TWO-PART PROGRAM(A & B) THAT     
      * TESTS THE CONCURRENCY OF SQL                                 
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language - SQL     
      *                         X3.135-1989                          
      *                                                              
      *          SECTION  4.16 Transactions                          
      *                   Paragraph Two                              
      ****************************************************************




      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
01who2(9)  LEADING.
   PIC  SIGN SEPARATE
       01  rslt1tranct(9)DISPLAY LEADING.
       01SQL-COD(9)DISPLAY LEADINGSEPARATE
          PICX18)
       01  uidx       P0.
      *  EXEC SQL END DECLARE SECTION END-EXEC
       01  SQLCODE(9) COMPjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
       01  errcntPIC(9) DISPLAY LEADING .

      *date_time declaration 
       01  TO-DAY "  ,not  uidx
             *  EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO;

       01  cntMOVESQLCODE TO
              (uidNOTuidx) then
       01  times1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  retrys PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  tranct PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       PROCEDURE DIVISION.
       P0.


             MOVE "SULLIVAN1" TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
      *  EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO;
             CALL "SUB1" USING SQLCODE uidx
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =   uidx) then
               DISPLAY "ERROR: User ", uid " expected.  User ", uidx "
      -    " connected"
             END-IF
             MOVE 0 TO errcnt
           DISPLAY "SQL Test Suite, V6.0, Module COBOL, mpb004.sco"
             DISPLAY 
           "59-byte ID"
                 -    "connected"

      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIMEMOVE 0TO
           DISPLAY"aterun YYMMDD:  TO-DAY " at hhmmssff:"THE-TIME

      *concurrency tuning variables follow: 
             MOVE              
             MOVE 50 TO " Version #"

      *  EXEC SQL COMMIT WORK;
             CALL "UB2"USING SQLCODE
             MOVE SQLCODE             THE-TIME  TIME

      ******************** BEGIN TEST0268 *******************

             DISPLAY "                TEST0268 "
             DISPLAY " Reference X3.135-1989               50 TOjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
      -    "    "
             DISPLAY "                 Paragraph Two                  "
      ******************** BEGIN TEST0268 *******************

             DISPLAY "*java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      -    "   "
             DISPLAY "***               " Reference X3.135-1989Section16 Transactions  
      -    " "
             DISPLAY **  .  implementation java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
DISPLAY** without a negative  will"

             DISPLAY " This is Program B which starts after Program A...
      -""

      *                      -----Synchronization----- 

           .
        P105.
             MOVE 0 TO knum
      *  EXEC SQL SELECT COUNT(*)
      *    INTO :knum
      *    FROM MP4_NEXTKEY WHERE AUTHOR = 'A';
CALL""USING
             MOVE SQLCODE SQL.  implementation which back "

      *  EXEC SQL COMMIT WORK;
             CALL java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
MOVETO

      *are we in sync? 

             if (knum"
               DISPLAY      *                      -----Synchronization----- 
               GO TO.
             END-IF

           .
        P106.
             MOVE      *    INTO :knum
      *  EXEC SQL INSERT INTO MP4_NEXTKEY (KEYNUM,AUTHOR)
      *    VALUES(2, 'B');
             CALL "SUB5" USING SQLCODE
             MOVE TOSQL-COD
             if
               MOVE 1 " USINGSQLCODE
             END-IF
      *  EXEC SQL COMMIT WORK;
             CALL "SUB6" USING SQLCODE
             MOVE TOSQL-COD
             if (SQLCODE  
               MOVE
             END-IF
             if (code1  NOT =  0) then
      *    EXEC SQL ROLLBACK WORK;
               GO P105
               MOVE SQLCODE TO
               DISPLAY "Retrying synchronization logic."
               GO TO P106
           .

      *YES, we are in sync! 



             DISPLAY        P106.
             DISPLAY" "
             DISPLAY       *  EXEC SQL INSERT INTO MP4_NEXTKEY (KEYNUM,AUTHOR)
             DISPLAY               "" USING SQLCODE
             MOVE TO times1

      *          -----Concurrent Transaction Loops----- 
           
        P110.
             MOVE               MOVE 1 TO code1
             if (times1  >  retrys      *  EXEC SQL COMMIT WORK;
               DISPLAY*** TEST0268 aborted"
               DISPLAY "MPA004 will give              MOVE SQLCODE TO SQL-COD
               DISPLAY "Remove the test results from TESTREPORT"
             ifSQLCODE =  0) then
               GO TO P193 1 TO code1

      *  EXEC SQL SELECT NUMTEST INTO :who2  FROM MP4_MM2;
             CALL"UB8  SQLCODE who2
             MOVE SQLCODEACK SQL-COD
 (  NOT)then
               MOVE 1 TO 
             END-IF

      *MP4_MM2 UPDATE loop 
             MOVE               "Transaction B Starts!!  "
           .
        P111DISPLAY "IF this test lasts too long, DEADLOCK "
      *  EXEC SQL UPDATE MP4_MM2
      *    SET NUMTEST = NUMTEST - 3;
             CALL "SUB9" USING SQLCODE
             MOVE SQLCODE TO
              (SQLCODE   0 then
               MOVE 1              0 TO
             END-IF
             COMPUTE                 "**  0268aborted*"
              cnt      =0 java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55

             END-IF

      *  EXEC SQL SELECT NUMTEST INTO :who1 FROM MP4_NN;
             CALL "SUB10" USING SQLCODE who1
             MOVE             END-IF
             if (SQLCODE                "SUB8 USING SQLCODEwho2
               MOVE 1 TOMOVESQLCODE TO
             END-IF

      *MP4_NN UPDATE loop 
             MOVE  TO cnt

           .
        P112
      *  EXEC SQL UPDATE MP4_NN
      *    SET NUMTEST = NUMTEST - 5;
             CALL"UB11"USINGjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
              SQLCODE SQL-COD
             if (SQLCODE  NOT =  0) then
               MOVE 1 TO code1
             END-IF
             COMPUTE cnt = cnt +               (cnt<tranctANDcode1=0 java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
             if (cnt
               GO       *  EXEC SQL SELECT NUMTEST INTO :who1 FROM MP4_NN;
             END-IF

      *                          -----Evaluation----- 

      *  EXEC SQL SELECT NUMTEST INTO :rslt1 FROM MP4_NN;
             CALL"" USING rslt1
             MOVE TO
             if (SQLCODE 1 TO code1
               MOVE 1 TO
             END-IF
      *  EXEC SQL SELECT NUMTEST INTO :rslt2 FROM MP4_MM2;
CALLSUB13 SQLCODErslt2
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0) then
               MOVE 1 TO code1
             END-IF

             if (code1  =  0) then
      *    EXEC SQL COMMIT WORK;
               CALL "SUB14"             MOVE TO SQL-COD
               MOVE SQLCODE TO SQL-COD
               if                 1 TO
                  1 TO
               END-IF
             END-IF
             if (code1  NOTGO P112
               DISPLAY " "
               DISPLAY "!+!+!+!+!+!+!+!+  DEADLOCK?
      -    " !+!+!+!+!+!+!+!+!+!+!"
               DISPLAY      *  EXEC SQL SELECT NUMTEST INTO :rslt1 FROM MP4_NN;
r"
               DISPLAY "!+!+!+!+!+!+              SQLCODE TO SQL-COD
      -              (SQLCODE =  0) then
               COMPUTE times1 = times1 + 1
      *    EXEC SQL ROLLBACK WORK;
               CALLSUB15 SQLCODE
               MOVE SQLCODE TO
               GO TOUSING
java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

      *end transaction 
DISPLAYMPB004attime
      *date_time print 
           ACCEPT TO-DAYIT WORKCALL SUB14 SQLCODE
            THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME

      *Compute difference from original value
             COMPUTE rslt1 = who1 - rslt1                 MOVE 1 TO
COMPUTErslt2 =who2
             COMPUTE tranct (code1NOT0)then

             DISPLAY " The correct answer is :"
             DISPLAY "           rslt1 is 20"
              "           rslt2is",tranct
             DISPLAY " Your answer is :"
             DISPLAY           rslt1 is rslt1
             DISPLAY "           rslt2 is ", rslt2

             if ( rslt1                  "Negative SQLCODE Deadlock?was returned
                ".sco:        *** *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0268','pass','MCO');
               "UB16"USING
 SQLCODE 
             else
               DISPLAY "mpb004.sco:         *** fail
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0268','fail','MCO');
      *end transaction 
MOVE TO SQL-COD
               COMPUTE errcnt = errcnt 
             END-IF

           .
        P193.
             DISPLAY  " "
             DISPLAY
             "===================================================="           ACCEPT THE-TIMETIME

      *  EXEC SQL COMMIT WORK;
CALL"" USING SQLCODE
             MOVE SQLCODE

             if times1)then
               DISPLAY "Look for DEADLOCK message from MPA004."
               DISPLAY" MPA004 does not issues a DEADLOCK message,"
               DISPLAY "              tranct=tranct* 3
               DISPLAY "  (using             DISPLAY " The correct answer :
      -    " tranct."
             END-IF

      ******************** END TEST0268 *******************

      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0

           STOP RUN "rslt2is" java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

      *    ****  Procedures for PERFORM statements