Quelle  mpb008.cob   Sprache: Cobol

       IDENTIFICATION.
              PROGRAM-ID. .
       ENVIRONMENT.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "MPB008.PCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1992/07/31 EMBEDDED 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.
      *                                                              
      * MPB008.PCO                                                    
      * WRITTEN BY: David W. Flater                                  
      *                                                              
      * THIS PROGRAM IS PART B OF A TWO-PART PROGRAM(A & B) THAT     
      * TESTS THE CONCURRENCY OF SQL                                 
      *                                                              
      * REFERENCES                                                   
      *   ANSI SQL-1992                                              
      *     4.28  SQL-transactions                                   
      *                                                              
      ****************************************************************


           EXEC SQL BEGIN       * MPB008.PCO                                                    
       01  uid PIC  X(18).
       01  knum PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uidx PIC      * TESTS THE CONCURRENCY OF SQL                                 
             EXEC SQL END DECLARE SECTION END-EXEC
       01  i PIC S9(9) DISPLAY SIGN LEADING      *   ANSI SQL-1992                                              
       01  j PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  SQLCODE PICS9() .
       01  errcnt01uid   X(8)
      *date_time declaration 
 96.
       01  THE-TIME PIC 9(8).
       01  code1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  pauze PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  pauze2 PIC01uidxPIC  (18.
01loopsPICS99    SEPARATE.
       01  flcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  mxfail PIC        01  PIC S9()DISPLAY  LEADING SEPARATE.

       01  SQL-COD PIC S9(9) DISPLAY SIGN java.lang.StringIndexOutOfBoundsException: Range [0, 49) out of bounds for length 34

       PROCEDURE        01  THE-TIME PIC.
.


             MOVE "SULLIVAN1"pauzePIC S99 DISPLAY SIGN LEADING SEPARATE.
             CALL"AUTHID"USING uid
             MOVE "not        01  loops PIC S9(9) DISPLAYLEADINGSEPARATE.
             EXEC  USER  uidx FROM.CCO END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =              S99   LEADINGSEPARATE.
PIC   java.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 59
      ""
             STOP RUN 
             END-IF
MOVE 0TOerrcnt
           DISPLAY
              "SQL Test              MOVE "not loggedin not"TO java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
           DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           THE-TIMEFROMjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAY"ate  :"TO-DAY athhmmssff  

             MOVE 1 TO pauze
              1 TOloops
0  flcnt
             MOVE 50 TO mxfail

      ******************** BEGIN TEST0517 *******************

             DISPLAY "                TEST0517 "
DISPLAY"Transactions :  "
             DISPLAY "Reference              "EdVersion#
      -    " SQL-transactions           ACCEPT TO-DAY FROM DATE
             DISPLAY "     - ----------- - ------java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65

             DISPLAY "*** This program is part B of a two-part"
             DISPLAY"**program (A &B)"

             DISPLAY " This is Program             MOVE   loops
      -    " "

      *                      -----Synchronization----- 
           .
        P105.
             MOVE 0 TO knum
             EXEC SQL SELECT COUNT(*)
               INTO :knum
               FROM MP8_NEXTKEY WHERE AUTHOR = 'A' END-EXEC
             MOVE SQLCODE TO SQL-COD

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

      *are we in sync? 

             if (knum  =  0) then
               DISPLAY "   PLEASE start program MPA008!!!   "
               
             END-IF

           .
        .
             MOVE 0 TO code1
 (KEYNUM,)
               VALUES(2, 'B') END-EXEC
              SQLCODE 
             if (SQLCODE               "----------- -       "
               MOVE 1 TO code1
             END-IF
             EXEC    
             MOVE              DISPLAY "***A)java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
             if (SQLCODE
               MOVE 1 TO code1
             java.lang.StringIndexOutOfBoundsException: Range [0, 19) out of bounds for length 13
             if                COUNT*java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
                SQL  END-EXEC
               MOVE SQLCODE TO SQL-COD
               DISPLAY "Retrying java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 0
               GO TO P106
             END-IF

      *YES, we are in sync! 

             DISPLAY T B! "
      *date_time print 
           ACCEPT TO-DAY FROM DATE
            THE-TIMEFROM 
           DISPLAY "GO TOP105
                "
             DISPLAY "IFjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "has taken                  MP8_NEXTKEY (KEYNUM,AUTHOR)

             DISPLAY  " "
              Tof testcontinuouslyjava.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
      -    " to"
cate rowintoMP8_AA Ifit
      -    " succeeds,"
             DISPLAY "there has               SQLCODE   = )then
      -   "constraint"
             DISPLAY "failure."
             DISPLAY  " "

           .
        P101.
             DISPLAYMOVE SQL-COD
             EXEC              S  NOT  0 
MOVETOSQL-COD
             if (SQLCODE  <  0) then
               GO TO P120
END-IF

             DISPLAY "MOVESQLCODE  SQL-COD
              SQL COMMITEND-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT <  0) java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
               GO TO P166
             

           .
        .
             COMPUTE flcnt = flcnt + 1
             if (flcnt  >  mxfail) then
               GO TO P180
             END-IF
             DISPLAY "*** Negative SQLCODE (Deadlock or UNIQUE
      -    " violation?) ***"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
            FROMjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAY "Date run YYMMDD: " TO-DAY " at              "F this testlaststoo long,DEADLOCK
             DISPLAY "Restarting transaction"
             EXEC  ROLLBACKWORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             GOTOP101

           .
        P180.
             DISPLAY  " "
             DISPLAY "aximum  negative SQLCODEs exceeded"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY              DISPLAY "there has beena serializability or unique
                          DISPLAY "ailure."
             EXEC SQL ROLLBACK WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             GO TO P198

           .           .
        P166.
             DISPLAY  " "
      *date_time print 
           ACCEPT TO-DAY FROM DATE
            java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36
           DISPLAY
              java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
      -     =java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 38
             DISPLAY "       mpb008.pco  *** fail *** "
             EXEC SQL INSERT INTO HU.java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 19
               VALUES('0517','fail          "?**
             MOVE SQLCODE            ACCEPTTO-DAY FROMDATE
             COMPUTE errcnt = errcnt + 1
             SQL WORK
             MOVE SQLCODE TO SQL-COD

           .EXEC END-EXEC
        P198.
              ""
             DISPLAY
             ============================"

      ******************** END TEST0517 *******************

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

      *    ****  Procedures for PERFORM statements