Quelle  dml168.cob   Sprache: Cobol

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


      * EMBEDDED COBOL (file "DML168.PCO")


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1996-05-06 EMBEDDED COBOL LANGUAGE                          
      * 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.
      *                                                              
      * DML168.PCO                                                    
      * WRITTEN BY:  David Flater                                    
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * This routine tests Intermediate SQL.                         
      *                                                              
      * REFERENCES                                                   
      *   FIPS PUB 127-2 14.2 Intermediate SQL                       
      *   ANSI SQL-1992                                              
      *                                                              
      ****************************************************************




           EXEC SOURCE-COMPUTER.
       01  SQLCODE.
       01  SQLSTATE SECTION.
       01  uid PIC  X(java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       01  uidx PIC  X(18).
       0      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
       01  c4 PIC  X(4).
             EXEC SQL END DECLARE      * This routine tests Intermediate SQL.                         
       01  norm1       *   FIPS PUB 127-2 14.2 Intermediate SQL                       

       ALPNUM-TABLE IS
               "".
0 PIC 6.
       01  0   PICjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
0  (9   LEADING
       0ALPNUM-TABLEIS
      *date_time declaration 
         PIC  .
       1 PIC
flag  LEADINGjava.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56

0SQL-COD (9) DISPLAY SIGN SEPARATE.

       PROCEDURE DIVISION.
       P0.

             MOVE "FLATER " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
             EXEC SQL      *date_time declaration 
             MOVE TOSQL-COD
             EXEC ROLLBACK END-EXEC
             MOVE1 PIC S9()DISPLAY LEADINGSEPARATE.
             if (uid  NOT  =   uidx) then
               DISPLAY": User , , expected. User ", uidx,"
      -    " connected"
            STOP RUN
             END-IF
             MOVE 0TO

             DISPLAY
       .
             DISPLAY
           "5 MOVE "LATERTOuid
             CALL"AUTHID USING uid
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT FROM java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAY "Date run YYMMDD SQL ROLLBACK WORK END-EXEC

      ******************** BEGIN TEST0876 *******************
MOVE flag

             DISPLAY " TEST0876"
             DISPLAY"SQL_IDENTIFIER java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
             DISPLAY":"
             DISPLAYEND-IF
             DISPLAY " F#35 -- Intermediate information schema"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE

              " TABLE T0876 ("
             DISPLAY " "9byte"
DISPLAY  C2 INFORMATION_SCHEMA);"
             EXEC      *date_time print 
               C1.SQL_IDENTIFIER
                            FROM TIME
             MOVE SQLCODE TO           DISPLAY" run YYMMDD TO-DAY hhmmssff
           PERFORM CHCKOKMOVE flag
             DISPLAY                  "

DISPLAYCOMMIT
             EXEC SQLDISPLAY2 -Domain
              TO
PERFORM
DISPLAY

             DISPLAY "INSERT INTO T0876 VALUES (
             DISPLAY  This  .;java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 66
             EXEC SQL INTO T0876 ('T0876',
               'This table tests a couple of domains.') END-EXEC
             MOVE SQLCODE SQL-COD
           PERFORM CHCKOKDISPLAY" C1 INFORMATION_SCHEMA.SQL_IDENTIFIER,"
             DISPLAY  " "

             MOVE 99 TO int1
DISPLAY" COUNT(*) INTO :int1
             DISPLAY " FROM C1 INFORMATION_SCHEMA.SQL_IDENTIFIER,
             DISPLAY " WHEREC1 ='T0876';java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
             EXECSQL COUNT*)INTOjava.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
               FROM T0876   "
               WHERE
             MOVETO
           PERFORMEXEC COMMIT END-EXEC
              " should be 1;its is ",int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMITjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
              SQLCODE SQL-COD
           PERFORM
             DISPLAY  " "

             DISPLAY "DROP TABLE T0876 CASCADE;"
 TABLET0876 CASCADE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
               " "

             " WORK;"
             EXEC SQL COMMIT              DISPLAY "SELECT COUNINTO"
             MOVE SQLCODE   WHERET0876
           PERFORM SQL COUNT*  :int1
             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             if ( flag SQLCODE SQL-COD
               DISPLAY " *** pass *** "
               EXEC CHCKOK
                 VALUES''pass') END-EXEC
               MOVE SQLCODE TO SQL-COD
             
               DISPLAY " dml168.pco * 0 TO flag
               EXEC SQL INSERT
                 VALUES('0 SQL OMMITWORK
               MOVE              SQLCODE SQL-COD
               COMPUTE errcnt CHCKOK
             END-IF

DISPLAY========================="

             EXEC SQL SQL TABLE CASCADE
             MOVE SQLCODE  SQL-COD
      ******************** END TEST0876 ********************
      ******************** BEGIN TEST0878 *******************
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

              CHCKOK
DISPLAYKeyword  optional"
             DISPLAY "References:"
             DISPLAY " F#38 -- Schema manipulation"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

                            DISPLAY*  * "
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "CREATE TABLE T0878 ("
DISPLAY  C1;"
                 VALUES6,pass END-EXEC
               C1               MOVE SQLCODE SQL-COD
              SQLCODE SQL-COD
                           SQL INTO.TESTREPORT
             DISPLAY""

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMITMOVE TOSQL-COD
             MOVE TO
           PERFORM CHCKOK
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0

             DISPLAY "ALTER TABLE T0878"
             DISPLAY   ADDC2)"
             EXEC SQL       ******************** END TEST0876 ********************
               ADD C2 CHAR 1 TO
             MOVE
RFORMCHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQLDISPLAY ":"
             MOVE " F38 - Schema "
           PERFORM CHCKOK"--- ------------- "
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0878"
             DISPLAY " ALTER C2 SET DEFAULT 'ABCD';"
             EXEC SQL ALTER TABLE "xxxxx TOSQLSTATE
               ALTER C2 SET
            MOVETO
            CHCKOK
             DISPLAY              SQL TABLE (

             DISPLAY SQLCODE SQL-COD
             EXEC SQL WORK
              DISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
           PERFORM
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0878"
             DISPLAY " DROP C1 DISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
               DROP CASCADE
             MOVE SQLCODE  CHAR)java.lang.StringIndexOutOfBoundsException: Range [39, 40) out of bounds for length 39
           PERFORM CHCKOK
             DISPLAY  " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY              " WORK;"
             EXEC SQL COMMIT WORK END-EXEC
               COMMIT END-EXEC
           PERFORM
             DISPLAY  " "

               ""
             EXEC SQL INSERT INTO T0878 VALUES (DEFAULT
             MOVE SQLCODE "ALTERC2SETDEFAULT'';"
           PERFORM CHCKOK ALTER  T0878
             ISPLAY   

             MOVE "xxxx" TO c4PERFORMCHCKOK
             DISPLAY
             DISPLAY " FROM EXEC SQL COMMIT WORKEND-EXEC
             EXEC SQL SELECT *  SQLCODE SQL-COD
               FROM END-EXEC
             MOVE SQLCODE TO
           DISPLAY    ;
             DISPLAY"c4 should be''; its value is'" c4,""
             if (c4  NOT  =   "ABCD") then
MOVE 0 TO
             END-IF

DISPLAY "COMMIT WORK;"
             EXEC SQL COMMITPERFORM CHCKOK
             DISPLAY" "
           PERFORM CHCKOK
java.lang.StringIndexOutOfBoundsException: Range [21, 13) out of bounds for length 25

             DISPLAY " TABLE T0878 CASCADE;"
             EXEC              SQLCODE TOSQL-COD
             MOVE SQLCODETO
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORMDISPLAY"INSERTINTO T0878 VALUES (EFAULT);"
             DISPLAY  " "

             if ( flag  =                SQLCODE TO SQL-COD
               DISPLAY " * " "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES078,'','PCO') END-EXEC
               MOVE              "SELECT INTO:c4"
             else
               DISPLAY " dml168.pco *** fail *** "
               EXEC SQL              SQLSELECT :c4
                 ('0878','fail',PCOEND-EXEC
               MOVEMOVE TO SQL-COD
               COMPUTE errcnt = errcnt 1
             END-IF

             DISPLAY "======================= if ( NOT = "ABCD then

             EXEC SQL COMMIT WORK              END-IF
             MOVE SQLCODE TO SQL-COD SQL WORK
      ******************** END TEST0878 ********************
      ******************** BEGIN TEST0879 *******************
             MOVE 1 TODISPLAY""

             DISPLAY " TEST0879"
             DISPLAY " "
             DISPLAYReferences
             DISPLAY    #8- Schema
             DISPLAY"F49- Constraint management"
              CHCKOK

             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE"" TOjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37

             DISPLAYPERFORM
             DISPLAY " C1 INT,java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
" INT"
             DISPLAYEXEC INSERT HUTESTREPORT
             DISPLAY " CONSTRAINT REFME UNIQUE (C2));"
             EXEC SQL CREATEVALUES078,pass)END-EXEC
               C1 INT,
               C2 INT,
               CONSTRAINT DELME CHECKMOVE TO SQL-COD
               CONSTRAINT " pco** * java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
             MOVE MOVE 
 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             

             DISPLAY "COMMIT WORK;M SQLCODE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             EXEC     drop
MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
CHCKOK
"

" (
              "
 TABLE
               C1  "

           PERFORM"CONSTRAINTREFME UNIQUE());"
             EXEC CREATE T0879

             DISPLAYCOMMIT
             EXEC INT
             MOVE TOSQL-COD
           PERFORM CHCKOK
DISPLAY

             DISPLAY "ALTER TABLE T0879"
             DISPLAY " DROP CONSTRAINT DELME RESTRICT;"
             EXEC SQL ALTER TABLE T0879
               DROP DELME END-EXEC
             MOVE
           PERFORM
             DISPLAY  " "EXEC COMMIT END-EXEC

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMITDISPLAY ""
             MOVE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           PERFORM CHCKOK
             DISPLAY  ""

             DISPLAY "INSERT INTO T0879 VALUES (0, 0);"
             EXEC SQL INSERT INTO T0879 VALUES
             MOVE AY""
           PERFORM CHCKOK
             DISPLAY  " "

LAYINSERT  VALUES 1;java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
            CHCKOK
             MOVE SQLCODE TO
           PERFORM
             DISPLAY  " "

             MOVE 0 TO int1
             DISPLAYSELECT*  :int1
             DISPLAY " SQL ALTERTABLE
                CONSTRAINT DELME END-EXEC
              FROM END-EXEC
             MOVE SQLCODE CHCKOK
RFORM
             DISPLAY "int1 should be 2; its value is ", int1
             DISPLAY "COMMITWORK;"
               MOVE0TO
             END-IF

             DISPLAY "INSERT INTO U0879 VALUES PERFORM CHCKOK
               " "
             MOVE              "INSERTINTO T0879 VALUES (0, 0;"
DISPLAY"QLCODE be <0 its " SQL-COD
             if (SQLCODE             OVE TO
               MOVE 0 TO flag  " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
                          EXEC INSERT T0879 (-,-)END-EXEC
             DISPLAYSQLSTATE30  value QLSTATE
           PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (NORMSQ  NOT  =   "23000") then CHCKOK
               MOVE 0 TO 0 TO
             ND-IF
             if (NORMSQ   =   "23000"                "FROMT0879"
             then
               DISPLAY "Valid implementation-defined java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 34
             END-IF
             DISPLAY "

             DISPLAY "INSERT "int1should ;its is,int1
                           (int1=2 
             MOVE SQLCODE  TO flag
             DISPLAY              
                          DISPLAY" INTO VALUES2)"
               MOVE flag
             END-IF
             DISPLAY "QLSTATEshouldbe2300 , SQLSTATE
           PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (NORMSQ  NOT  =   "23000 DISPLAY "SQLCODE be<0;its is " java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
               MOVE 0 TO flag
             END-IF
             ifNORMSQ30"ANDNORMSQNOT )
             then
               DISPLAY "Valid implementation-defined SQLSTATE DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
             END-IF
             DISPLAY  " "

             DISPLAY              java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
              SQL WORK
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "ALTER TABLE DISPLAY "Valid implementa SQLSTATE accepted.
             DISPLAYDISPLAY""
             EXEC SQL ALTER TABLE
DROP java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
             MOVE TO
             DISPLAY "SQLCODE should be < MOVESQLCODETOSQL-COD
             if (SQLCODE             DISPLAY" should be 0 value is " java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
               MOVE 0  flag
             ND-IF
             DISPLAY "SQLSTATE should be 42000; its value ", 
           PERFORMNOSUBCLASS EXIT-NOSUBCLASS
              (NORMSQ  ="400" java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
               MOVE 0 TO flag             ND-IF
             END-IF
             if (NORMSQ   =   "42000"  AND  NORMSQ  NOT  =   SQLSTATEifNORMSQ   20"AND NORMSQ NOT = SQLSTATE)
             then
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             END-IF
               " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY "COMMIT WORK;"
             EXEC SQLDISPLAY"COMMIT WORK;"
             MOVE SQLCODE             EXEC SQL WORK END-EXEC
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0879"
             DISPLAY " DROP CONSTRAINT REFME CASCADE;"
EXEC   T0879
               DROP CONSTRAINT REFME CASCADE END-EXEC
              SQLCODE
           PERFORM "DROPCONSTRAINTREFME RESTRICT;"
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC COMMIT END-EXEC
             MOVE TO
           PERFORM
             DISPLAY  " "

             DISPLAY "INSERT INTO java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 29
             EXEC SQLDISPLAY" should be 200 its alueis" java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT 400) java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
             EXEC SQL
                           (   =   "4200 NORMSQ )
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE T0879 CASCADE;"
             EXEC SQL DROP TABLE T0879 CASCADE END-EXEC
              SQLCODE
           PERFORMEXEC  COMMIT END-EXEC
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL  ""
             MOVE SQLCODE TO SQL-CODDISPLAY" T0879"
           PERFORM
             DISPLAY  " "

             DISPLAY "DROP TABLE U0879 CASCADE;"
              SQL TABLE CASCADEEND-EXEC
             MOVESQLCODE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           PERFORM CHCKOK
             DISPLAY "COMMIT;"

DISPLAYCOMMIT
             EXEC SQL COMMIT WORK              SQLCODE SQL-COD
             MOVE SQLCODE""
           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
                "** pass *** "
               EXEC SQL INSERT java.lang.StringIndexOutOfBoundsException: Range [0, 35) out of bounds for length 25
                 VALUES9,pass END-EXEC
               MOVE SQLCODE TO SQL-COD
             else
              " INTO T0879 VALUES (0, 0;"
               EXEC INSERT  HU
                 VALUES  TO QL-COD
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt               ""
             

             DISPLAY " EXECSQL COMMITWORK END-EXEC

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE  T0879 CASCADE
      ******************** END TEST0879 ********************
      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP              MOVE S TO SQL-COD

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOK.
             DISPLAY "SQLCODE should be 0; EXEC SQL COMMITWORK END-EXEC
             DISPLAY" should be 0000; value is ",SQLSTATE
             PERFORM THRU
if(SQLCODE =  0OR NOT = "0000)then
               MOVE 0 TO flag
             END-IF
              (NORMSQ "000"ANDNORMSQ  SQLSTATE)
             then SQL TABLE CASCADE
               DISPLAY SQLCODE SQL-COD

.

       NOSUBCLASS.

      *This routine replaces valid implementation-defined       
      *subclasses with 000.  This replacement equates valid     
      *implementation-defined subclasses with the 000 value     
      *expected by the test case; otherwise the test will fail. 
      *After calling NOSUBCLASS, NORMSQ will be tested          
      *                          SQLSTATE will be printed.      

           MOVE                    java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54

 3norm1
      *subclass begins in position 3 of char array NORMSQ 
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
           VALUES
           if  TO
              ""TO(norm1
           END-IF
                         "========================java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
           
      *Quit if NORMSQ is unchanged.  Subclass is not impl.-def. 
      *Changed NORMSQ means implementation-defined subclass,    
      *so proceed to zero it out, if valid (0-9,A-Z)            
           if (NORMSQ   =   SQLSTATE) then
             GO TO EXIT-NOSUBCLASS
           END-IF

           MOVE        CHCKOK
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
           PERFORM VARYING FROM 1 BY 1 UNTIL > 36
            (NORMSQX)  =  (norm2 java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
              "0 TO NORMSQXnorm1java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
           END-IF 0  flag
           
          
           MOVE5TO
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
orm2
           if             
             MOVE "0" TO
           END-IF
           END-PERFORM
   
      *implementation-defined subclasses are allowed for warnings 
      *(class = 01).  These equate to successful completion 
      *SQLSTATE values of 00000. 
      *Reference SQL-92 4.28 SQL-transactions, paragraph 2 

           if (NORMSQXjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE
           END-IF
           .

       EXIT-NOSUBCLASS.
            VARYING FROM4BY  norm2 6