IDENTIFICATION DIVISION.
       PROGRAM-ID.  XTS725.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  java.lang.StringIndexOutOfBoundsException: Range [0, 28) out of bounds for length 22
       DATA DIVISIONjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "XTS725.PCO")


      *Copyright 1995 National Computing Centre Limited               
      *and Computer Logic R&D S.A                                     
      *on behalf of the CTS5 SQL2 Project.                            
      *All rights reserved.                                          
      *The CTS5 SQL2 Project is sponsored by the European Community. 
      *                                                             
      *The National Computing Centre Limited and Computer Logic R&D  
      *have given permission to NIST to distribute this program      
      *over the World Wide Web in order to promote SQL standards.    
      *DISCLAIMER:                                                   
      *This program was reviewed by employees of NIST for            
      *conformance to the SQL standards.                             
      *NIST assumes no responsibility for any party's use of         
      *this program.                                                 


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * SQL VALIDATION TEST SUITE V6.0                               
      *                                                              
      * XTS725.PCO                                                   
      * WRITTEN BY: Nickos Backalidis                                
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * Flagging, Full SQL INSENSITIVE cursor                        
      *                                                              
      * REFERENCES                                                   
      *   13.1    -- <declare cursor>                                
      *   13.2    -- <open statement>                                
      *   13.3    -- GR.3.e.i                                        
      *   F#79    -- Insensitive cursors                             
      *   F#37    -- Intermediate SQL Flagging                       
      *                                                              
      * DATE LAST ALTERED  14/12/95 CTS5 Hand-over Test              
      *                                                              
      * Cleanups and fixes by V. Kogakis 04/12/95:                   
      *      Change in the values of rows inserted in the table      
      *                                                              
      * QA Status: QA check                                          
      *                                                              
      * Revised by DWF 1/30/96                                       
      *   Removed status checks after cursor definition              
      *   Fixed char string lengths                                  
      ****************************************************************



           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  c_num1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  c_num2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  c_ch1 PIC  X(10).
       01  c_ch2 PIC  X(10).
             EXEC SQL END DECLARE SECTION END-EXEC
       01  norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE VALUE IS
               "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
           05  ALPNUM PIC X OCCURS 36 TIMES.
       01  NORMSQ.
           05  NORMSQX PIC X OCCURS 5 TIMES.
       01  errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
       01  flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       PROCEDURE DIVISION.
       P0.

             MOVE "CTS1              " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
             EXEC SQL SELECT USER INTO :uidx FROM CTS1.ECCO END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL ROLLBACK WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =   uidx) then
               DISPLAY "ERROR: User ", uid, " expected.  User ", uidx, "
      -    " connected"
            STOP RUN
             END-IF
             MOVE 0 TO errcnt

             DISPLAY "SQL Test Suite, V6.0, Embedded COBOL, xts725.pco"
             DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME

      ******************** BEGIN TEST7025 *******************
             MOVE 1 TO flag

             DISPLAY "                 TEST7025"
             DISPLAY "    Flagging - Full SQL INSENSITIVE cursor"
             DISPLAY "References"
             DISPLAY "    13.1    -- <declare cursor> "
             DISPLAY "    13.2    -- <open statement> "
             DISPLAY "    13.3 GR.3.e.i "
             DISPLAY "    F#79    -- Insensitive cursors "
             DISPLAY "    F#37    -- Intermediate SQL Flagging "
             DISPLAY "   - - - - - - - - - - - - - - - - - - -"

      *Initialise error reporting variables 
             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *Use standard schema table CTS1.CL_STANDARD        
      *declare an insensitive cursor based on columns of 
      *CTS1.CL_STANDARD                                  
             DISPLAY "DECLARE CLCURS INSENSITIVE CURSOR"
             DISPLAY "FOR SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2"
             DISPLAY "FROM CL_STANDARD"
             DISPLAY "ORDER BY COL_NUM1 DESC;"
             EXEC SQL DECLARE CLCURS INSENSITIVE CURSOR 
               FOR SELECT COL_NUM1, COL_CH1, COL_NUM2,COL_CH2
               FROM CL_STANDARD
               ORDER BY COL_NUM1 DESC END-EXEC

             DISPLAY "OPEN CLCURS;"
             EXEC SQL OPEN CLCURS END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *NOW insert a row in CL_STANDARD  
             DISPLAY "INSERT INTO CL_STANDARD
      -    " VALUES(1005,'KEVIN',4005,'XIOS');"
             EXEC SQL INSERT INTO CL_STANDARD 
               VALUES(1005,'KEVIN',4005,'XIOS') END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *initialise host variables 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO c_num2

      *use a select <statement: single row> and determine 
      *that the row was inserted and is visible           
             DISPLAY "SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 "
             DISPLAY "INTO :c_num1, :c_ch1, :c_num2, :c_ch2 "
             DISPLAY "FROM CL_STANDARD WHERE COL_NUM1 = 1005;"
             EXEC SQL SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 
               INTO :c_num1, :c_ch1, :c_num2, :c_ch2
               FROM CL_STANDARD WHERE COL_NUM1 = 1005 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should be 1005;   it is : ", c_num1
             DISPLAY "COL_CH1  should be KEVIN;  it is : ", c_ch1
             DISPLAY "COL_NUM2 should be 4005;   it is : ", c_num2
             DISPLAY "COL_CH2  should be XIOS;   it is : ", c_ch2
             if (c_num1  NOT =  1005  OR  c_ch1  NOT  =   "KEVIN"  OR 
             c_num2  NOT =  4005) then
               MOVE 0 TO flag
             END-IF
             if (c_ch2  NOT  =   "XIOS") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *re-initialise host variables 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO c_num2

      *now start fetching rows from CL_STANDARD 
             DISPLAY "FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2,
      -    " :c_ch2;"
             EXEC SQL FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2, :c_ch2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
      *since the cursor is declared insensitive with cursor  
      *specification ORDER BY DESC the last row will be      
      *returned first however if the inserted row is visible 
      *through the cursor then record a NOGO                 
             DISPLAY "COL_NUM1 should be 1004;  it is ", c_num1, " "
             DISPLAY "COL_CH1  should be MORRIS;it is ", c_ch1, "  "
             DISPLAY "COL_NUM2 should be 4004;  it is ", c_num2, " "
             DISPLAY "COL_CH2  should be PARGA; it is ", c_ch2, " "
      *check if the inserted row is visible through           
      *the cursor proceed if not record a NOGO if it is       
             if (c_num1  NOT =  1004  OR  c_ch1  NOT  =   "MORRIS"  OR 
             c_num2  NOT =  4004)  then
               MOVE 0 TO flag
             END-IF
             if (c_ch2  NOT  =   "PARGA") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *re-initialise host variables 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO c_num2

      *fetch second row 
             DISPLAY "FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2,
      -    " :c_ch2;"
             EXEC SQL FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2, :c_ch2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should be 1003;   it is ", c_num1, " "
             DISPLAY "COL_CH1  should be GEORGE; it is ", c_ch1, "  "
             DISPLAY "COL_NUM2 should be 4003;   it is ", c_num2, " "
             DISPLAY "COL_CH2  should be ARTA;   it is ", c_ch2, " "
             if (c_num1  NOT =  1003  OR  c_ch1  NOT  =   "GEORGE"  OR 
             c_num2  NOT =  4003) then
               MOVE 0 TO flag
             END-IF
             if (c_ch2  NOT  =   "ARTA") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *re-initialise host variables 
             MOVE       IDENTIFICATIONDIVISION.
             MOVE "       ENVIRONMENT DIVISIONCONFIGURATION .
              0  c_num1
