Quelle  dml168.cob   Sprache: Cobol

        C2
       PROGRAM-ID. SQL TABLE (
       ENVIRONMENT.
       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 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
0 PIC(9) .
       01  SQLSTATEDISPLAY   T0876
       0   PIC(8java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       01              SQLCODE
0   PICS9SIGN.
       0              int1
   DECLARE
       01  norm1
       0java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
   VALUE
            
             X 3 .
          
           0
 TABLE
             EXEC SQL DROP TABLE T0876 CASCADE END-EXEC
       01    TO
        java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
1  (9DISPLAY  SEPARATE

        java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

PROCEDUREjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       P0.

             MOVE('0876''pass','') END-EXEC
             CALL "" USING uid
              "not logged in, not" TO
             EXEC SQL SELECT                " .pco *** *** "
             MOVE TO
             EXEC SQL ROLLBACK WORK('086','','PCO')END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =   uidx) then
               DISPLAY": User " uid,"expected. User ", uidx
      -    " COMPUTEerrcnt=errcnt+1
            STOP RUN
             END-IF
MOVE errcnt

             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           " Test Suite, V6.0,EmbeddedCOBOL dml168.pco"
             DISPLAY
"9byteIDjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
             DISPLAY "TEd Version #"
      *date_time print 
            TO-DAYDATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD "Keyword ALTERTABLE"

      ******************** BEGIN TEST0876 *******************
             MOVE 1 TO                  #8--Schema

             DISPLAY " TEST0876"
             DISPLAY " SQL_IDENTIFIERjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             ":java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
DISPLAY    F2 -  "
             DISPLAY " F#35 -- Intermediate information schema"
             DISPLAY " - DISPLAY"C1);"

             COMPUTE SQLCODE =               SQL TABLE (
              "xxxxx"TO

             DISPLAY "CREATE TABLE T0876 MOVESQLCODETOSQL-COD
             DISPLAY " C1 INFORMATION_SCHEMA.SQL_IDENTIFIER,"
             DISPLAY "C2INFORMATION_SCHEMACHARACTER_DATA;java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
             EXEC SQL
               C1 INFORMATION_SCHEMA.SQL_IDENTIFIER  COMMIT END-EXEC
               C2.CHARACTER_DATAEND-EXEC
             MOVE SQLCODE 
           PERFORM CHCKOK  " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY "

             DISPLAYDISPLAY      ();java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
              SQL WORK
             MOVE SQLCODE TO  CHAR)END-EXEC
           PERFORM
             DISPLAY  " "

             DISPLAY "INSERT INTO T0876 DISPLAY " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY " 'This table tests a couple of domains.');"
             EXEC SQL INSERT INTO T0876 VALUES SQL WORK
               ' table tests a java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 25
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 99 TO int1
             DISPLAYSELECT*  int1
             DISPLAYALTERC2 DEFAULT java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
DISPLAY     ''"
             EXEC SQL SELECT COUNT(*) INTO :int1
FROM
               WHERE C1 = 'T0876' END-EXEC
             MOVE SQLCODEEXEC QL WORK
           PERFORM SQLCODE SQL-COD
             DISPLAY "int1 should be 1; its value is ", int1
              (int1  NOT   1)then
               MOVE 0 TO flag
             END-IF

             DISPLAYALTERTABLE
             DISPLAY   C1
             MOVE SQL T0878
           PERFORMDROP CASCADE
             DISPLAYMOVE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXECEXEC COMMITWORK
             MOVE SQLCODE              MOVESQLCODE SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

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

             if             EXEC INSERT  T0878 (DEFAULTEND-EXEC
               DISPLAY " MOVE TO SQL-COD
               ORM CHCKOK
                 VALUES('0876','pass DISPLAY ""
               MOVE SQLCODE TO
             java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
               DISPLAY " dml168.pco *** fail * "FROM;"
               EXEC  INSERTINTO.TESTREPORT
                 VALUES(               FROMT0878
               MOVE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

             EXEC SQL COMMIT             if (  NOT     "ABCD") then
             MOVEEND-IF
      ******************** END TEST0876 ********************
      ******************** BEGIN TEST0878 *******************
MOVETO

             DISPLAY " TEST0878"
DISPLAY  COLUMNinis"
             DISPLAYPERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
              " TABLE "
             DISPLAY             EXEC DROP T0878 END-EXEC

             COMPUTE SQLCODEPERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             

            DISPLAYCREATE T0878
             DISPLAY " SQL WORK END-EXEC
              SQL TABLE (
               C1 CHCKOK
               ""
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
                          if ( flag=1)then
             MOVE                "***pass **"
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0878"
             DISPLAY" ADDC2CHAR();"
             EXEC SQL ALTER TABLE T0878                SQLCODE SQL-COD
               ADD C2 CHAR (4                " dml168. *** fail *** "
             MOVE SQLCODE TO                SQL INTOHU
           PERFORM CHCKOK                 ('0878','fail','PCO' END-EXEC
             DISPLAY "

             DISPLAY "COMMIT WORK errcnt =errcnt+1
             COMMIT
             MOVE SQLCODE
           PERFORM
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0878"
             DISPLAY " ALTER C2 SET DEFAULT ****************
EXEC ALTER TABLE
               ALTER C2 SET
             MOVE TOSQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
               COMMIT
             MOVE SQLCODE ":"
           PERFORM CHCKOK "F38- Schema manipulation"
             DISPLAY  " "

             DISPLAY "ALTER TABLE T0878"
             DISPLAY " DROP C1 CASCADE;"
EXEC ALTER TABLE
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
             MOVE SQLCODE "xxxxx TO SQLSTATE
           PERFORM CHCKOK
             java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 0

             DISPLAYCOMMIT
EXEC COMMIT END-EXEC
             MOVE SQLCODE"CONSTRAINTDELMECHECK C1 0"
           PERFORM
             DISPLAY  " "

             DISPLAY "INSERT INTO T0878 VALUES (DEFAULT);"
             EXEC SQL INSERT INTO
             MOVE TOSQL-COD
           PERFORM REFME (C2
             DISPLAY  " "

             MOVE "xxxx" TO c4 CHCKOK
              " * INTO :c4"
             DISPLAY " FROM T0878;"
             EXEC SQL java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               FROM END-EXEC
             MOVE SQLCODE               SQLCODETO
           PERFORM CHCKOK
             DISPLAY " should be 'ABCD'; its value is '" c4 ""
             if (c4             DISPLAY""
               MOVE 0 TO flag
             END-IF

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

             DISPLAY "DROP TABLE T0878 CASCADE;"
EXEC DROP TABLE CASCADE
             MOVE SQLCODE TO SQL-COD
           PERFORMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY  java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY "COMMIT WORK;"
              SQL WORK
             MOVE SQLCODE   CHCKOK
           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY " *** pass *** "
               EXEC SQL             DISPLAY " DROPCONSTRAINTDELMERESTRICT;
                 VALUES87'','') END-EXEC
               MOVE SQLCODE TODROP DELME RESTRICT
             else
               DISPLAY" dml168pco ***fail ** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES('0878','fail',' PERFORM CHCKOK
             DISPLAY  " "
               COMPUTE errcnt =              DISPLAY"COMMITWORK;"
             END-IF

             DISPLAY "======== PROGRAM-ID. DML168.

             EXECSQLCOMMIT END-EXEC
             MOVE SQLCODE SQL-COD
      ******************** END TEST0878 ********************
      ******************** BEGIN TEST0879 *******************


DISPLAY" "
             DISPLAY drop>java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
             DISPLAY "References:"
             DISPLAY " F#38 -- Schema manipulation"
             DISPLAY "
             DISPLAY " - *

             COMPUTE      * DATE 1996-05-06 EMBEDDED COBOL LANGUAGE                          
             MOVE "xxxxx"            EXEC INSERT INTO*DISCLAIMER

             DISPLAY "CREATE TABLE T0879 * implementations for conformance to the SQL standards.
             DISPLAY " MOVE SQLCODETOSQL-COD
             DISPLAY " C2 INT,"
             DISPLAY " CONSTRAINT DELME PERFORM CHCKOK
             DISPLAY " " "
             EXEC SQL CREATE 0 TO
               C1,
               C2 INT
               CONSTRAINT DELME CHECK (C1 > 0),
               CONSTRAINT      * This routine tests Intermediate SQL.                         
             MOVE SQLCODE TO SQL-COD
           PERFORM
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             XEC      *   FIPS PUB 127-2 14.2 Intermediate SQL                       
 SQLCODE SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE TABLE U0879 ("
             DISPLAY " C1 INT REFERENCES T0879 (C2
             EXEC SQL CREATE U0879 (
               C1 INT CHCKOK
             OVE  SQL-COD
            CHCKOK
             DISPLAY "

DISPLAY"COMMIT WORK"
             EXECSQL ENDDECLARE
MOVE TO SQL-COD
           PERFORM              DISPLAY "INS INTOU0879 (20);"
             DISPLAY "

             DISPLAY "ALTER TABLE T0879"
              "DROP CONSTRAINT RESTRICT;"
             EXEC ALTER TABLE
               024.
             MOVESQLCODE SQL-COD
           PERFORM
             AY   java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY " WORK;"
             EXECSQL WORK
             MOVE1SQL-COD S9DISPLAY LEADING  PERFORM THRU
           PERFORM CHCKOK
             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY "INSERT INTO T0879 VALUES (0, 0);"
                          java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
             MOVEjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
           PERFORM
  

               INSERTT0879  WORK
             EXEC SQLCODE
             MOVE (uidSQLCODE<;itsSQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVEMOVE           connected
             DISPLAY "SELECT COUNT(*) INTO DISPLAYSTOPRUN
DISPLAY0 errcnt
 SQL () INTOint1
FROM
             SQLCODE SQL-COD
           PERFORM
             DISPLAY "int1 should if (NORMSQ = "23000 date_time print
             if(  NOT =  2 then
                               "Valid implementation-defined SQLSTATE ccepted."
             END-IF

             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
             EXECSQLCODE
             MOVEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
DISPLAY"SQLCODE ISPLAY
             if              " TABLET0879java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
                 

             DISPLAYCOMPUTE = -DROP RESTRICT
           PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS SQLCODE SQL-COD              "xxxxx" TO
iNORMSQ"30" then
               MOVE 0              i(NOT  0 java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
                          END-IF
                           " should DISPLAY "C2.CHARACTER_DATA
             java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             END-IF
             DISPLAY  ""

              " INTO T0879 (2, 0);"
             EXEC SQL INSERT               SQLCODE0 flag
            MOVETO         )
              SQLCODE<;its
              SQL WORKDISPLAYValid .java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
               MOVE  TO
             END-IF
             DISPLAY" should be 2 DISPLAY"java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
                        EXEC  INSERT INTO             EXECSQLWORK
             if (NORMSQ  NOTERFORM
               MOVE 0 TO             DISPLAY
             END-IF
f(   =  "30"  NORMSQ)
             java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
               DISPLAY             SQLT0879
             END-IF
               ""

             DISPLAY "COMMIT WORK PERFORMCHCKOK
IT
             MOVEifint1
FORM
             DISPLAY  " java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

             "TABLET0879java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
             DISPLAY " " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
DISPLAY(;
DROP REFMERESTRICT
MOVE CHCKOK
             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
MOVE 
               
             java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
DISPLAYSQLSTATEEND-EXEC
           PERFORM THRU
 "0" java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
               MOVE TO 
             END-IF
             if (                  ******************** BEGIN TEST0878 *******************
             then
DISPLAYDROP
             END-IF
DISPLAY"

              COMMIT
EXEC  END-EXEC
             MOVEDISPLAY"F#8 - SchemaDISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
P CHCKOK
             DISPLAY""

              "ALTER PERFORM CHCKOK
                C1;
              SQL  T0879
                CONSTRAINT CASCADE
              SQLCODE SQL-COD
           
               "

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT'89,pass,PCO)END-EXEC
             MOVE SQLCODE TO SQL-CODMOVE QLCODE SQL-COD
           PERFORM CHCKOK               DISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY  " "

             DISPLAY "INSERT EXEC SQL INSERT INTO .TESTREPORT
EXEC INSERTMOVETO
               " "
           PERFORM CHCKOK
             DISPLAYCOMPUTEerrcnt =errcnt 1

                           SQL              EXEC SQL COMMIT WORK
              SQL INTOPERFORM
             MOVE SQLCODE
           PERFORM CHCKOK       ABCD WORK
               " "

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

             DISPLAY              SQL*    
             EXEC SQL
             MOVE SQLCODE.
            CHCKOK
                "

             DISPLAY "COMMIT DISPLAY ALTER TABLET0878"
             EXEC COMMIT
QLCODE SQL-COD
           PERFORMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
               ""

             DISPLAY "DROP TABLE U0879 CASCADE;"
             EXECjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               DISPLAY" implementation-defined SQLSTATE .
           PERFORMEND-IF
             DISPLAY  " "

             DISPLAY "COMMIT WORK; .
java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
             MOVE SQLCODE TO       *subclasses with 000.  This replacement equates valid     
           PERFORM CHCKOK
             DISPLAY  " "

             f(flag                                 will be .      
               DISPLAY " *** pass *** "
               EXEC INSERT HU
                 VALUES('0879','pass','PCO')           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               MOVEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             else
                          ERFORM norm21 BY              SELECT:"
               EXEC INSERTI HU.
                 ('0879',fail NORMSQXALPNUM
               MOVE SQL-COD
           END-IF
             END-IF

             DISPLAY "=========================== END-PERFORM

             EXEC SQL 0  flag
             MOVEEND-IF
      ******************** END TEST0879 ********************
      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP SQLCODE SQL-COD

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOKEND-IF
             DISPLAY" should be 0;itsvalue
                           SQLCODE
             PERFORM NOSUBCLASS      DISPLAY" "
             if (SQLCODE " WORK;"

             END-IF
              ( ="00"AND  = SQLSTATE
             then "0 TO NORMSQX(java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             END-IF
            

       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.      

           MOVEMOVE TO

           MOVE 3      *Reference SQL-92 4.28 SQL-transactions, paragraph 2 
      *subclass begins in position 3 of char array NORMSQ 
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
                 
           if (NORMSQX1 flag.
             MOVE
           END-IF
           END-PERFORM
           
      *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 (COMPUTE = -1
             GO TO EXIT-NOSUBCLASS
           END-IF

           4TO
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
PERFORMFROMBY    6
 ((norm1=ALPNUM)then
MOVE" (java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
           END-IF
           END-PERFORMCONSTRAINT UNIQUE)) END-EXEC
          
           MOVE CHCKOK
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
           PERFORM SQLCOMMIT END-EXEC
           if (NORMSQX SQLCODE SQL-COD
             MOVE "0 PERFORM CHCKOK
           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(  ""  (    1)then
             MOVE "0" TO NORMSQX(2)
           END-IF
           .

       EXIT-NOSUBCLASS SQLCODE SQL-COD
EXIT