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


      * 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            
      *                            
      ****************************************************************




      *                            
       01  SQLCODE      * WRITTEN BY:  David Flater  
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
       01  int1 PIC S9      *   FIPS PUB 127-2 14.2 Intermediate SQL                       
       01  naam1 PIC X(373).

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC       01  flt1 PIC S94V9(4  SIGN  SEPARATE.
       01  flt1-disp PIC -----.9999.
       01  naam1-st.
           05  01  flt1-disp ---9999.
       01  naam2-st.
05  naam2-s PICX OCCURS 373 .
       01  norm1 PIC S9(9) DISPLAY java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 20
       01norm2  (9)DISPLAYSIGN LEADING SEPARATEjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
       01  ALPNUM-TABLE VALUE IS
               "1234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ"
           05  ALPNUM PIC X OCCURS 36 TIMES.
       01  NORMSQ.
05  NORMSQX PICX OCCURS 5TIMESjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
       01  errcnt PIC S9(9) DISPLAY SIGN java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 44
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC98.
       01  flag PIC S9(9)       *date_time declaration 

       01  SQL-COD01THE-TIMEPIC98.

       PROCEDURE DIVISION.
       P0.

             MOVE "FLATER            " TO uid
              "AUTHID"USINGuid
             MOVE
             EXEC SQL SELECT        .
             MOVE SQLCODETO SQL-COD
             EXEC SQL ROLLBACK WORK             CALLAUTHID  uid
             MOVE SQLCODE TO SQL-COD
if(       uidx)then
               DISPLAY "ERROR: User ", uid, " expected.  User ", uidx, "
-     connected
            STOP RUN
             END-IF
             MOVE              uid     )then

             DISPLAY
           "SQL Test Suite, V6.0 -"connected
             
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           ACCEPT THE-TIME FROM TIME
           DISPLAY "aterun :"TO-DAY" at hhmmssff:"THE-TIME

      ******************** BEGIN TEST0894 *******************
  MOVE 1  flag

             DISPLAY "              FIPS sizing TEST0894"
             DISPLAY "   FIPS , length ofcolumn lists > "
             DISPLAY "References:"
             DISPLAY "FIPS 16.6 -- Sizing
             DISPLAY "              1TO flag
      -    " list"
             DISPLAY "FIPS 16.6 -- Sizing #33, Length of ORDER BY column
      -    " list"
             DISPLAY "FIPS 16.6 -- Sizing #35, Length of FOREIGN KEY
-    " list"
             DISPLAY "FIPS 16.6 -- Sizing #40, Length of JOIN column
      -    " list"
             DISPLAY " FIPS 5.3 -- Format of              "IPS.-Sizing29,Length  columns
      -    " literal >"
             DISPLAY "   - - - -       "list"

             COMPUTE SQLCODE = -1
             MOVE              "IPS 16. -Sizing #5  of KEY

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

          "column "
             DISPLAY "  FIRSTNAME VARCHAR (373),"
               LASTNAME (373)"
             DISPLAY "  AGE INT,"
             DISPLAY              list"
             SQLCREATE LONG_NAMED_PEOPLE(
               FIRSTNAME VARCHAR (373),
               LASTNAME VARCHAR (373),
               AGE,
               PRIMARY KEY (FIRSTNAME, LASTNAME)) END-EXEC
SQL-COD
           PERFORM CHCKOK
               ""

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

             DISPLAY "CREATE TABLE ORDERS ("
             DISPLAY "  FIRSTNAME VARCHAR (373),"
             DISPLAY "  LASTNAME VARCHAR             DISPLAY   PRIMARY KEY (,LASTNAME);
             DISPLAY "  TITLE VARCHAR (80),"
             DISPLAY "  COST NUMERIC(                VARCHAR373,
             DISPLAY "FOREIGN KEY (,LASTNAME)java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
             DISPLAY "    REFERENCES LONG_NAMED_PEOPLE);"
             EXEC SQL CREATE TABLE ORDERS (
               FIRSTNAME VARCHAR            PERFORM CHCKOK
               LASTNAME VARCHAR (373),
               TITLEVARCHAR()java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
               COST NUMERIC(5,2),
               FOREIGNKEY (IRSTNAME LASTNAME
               REFERENCES LONG_NAMED_PEOPLE) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM
             DISPLAY""

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             DISPLAY   FIRSTNAMEVARCHAR (73)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
           PERFORM CHCKOK
             DISPLAY  " "

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

              "REATE VIEW PEOPLE_ORDERS AS"
             DISPLAY "  SELECT * FROM LONG_NAMED_PEOPLE JOIN ORDERS             DISPLAY "   LONG_NAMED_PEOPLE;
             DISPLAY "  USING (FIRSTNAME, LASTNAME)                 ,
             EXEC SQL CREATE                  ()
               SELECT * FROM LONG_NAMED_PEOPLE JOIN ORDERSFOREIGN FIRSTNAME,)
               USING (FIRSTNAME, LASTNAME) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM                ""
             DISPLAY  " "

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

             DISPLAY "INSERT INTO LONG_NAMED_PEOPLE VALUES ("
             
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

             DISPLAY
             "'             DISPLAY " FIRSTNAME,LASTNAME)"
      -      "aaaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa"
                          MOVE SQ TOSQL-COD
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaDISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
      -      "aaaaaaa'"
             DISPLAY
             "'java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
      -      "aaaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