java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 29

      *fetch third row 
                   *                                                             
      -    " :c_ch2;"
             EXEC      *This program was reviewed by employees of NIST for            
      *this program.                                                 
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should              DISPLAY "COL_NUM1 should be                             
             DISPLAY "COL_CH1  should be MAKIS;  it is ",      *                                                              
             DISPLAY "COL_NUM2 should be 4002;   it is ", c_num2, " "
             DISPLAY "COL_CH2      *                                                              
             if (c_num1  NOT =  1002  OR  c_ch1        * REFERENCES                                                   
                   *   F#37    -- Intermediate SQL Flagging                             *                                                              
               MOVE 0 TO flag      *                                                              
             END-IF
             if (c_ch2  NOT  =         *   Fixed char string lengths                                  
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *re-initialise host variables 
             MOVE "xxxxxxxxxx" TO c_ch1
 c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO       01SQLSTATEPIC X5).

      *fetch fourth row 
             FETCH CLCURS INTOc c_ch1, :c_num2java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
      -    " :c_ch2;"
             EXEC SQL FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2, :c_ch2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
              COL_NUM1shouldbe1001    is"," java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
             DISPLAY "COL_CH1  should be MARIA01norm1 PIC ()DISPLAYSIGNLEADING SEPARATE.
             DISPLAY "COL_NUM2 should be 4001;   it is ", c_num2, " "
             DISPLAY "COL_CH2  should be RHODES; it is ", c_ch2, " "
             01  ALPNUM-TABLE IS
             c_num2  NOT EFGH56789IJKLMNOPQRSTUVWXYZjava.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
               MOVE01NORMSQ.
             
             if ( 01  errcntPICS9)DISPLAYSIGN SEPARATE.
               MOVE 0 TO flag
             END-IF
DISPLAY   java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

      *re-initialise host variables 
             MOVE "xxxxxxxxxx" TO java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 10
             MOVE " TO 
0 java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             MOVE 0 TO              MOVE SQLCODE

      *fetch fifth row 
             DISPLAY "FETCH CLCURS INTO":  , ,
- java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 21
EXEC :num1c_ch1 c_num2 c_ch2
             END-EXEC
             TO
           PERFORM CHCKOK
             DISPLAY       *date_time print 
             DISPLAY "COL_CH1  should be java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 36
DISPLAYC be4000   is,c_num2,""
             DISPLAY "COL_CH2  should be ATHENS; it is ", c_ch2, " "
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             NOT)then
                            "TEST7025"java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
             
             if    2-openjava.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 55
 flag
             END-IF
             DISPLAY  " "

      *end fetches 
      *close the cursor and open it again. If the vendor      
      *supports the extension then the inserted row should be 
      *now visible through the cursor                         

             DISPLAY "CLOSE CLCURS;"
             EXEC SQL CLOSE
             MOVE SQLCODE TO SQL-COD

             DISPLAY  " "

      *open the cursor again 
             DISPLAY "OPEN CLCURS4005,'XIOS')"
             EXECSQL  CLCURS
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *now fetch and check if the inserted row is visible 
      *initialise host variables 
             MOVE "xxxxxxxxxx" TO java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 0
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0              MOVE "xxx"TO java.lang.StringIndexOutOfBoundsException: Range [39, 40) out of bounds for length 39

             DISPLAY      *use a select <statement: single row> and determine 
      -    " :c_ch2;"
             EXEC SQL FETCH             DISPLAY "SELECT COL_NUM1,COL_CH1,COL_NUM2,COL_CH2 "
             END-EXEC
             MOVE SQLCODE TOSQL-COD
            CHCKOK
      *since the cursor is declared insensitive with cursor  
      *specification ORDER BY DESC the last row will be      
      *returned first 
