Quelle  dml181.cob   Sprache: Cobol

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


      * EMBEDDED COBOL (file "DML181.PCO")


      ****************************************************************
      *                            
      *                 COMMENT SECTION                              
      *                            
      * DATE 1996-05-16 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.
      *                            
      * DML181.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 SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
       01  int1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  naam1 PIC X(373).
       01  naam2 PIC X(373).
       01  flt1 PIC S9())DISPLAY  LEADINGjava.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
             01  naam1-st.
        PIC---9999.
       01  naam1-st.
           05  naam1-s             XOCCURS 373 TIMES
       01  naam2-st.
           05  naam2-s PIC X OCCURS 373 TIMES.
       01  norm1 PIC S9(9) DISPLAY SIGN          PICS9(9   LEADINGSEPARATE.
       01  norm2 PIC S9(9               "1234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ.
       01  ALPNUM-TABLE VALUE IS
               "            X OCCURS5 .
           05  ALPNUM PIC X OCCURS 36 TIMES.
       01  NORMSQ.
           05  NORMSQX PIC X OCCURS 5 TIMES.
       01  errcnt PIC       01THE-TIME PIC ()
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC ().
       01  flag PIC S9(9)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

       01  SQL-COD PICCALL  uid

       PROCEDURE DIVISION.
       P0.

             MOVE "             MOVE SQLCODE  SQL-COD
              "UTHID"USING
             MOVE "not logged in, not" TO uidx
             EXEC SQL SELECT USER INTO              (idNOT=)then
             MOVE SQLCODE TO SQL-COD
             EXEC SQL      "connected"
                          
if(  NOT=uidx 
               DISPLAY "ERROR: User ", uid, " expected.  User "
           "
            STOP RUNDISPLAY
             END-IF
             MOVE 0 TO errcnt

             DISPLAY
           "SQL Test Suite, V6.0, Embedded COBOL, dml181.pco"
             DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY            "ate YYMMDD "TO-DAY  athhmmssff  
           ACCEPT THE-TIME FROM            MOVE 1TOflag
           DISPLAY "Date run YYMMDD: " TO-DAY "               "   sizing   column >750

      ******************** BEGIN TEST0894 *******************
             MOVE1  flagjava.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27

             DISPLAY "              java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 18
             DISPLAY "    FIPS sizing, length           "column"
             DISPLAY "References:"
             DISPLAY"IPS 16. -  #29, of UNIQUE columns"
             DISPLAY "FIPS 16.6 -- Sizing #31, Length of GROUP BY column
      -     list"
             DISPLAY "FIPS 16.6 -- Sizing #33, Length of 
      -    " list"
DISPLAY"IPS 166-  #5,Length of FOREIGN java.lang.StringIndexOutOfBoundsException: Range [68, 69) out of bounds for length 68
-    "column listjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY "FIPS 16.6 -- Sizing #40DISPLAY"  VARCHAR373,java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48

             DISPLAY " FIPS 5.3 -- Format of <character  EXEC SQL  TABLE LONG_NAMED_PEOPLE (
      -    " literal >"
             DISPLAY "   - - - - - - - - -                 INT,

             COMPUTE SQLCODE SQL-COD
             MOVE "xxxxx" DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

      *746 chars + 4 for the columns = 750 
      *2 columns, 373 chars each 

             DISPLAY "CREATE   CHCKOK
             DISPLAY "  FIRSTNAME VARCHAR (373),"
             DISPLAY "  LASTNAME VARCHAR (373),"
             DISPLAY "  AGE INT,"
             "PRIMARY KEY (IRSTNAME,LASTNAME);
             EXEC SQL CREATE TABLE LONG_NAMED_PEOPLE (
               FIRSTNAME VARCHAR (373),
LASTNAME ()
               AGE INT,
               PRIMARY KEY (FIRSTNAMEDISPLAY   FOREIGN FIRSTNAME,LASTNAME"
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

                            TITLE  80,
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO                KEY (, )
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE TABLE                 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             " FIRSTNAME  (73)"
             DISPLAY "  LASTNAME VARCHAR (373),"
             DISPLAY "  TITLE VARCHAR (80),"
             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY " java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 51
            DISPLAY "   REFERENCES )"
             EXEC SQL CREATE TABLE ORDERS (
               FIRSTNAMEVARCHAR(373),
               LASTNAME VARCHAR (373),
               TITLEVARCHAR 80)
               COST NUMERIC(5,2),
                KEY(,LASTNAME
               REFERENCES LONG_NAMED_PEOPLE) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
                         DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

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

      *PEOPLE_ORDERS (FIRSTNAME, LASTNAME, AGE, TITLE, COST) 

             DISPLAY "CREATE VIEW  DISPLAY 
             DISPLAY "  SELECT * FROM LONG_NAMED_PEOPLE JOIN ORDERS
  USING( LASTNAME);
             EXEC SQL CREATE VIEW PEOPLE_ORDERS AS
               SELECT * java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 20
               '
             LCODE 
           PERFORM CHCKOK
               ""

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 23
             DISPLAY  " "

                          'aaaaaaaaaaaaaaaaaaaaaaaa'java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             DISPLAY 
             aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -"'
             DISPLAY
             'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
             DISPLAY
             
      -      "aaaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa      DISPLAY
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
             DISPLAY "'aaaaaaaaaaaaaaaaaaaaaaaaaDISPLAY"bbbbbbbbbbbbbbbbbbbbbbbbbjava.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             DISPLAY
             "'
      -      "bbbbbbb'"
             DISPLAY
             '
      -      ''
                     aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
      -      "bbbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb'"
             DISPLAY
             'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb'
             'bbbbbbbbbbbbbbbbbbbbbbbbjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             DISPLAY"20)"
             EXEC SQL INSERT INTO LONG_NAMED_PEOPLE VALUES (
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 20
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'aaaaaaaaaaaaaaaaaaaaaaaaa DISPLAY
        'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
        '      -    "'"
        'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
        'java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 23
        'java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
        '             DISPLAY

             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             ""

              "  LONG_NAMED_PEOPLEVALUES (
                          "'ddddd
             cccccccccccccccccccccccccccccccccccccccccc
     -"'
             DISPLAY
             "'
      -      "ccccccc'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
-      "'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY "'ccccccccccccccccccccccccccccccc              "',
             DISPLAY
             'ddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "         ''
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -     ddddddd
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'
      -      "ddddddd'"
             DISPLAY
             '
      -      "ddddddd'"
             DISPLAY "'ddddddddddddddddddddddddddddddd',"
             DISPLAY "25);"
             EXEC SQL INSERT25)END-EXEC
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'cccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 20
          'ccccccccccccccccccccccccccccccc',
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
          'd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddd
               25) END-EXEC
             java.lang.StringIndexOutOfBoundsException: Range [20, 21) out of bounds for length 20
                 "aaaaaa"
             DISPLAY  " "

             DISPLAY "INSERT INTO ORDERS VALUES ("
                          '',
             "
      -      "aaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY
             
      -      "aaaaaa'"
             DISPLAY
             "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
-"aaaaaa'
             DISPLAY
             "'java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 20
      -      "aaaaaa'"
             DISPLAY
             aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY "'aaaaaaaaaaaaaaaaaaaaaaaaa',"
             DISPLAY
             "bbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb' ''
             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
      -      "bbbbbb'"
             DISPLAY
             'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY "'bbbbbbbbbbbbbbbbbbbbbbbbb' ''
              "'idget  Skiing'"
             DISPLAY "29.95);"
             EXEC SQL INSERT INTO ORDERS VALUES (
         'java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 36
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa             " java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         '
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaDISPLAY
         'java.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 69
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"
         '-      "
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 20
         'bbbbbbbbbbbbbbbbbbbbbbbbb',
         'Gidget Goes Skiing',
               29.95) END-EXEC
             MOVESQLCODETO 
PERFORMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

             DISPLAY "INSERT INTO ORDERS java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 20
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa             "
DISPLAY
             '
      -      "aaaaaa'"
             DISPLAY
             "
      -      "aaaaaa'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
-      "aaaaa"
             DISPLAY
             "'             '
-     "java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 22
              "Barney Goes '"
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -"aaaaaa'java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
              "''"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
            '
      -      "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             
             "'bbbbbbbbbbbbbbbbbbbbbbbbbjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
      -      "bbbbbb'"
             "bbbbbbbbbbbbbbbbbbbbbbbbb,"
             DISPLAY "'Barney Goes java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 25
             DISPLAY "19.95);"
             EXEC SQL INSERT INTO ORDERS             DISPLAY
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'"'
'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
''
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
                      
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
         'java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 23
         'java.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 69
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbb',
         'Barney Goes Hawaiian',
               19.95) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO ORDERS VALUES ("
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "             DISPLAY
             DISPLAY
             "           ddddddd'
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc             ddddddddddddddddddddddddddddddddddddddddddddddddddd
             DISPLAY
             "'ccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             '
      -      "ccccccc' EXEC SQL  INTO  (
             'ccccccccc'
             "cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
             DISPLAY"ccccccccccccccccccccccccccccccc
   DISPLAY
             "'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
      -      "'ccccccccccccccccccccccccccccccc',
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             dddddddddddddddddddddddddddddddddddddddddddddddddd
      -          ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
            DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd'',
      -      "ddddddd'"
             DISPLAY
             "'java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
      -      "ddddddd'"
             DISPLAY
             "'ddddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "dddddd'"
             java.lang.StringIndexOutOfBoundsException: Range [54, 20) out of bounds for length 57
             DISPLAY "'Invasion of the Smurfs',"
             DISPLAY "9.95);"
             EXEC SQL INSERT INTO ORDERS VALUES (
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'cccccccccccccccccccccccccccccccccccccccccccccccccccccccc
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
          'java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 43
         ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
          '
          ''java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          d'
          'java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 32
          'ddddddddddddddddddddddddddddddd',
          '              "   :aam1,:,:lt1;
               .)END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM MOVE naam2 
              SQLCODESQL-COD

             DISPLAY "DECLARE C0894 CURSOR FOR"
             DISPLAY "  SELECT FIRSTNAME, LASTNAME, AVG(           CHCKOK
             DISPLAY "               DISPLAY "naam1  be 'aaa..;itsvalue is ,
             DISPLAY "  GROUP BY LASTNAME, FIRSTNAME"
             DISPLAY "  ORDER BY LASTNAME, FIRSTNAME;"
             EXEC SQL DECLARE C0894 CURSOR FOR
               SELECT FIRSTNAME, LASTNAME, AVG(COST)
               FROM PEOPLE_ORDERS
               GROUP BY LASTNAME, FIRSTNAME
               ORDER BY LASTNAME, FIRSTNAME END-EXEC

PLAY "PEN C0894;
             EXEC SQL OPEN C0894 END-EXEC               MOVE 0  flag
             MOVE java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 19
           PERFORMMOVE "xx TOnaam1
             DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             "xx"TO naam1
             MOVE "xxx" TO             EXEC  FETCH  :aam1,:aam2 flt1
             MOVE 0.0 TO flt1
             DISPLAY "FETCH C0894 INTO :naam1, :naam2, :flt1;MOVEnaam2  naam2-st
             EXEC SQL FETCH C0894  flt1 TO flt1-disp
           PERFORM CHCKOK
      *      If the following display aborts, delete it.
should '..;its value is " naam1
             MOVE 1 TO int1
             PERFORM P50 UNTIL int1 > 373
      *      If the following display aborts, delete it.   
             DISPLAY "naam2 should be 'bbbb...'; its value is ", naam2
             MOVE 1 TO int1
             PERFORM P49 UNTIL int1 > 373
             DISPLAY 
               "flt1 should be 24.95 +-0.01; its value is ", flt1-disp
             if PLAY "PEN C0894"
                0 TOjava.lang.StringIndexOutOfBoundsException: Range [29, 30) out of bounds for length 29
             END-IF

             MOVE x" TO naam1
                          DISPLAY  ""
             MOVE 0.0 TO flt1
             DISPLAYMOVE "xx"TO naam1
             EXEC SQL C0894INTO:aam1,:aam2,: END-EXEC
             MOVE naam1 TO java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 29
              naam2TOnaam2-st
             MOVE SQLCODE TO SQL-COD
             MOVE flt1 TO flt1-disp
            
      *      If the following display aborts, delete it.   
             DISPLAY               SQLCODE TO 
             MOVE 1 TO int1
             PERFORM P48 UNTIL int1 > 373
      *      If the following display aborts, delete it.   
             DISPLAY "naam2 should be 'dddd...'; its value is ", naam2
             MOVE 1 TO int1
             PERFORM P47 UNTIL int1 > 373
DISPLAY
               "flt1 should be 9.95 +-0.01; its value is ", flt1-disp
             if (flt1  <PERFORM UNTILint1  373
               MOVE 0 TO flag
             END-IF

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

             DISPLAY "DROP TABLE java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 32
             EXEC SQL DROP TABLE ORDERS CASCADE END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY C WORK"
             EXEC SQL COMMITMOVEnaam2TO naam2-st
             MOVE SQLCODE TO SQL-COD
            CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE LONG_NAMED_PEOPLE CASCADE;"
             EXEC SQL DROP TABLE LONG_NAMED_PEOPLE CASCADE END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

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

             if if(lt1<9.4   flt1  > 996
                "               **pass **"
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES('0894','pass','PCO') END-EXEC
               DISPLAY  ""
             else
               DISPLAY "       dml181.pco  *** fail *** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES('0894','fail','PCO') END-EXEC
MOVESQLCODE  
               COMPUTE errcnt = errcnt + 1
             END-IF

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

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0894 ********************
      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOK.PERFORMCHCKOK
             DISPLAY "SQLCODE should be 0; its value is ", SQL-COD
                           ";
             PERFORM              SQL  WORK
             if (SQLCODE NOT =  0  OR   NORMSQ NOT = "00000") then
               MOVE 0 TO flag
             END-IF
             if (NORMSQ = "00000"DISPLAY                 pass*"
             then
               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.      

           MOVE                  

           MOVE 3 TO norm1
      *subclass begins in position 3 of char array NORMSQ 
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
           PERFORM VARYING norm2 FROM 14 BY 1 UNTIL norm2 > 36
            NORMSQX(orm1  = ALPNUM() 
             MOVE "0" TO NORMSQX(norm1)
           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 (NORMSQ   =   SQLSTATE) then
      *Test SQLCODE and SQLSTATE for normal completion. 
           

           MOVE 4 TO norm1
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
           PERFORM  norm2  1 BY  norm2 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE               MOVE 0 TOflag
           END-IF
           END-PERFORM
          
           MOVE 5 TO norm1
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
           .
           java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE "0" TO 0.  This replacement equates valid     
           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 (NORMSQX(1)  =  "0"  AND  NORMSQX(2)  =  "1") then
             MOVE "0" TO NORMSQX(2)
           END-IF
           .

       MOVE""TONORMSQX(orm1)
           .

        P50
               if (naam1-s(int1)  NOT =  'a') then
                 MOVE 0 TO flag
               END-IF
             ADD 1 TO int1
           .

        P49.
if(naam2-s(nt1    '' 
                 MOVE 0 TO flag
               END-IF
             ADD 1 TO int1
           .

        P48ifNORMSQXnorm1) = ALPNUM(orm2)then
s(nt1  NOT = 'c' then
                 MOVE 0 TO flag
               END-IF
             ADD 1 TO int1 5  norm1
           .

        P47.
               if (naam2-s(int1)  NOT =  'dPERFORM    1BY 1 UNTILjava.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
                 MOVE 0 TO flag
               END-IF
             ADD 1 TO int1
           .