DISPLAY "aaaaaaaaaaaaaaaaaaaaaaaaa,"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      ""'aaaaaaaa
             DISPLAY      aaaaaaa"
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"
      -      "bbbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbbb'"
       DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
      -      "bbbbbbb'"
             DISPLAY 'bbbbbbbbbbbbbbbbbbbbbbbbb',"
             DISPLAY "20);"
             EXEC SQL INSERT INTO LONG_NAMED_PEOPLE              bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
        "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
        aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
        ''
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
        '             
        'bjava.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
        'java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 20
        'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
        'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
        ' "'
        'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
        '',
               20) END-EXEC
             MOVE              )java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
           PERFORM CHCKOK
             DISPLAY  " "

        ''
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
            
             "'ccccccccccccccccccccccccccccccccccccccccccccccccccbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
  ccccccc"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "        '
             DISPLAY
             "'             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY "'ccccccccccccccccccccccccccccccc',"DISPLAY   
             DISPLAY "NSERT INTO   (
             ddddddddddddddddddddddddddddddddddddddddddddd
      -      ""'cccccccc
                    ccccccc"
             "'ddddddddddddddddddddddddddddddddddddddddddddddddddcccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ddddddd'"
             DISPLAY
             "'
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'            "cccccc
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
            DISPLAY "ddddddddddddddddddddddddddddddd,
             DISPLAY "25);"
             EXEC SQL INSERT"d
         ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
          'java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 20
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc-     "'"
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc'
          'java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 20
          'ccccccccccccccccccccccccccccccc',
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd"dddddddddddddddddddddddddddddddddddddddddddddddddd
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddd',
               25)END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccjava.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
             DISPLAY
             "'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddjava.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
      -      "aaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY
aaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'               25) END-EXEC
DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -'java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY "'aaaaaaaaaaaaaaaaaaaaaaaa"
             "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'"'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "bbbbbb'"
                          "
            aaaaaa'
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "'
      -      "bbbbbb'"
             DISPLAY "'bbbbbbbbbbbbbbbbbbbbbbbbb',"
             DISPLAY "'Gidget Goes Skiing',"
             DISPLAY "29.95);"
             EXEC SQL INSERT "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbjava.lang.StringIndexOutOfBoundsException: Range [67, 68) out of bounds for length 67
         'java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
        aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
         DISPLAY
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         '             b
         'java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 22
         ''
         'java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 22
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"'
         'java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 22
        bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
         'DISPLAY "GGoes'java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
         'Gidget Goes Skiing',
               29.95) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM           '
             DISPLAY   "

             DISPLAY "INSERT INTO ORDERS VALUES ("
             DISPLAY
             "''aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaaa'"
             
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
      -      "aaaaaa'"
             DISPLAY
             'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      "aaaaaa'
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "aaaaaa'"
             DISPLAY
             "'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "             MOVE  SQL-COD
            CHCKOK
             DISPLAY
             b
      -      "bbbbbb'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      "bbbbbb'"
             DISPLAY
             "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      
             "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
             "''aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
      -      "bbbbbb'"
             DISPLAY
             "'
                  "aaaaa'
             DISPLAY
             "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
      -      -     "aaaaa'"
             DISPLAY "'bbbbbbbbbbbbbbbbbbbbbbbbb',"
             DISPLAY "Barney  Hawaiian,java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
             DISPLAY "            aaaaaa"
             DISPLAY"'aaaaaaaaaaaaaaaaaaaaaaaa'"
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
         '"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
         'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaajava.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
         'java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
         'aaaaaaaaaaaaaaaaaaaaaaaaa',             DISPLAY
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
         DISPLAY
         '',
         'Barney Goes Hawaiian',
               19.95) END-EXEC
             MOVEDISPLAY ''"
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO ORDERS VALUES ("
             
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             cccccccccccccccccccccccccccccccccccccccccccccccccc
         a'
                      aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY
             "         'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
      -      "ccccccc'"
             DISPLAY
             "'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'
      -      "ccccccc'"
             DISPLAY
             "'cccccccccccccccccccccccccccccccccccccccccccccccccc
      -      "ccccccc'"
             DISPLAY "'ccccccccccccccccccccccccccccccc',"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 25
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
     -""
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "ddddddd'"
             DISPLAY
             "'dddddddddddddddddddddddddddddddddddddddddddddddddd
      -      "dddddd'"
             DISPLAY "'ddddddddddddddddddddddddddddddd',             '
             DISPLAY "'Invasion of the Smurfs',"
             "'ccccccccccccccccccccccccccccccccccccccccccccccccc
            SQLINSERT ORDERS VALUES(
          cccccccccccccccccccccccccccccccccccccccccccccccc
                       'cccccccccccccccccccccccccccccccccccccccccccccccccc
          ''
          'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc '',"
          DISPLAY
          'java.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 69
          ccccccccccccccccccccccccccccccc
          'java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 20
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'
                       "'
''
          'ddddddddddddddddddddddddddddddddddddddddddddddddddddddddd'            
          'dddddddddddddddddddddddddddddd
          'Invasion of the Smurfs',
               9.95) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE C0894 CURSOR FOR"
             DISPLAY "  SELECT DISPLAY "'ddddddddddddddddddddddddddddddd',"
             DISPLAY "  FROM PEOPLE_ORDERS"
             DISPLAY "  GROUP BY LASTNAME, FIRSTNAME"
             DISPLAY "  ORDER BY LASTNAME, FIRSTNAME;"
             EXEC SQL DECLARE C0894 CURSOR FOR
               SELECT FIRSTNAME,''
                         '
               GROUP BY LASTNAME, FIRSTNAME
               ORDER BY LASTNAME, FIRSTNAME  ''

             ccccccccccccccccccccccccccccccc,
             EXEC SQL OPEN C0894 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             'dddddddddddddddddddddddddddddddddddddddddddddddddddddddd
             MOVE "xxx" TO naam2
             MOVE 0.0 TO flt1
             DISPLAY "ETCH C0894INTO :aam1,naam2,:;
             EXEC SQL995)
             MOVE naam1 TO naam1-st
              TOnaam2-st
MOVE TO java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             MOVE 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
           .