d bebe 1005    is"   "
             DISPLAY            CHCKOK
DISPLAY"should4005    is"c_num2 ""
             DISPLAY "             DISPLAY "COL_CH1 "   be;     ,c_ch1
      *check if the inserted row is visible through the cursor
      *proceed if not record a NOGO if it is                  
             if (c_num1  NOT =  1005  OR  c_ch1  NOT  =   "KEVIN"  OR 
c_num2=4005 java.lang.StringIndexOutOfBoundsException: Range [38, 39) out of bounds for length 38
                              MOVE
             END-IF
       java.lang.StringIndexOutOfBoundsException: Range [40, 38) out of bounds for length 45

             END-IF
             DISPLAY  " "

      *fetch remaining 5 rows, initialising before the host variables 
             MOVE
             MOVE DISPLAY"ETCHCLCURS INTO:java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 65

             MOVE 0              
             DISPLAY "FETCH CLCURS           CHCKOK
            *specification ORDER BY DESC the last row will be      
EXEC CLCURS: c_ch1 c_num2 c_ch2
             END-EXECshould it" c_ch1,   java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             MOVE SQLCODE TO SQL-COD
            CHCKOK
             DISPLAY "COL_NUM1 should be 1004;  it is ", c_num1, " "
             DISPLAY "COL_CH1  should be      MORRIS"OR
             DISPLAYc_num2  NOT =  )then
              "OL_CH2  should be PARGA;itis"   java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
             ifif(       PARGA)then
             c_num2  NOT =  4004) then
               MOVE 0 TO flag
             END-IF
             if (c_ch2                ""TOjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
               MOVE 0 TO  0TO
             END-IF
             DISPLAY  " "

      *4 remaining 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE             
                        PERFORM C
      -    " :c_ch2;"
             EXEC SQL FETCH             DISPLAY "OL_CH1   be   ,   "
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should be  1003;   it is ", c_num1, " "
             DISPLAY "COL_CH1  should be  GEORGE; it is ", c_ch1, "  "
             DISPLAY "COL_NUM2 should be  4003;   it is ", c_num2, " "
             DISPLAY "COL_CH2  should be  ARTA;   it is ", c_ch2, " "
             if (c_num1  NOT =  1003  OR  c_ch1  NOT  =   "GEORGE"  OR 
             c_num2  NOT =  4003) then
               MOVE 0 TO flag
             END-IF
             if (c_ch2  NOT  =   "ARTA") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *3 remaining 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO c_num2
             DISPLAY "FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2,
      -    " :c_ch2;"
             EXEC SQL FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2, :c_ch2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should be 1002;   it is ", c_num1, " "
             DISPLAY "COL_CH1  should be MAKIS;  it is ", c_ch1, "  "
             DISPLAY "COL_NUM2 should be 4002;   it is ", c_num2, " "
             DISPLAY "COL_CH2  should be HANIA;  it is ", c_ch2, " "
             if (c_num1  NOT =  1002  OR  c_ch1  NOT  =   "MAKIS"  OR 
             c_num2  NOT =  4002) then
               MOVE 0 TO flag
             END-IF
             if (c_ch2  NOT  =   "HANIA") then
               MOVE 0 TO flag
             END-IF
             DISPLAY  " "

      *2 remaining 
             MOVE "xxxxxxxxxx" TO c_ch1
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE 0 TO c_num2
             DISPLAY "FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2,
      -    " :c_ch2;"
             EXEC SQL FETCH CLCURS INTO :c_num1, :c_ch1, :c_num2, :c_ch2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "COL_NUM1 should be 1001;   it is ", c_num1, " "
             DISPLAY             DISPLAY "OL_NUM2  4003;   it is ", c_num2, " "
DISPLAY COL_NUM2should 4001;   is" c_num2  java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
             DISPLAY "COL_CH2  should be RHODES; it is ", c_ch2, " "
             if (c_num1  NOT                MOVE   flag
               NOT=4001 then
               MOVE 0 TO flag
                "
             if (c_ch2  NOT  =   "RHODES") then
               MOVE 0              MOVE "xxxxx java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 39
             END-IF
             ""

      *1 remaining 
             MOVE "java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 21
             MOVE "xxxxxxxxxx" TO c_ch2
             MOVE 0 TO c_num1
             MOVE   
             DISPLAY "FETCH CLCURS INTO :              C be ;   it is " c_num1,""
      -   "cch2;java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
             EXEC SQL FETCH  c_num1,cch1 :_ :_h2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
            
             DISPLAY "COL_NUM1                  4002)
             DISPLAY "COL_CH1  should be NICKOSjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 19
             DISPLAY "COL_NUM2 should be 4000;   it is ", c_num2, " "
             DISPLAY "COL_CH2  should                java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             if (c_num1  NOT =  1000  OR  c_ch1
             c_num2              0TOc_num2
               DISPLAY"ETCHCLCURS INTO :num1,:_,:_um2,
             ND-IF
             if (c_ch2  NOT  =   "ATHENS") then
               MOVE 0 TO flag
             END-IF
             DISPLAY             " be 1001;  it is" ," java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69

      *end fetches 
      *now close the cursor 
             "LOSE CLCURS;java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             EXEC SQL CLOSE CLCURS END-EXEC
             MOVE TO
            
             DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

      *restore table CL_STANDARD in its original state 
             DISPLAY "ROLLBACK WORK               ""
             EXEC SQL      *re-initialise host variables 
             MOVE SQLCODE  SQL-COD
           PERFORM              MOVE 0 TO0 TO c_num1
             DISPLAY

      *record results 

             if(  = 1 )then
               DISPLAY "       xts725.pco  *** pass *** "
               EXEC SQL INSERT INTO CTS1DISPLAY"OL_NUM1  1000   is"   java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
                 VALUES('7025','pass','PCO') END-EXEC
               MOVE SQLCODE TO SQL-COD
               DISPLAY " extension  cursor java.lang.StringIndexOutOfBoundsException: Range [65, 66) out of bounds for length 65
      -    " successfully"
               DISPLAY "Vendor must demonstrateEND-IF
      -    " WARNING"
             else
               DISPLAY             ""
               EXEC SQL INSERT INTO 
                 VALUES('7025','NOGO','PCO') END-EXEC
               MOVE SQLCODE TO SQL-COD
"Vendor does not support  "
                             SQL  CLCURS
               DISPLAY "Support for Insensitive cursors is             
             END-IF

             DISPLAY "============================             SQL  CLCURS 

      *BAK : Check again in order to insert a third option for fail 
      *DWF: ??? 

             EXEC             MOVE""TOc_ch1
             MOVE SQLCODE              MOVE 0 TO c_num

      ******************** END TEST7025 ********************

      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
            RUN

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOK.
             DISPLAY "SQLCODE should be 0; its valueDISPLAY "OL_NUM1be1005;  is",""
DISPLAY "QLSTATE shouldbe00000;itsvalue  , SQLSTATE
 EXIT-NOSUBCLASS
             if (SQLCODE NOT =  0  OR   NORMSQ NOT = "00000ch2,""
               MOVE 0 TO flag
             END-IF
             if (NORMSQ = "             c_num2   = 4005 then
             then
               DISPLAY "             if (c_ch2  NOT  XIOS" 
             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 SQLSTATE TO NORMSQ

           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 norm236
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
QX(orm1
           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   =                 (_um1  NOT = 1004  OR    NOT     "ORRIS" OR 
              TO EXIT-NOSUBCLASS
           END-IF

           MOVE 4 TO norm1
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
 norm21BY >36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TOMOVE SQLCODE  SQL-COD
java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
           DISPLAYbe4003;is" c_num2, ""
          
           MOVE              "OL_CH2should be  ARTA;   it is ", c_ch2, " "
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
           PERFORM VARYING norm2 FROM 1 BY              END-IF
           if (NORMSQX(norm1)  =  ALPNUM(norm2))MOVE  TOflag
             MOVE "0" TO NORMSQX(java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 25
           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 

  AND  NORMSQX(2) = 1")then
- java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 21
           END-IFEND-EXEC
           .

       EXIT-NOSUBCLASS.
           EXIT