*      *                                                                    * XOP719.PCO                                                    
             *       SECTION 5.3.9                                          
             * DATE PROGRAM LAST CHANGED   1/11/94                         
       java.lang.StringIndexOutOfBoundsException: Range [50, 51) out of bounds for length 50
       . 
       01 norm2 PIC S9 S9java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 57
       DATA 
       java.lang.StringIndexOutOfBoundsException: Range [12, 8) out of bounds for length 51

      * Embedded SQL COBOL (file "XOP719.PCO")

      *   Copyright 1994, 1995 X/Open Company Limited  

      *   All rights reserved.                                          
                                                              
      *   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.                                                 

      *   X/Open and the 'X' symbol are registered trademarks of X/Open Company
      *   Limited in the UK and other countries.


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1994/05/05 EMBEDDED C LANGUAGE                          
      * X/Open SQL VALIDATION TEST SUITE V6.0                  
      *                                                              
      * XOP719.PCO                                                    
      * WRITTEN BY: E. Pratt                                         
      *                                                              
      * GRANT ALL with optional PRIVILEGES omitted.                  
      *                                                              
      * REFERENCES                                                   
      *       X/Open CAE SQL                                         
      *       SECTION 5.3.9                                          
      *                                                              
      *                <embedded SQL C program>                      
      *                                                              
      * DATE PROGRAM LAST CHANGED   1/11/94                         
      *                                                              
      ****************************************************************

      *Must be run under authorization identifier XOPEN2

      *This test program must be run before xop720.pco, 
      *xop721.pco, xop722.pco, xop723.pco 

            java.lang.StringIndexOutOfBoundsException: Range [20, 18) out of bounds for length 70
01java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 34
       01DISPLAY GRANTALLON  PIC)
01  HCV  X.
       01  ch1 PIC  X(2).
       01          "*. TO ;java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
       01  uidx PIC             DISPLAY "** ALLON . XOPEN3java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
             EXEC   

       01  errcntjava.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
      *date_time declaration 
       01  TO-DAY PIC 9(01norm2    java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
         java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 29
         PIC             Ajava.lang.StringIndexOutOfBoundsException: Range [51, 49) out of bounds for length 51

      *variables for nosubclass routine 

       01         SQLS2SQLSTORE
         PIC S99) DISPLAY SIGN java.lang.StringIndexOutOfBoundsException: Range [0, 47) out of bounds for length 42
01flag (4 SIGN.
       01  ALPNUM VALUE ISjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
            "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
05  PICX   .
       01  SQLSTORE PIC X(5).
       01  SQLS2 REDEFINES SQLSTORE              INSERTINTO XOPEN1AAAVALUES('AG' 'AH' 'I)
            05 NORMSQ PIC              MOVESQLCODE TO SQL-COD
    (.


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

       PROCEDURE EXEC SQL INSE. '' BH,BI)
       P0.


      *Log on as user XOPEN2 
MOVEX"TOuid
             CALL "AUTHID                BBB (','''L)
             MOVE "not              SQLCODE  java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36
             SQLSELECTUSER : XOPEN1ECCOEND-EXEC
             MOVE SQLCODE TO SQL-COD
ifuidNOT  =   uidx) then
                "RROR:User "uid"expected  User ,uidxjava.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70

             STOP RUN
             END-IF
             MOVE 0 TO errcnt
              "/PEN SQL Test Suite,V6. Embedded 
      -            "COBOL, xop719.pco"       
             DISPLAY
           "59-byte               SQLCODE  SQL-COD
             DISPLAY "TEd Version #"
      *date_time print 
            "==============="
           ACCEPT THE-TIME       *Grantor holds all privileges, but has grant option       *only for SELECT and CREATE 
 Drun       THE-TIME

VE "" TOHCV

      ******************** BEGIN TEST0719 *******************

           DISPLAY               
           DISPLAY " xop721.pco, xop722.pco, xop723.pco "


           DISPLAY "                     TEST0719             "
           DISPLAY "              (NORMSQ2    =  00000"  0 
           DISPLAY  /
           DISPLAY "===================="
           DISPLAY "*** GRANT ALL ON XOPEN1.      *Grantor holds SELECT, INSERT, DELETE with GRANT OPTION, 
           DISPLAY "***       GRANT OPTION;"
            ** GRANTXOPEN1BBB "
           DISPLAY "*** SELECT B2 INTO :              SQLCODE  
           PERFORM 
              (  NOT="0000"ORSQLCODENOT  ) 
           DISPLAY               DISPLAY ** found(ESTSTEPNUMBER2  * java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70

      *GRANT ALL with optional PRIVILEGES omitted, grantor 

             MOVE 0 TO errflg
             MOVE 1 TO flag

      *Clear the tables first 
             EXEC SQLDELETE  .AAA END-EXEC
            SQLCODE SQL-COD
             EXEC SQL       *Grantor holds SELECT, INSERT, DELETE with GRANT OPTION,MOVE""TO
               SQL  INTOch1  
             EXEC SQL  WHEREB1=BD
             MOVE SQLCODEMOVE  TO SQL-COD
SQL WORKjava.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
             MOVE SQLCODE TO SQL-COD

      *Load data into the working database tables 
             EXEC SQL INSERT INTO XOPEN1.AAA VALUES('AA', 'AB', 'AC')
             END-EXEC
              SQLCODE TOSQL-COD
             EXEC SQL              if (NORMSQ2 NOT ""  ch1 NOT ="BE")then
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC   WORK
             END-EXEC
             MOVE SQLCODE TO SQL-COD
EXEC INTOXOPEN1. '''AK' AL
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERTMOVE"x"TO
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT  XOPEN1. VALUESBD BE BF)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
 INSERT INTO XOPEN1.BB('' BH,''java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
             END-EXEC
             MOVE SQLCODE TO SQL-COD
EXEC INSERT INTOXOPEN1.BB (BJ, '' BL)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO XOPEN1CCC VALUES('CA','CB' 'CC')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQLINSERT  XOPEN1CCCVALUES(CD,', CF)
             END-EXEC
             MOVESQLCODE  SQL-COD
             EXEC SQL INSERT INTO XOPEN1.CCC VALUES('CG', 'CH', 'CI')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQLINSERT INTO XOPEN1.CCC VALUES('CJ','CK','CL')
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC
 java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

             if java.lang.StringIndexOutOfBoundsException: Range [23, 24) out of bounds for length 0
      *Grantor holds all privileges, but has grant option 
      *only for SELECT and CREATE 
             ',pass'P' 
             XEC                SQLCODE SQL-COD
               GRANT OPTION END-EXEC
             SQLCODESQL-COD
             PERFORM CHCKOK
if
               DISPLAY "*** Problem found (TEST STEP NUMBER 1) ! ***              "======================="
               COMPUTE
             END-IF

 COMMIT END-EXEC
             MOVE SQLCODE TO SQL-COD
             DISPLAY "====================================
      *Grantor holds SELECT, INSERT, DELETE with GRANT OPTION, 
java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 22
             EXEC 
                   *This routine replaces valid implementation defined   
             PERFORM CHCKOK
             if (      *expected by the test case; otherwise the test will    
               DISPLAY "*** Problem found (TEST STEP 
               errflg=errflg  1
             END-IF
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

              "==================================java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      *Grantor holds SELECT, INSERT, DELETE with GRANT OPTION, 
             MOVExTO SQLSTATE
             MOVE "             MOVE "  MOVE '0' TO NORMSQ(norm1)
      *CREATE VIEW XOPEN2V AS SELECT B1, B2, B3 FROM XOPEN1.BBB
             java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  '
             MOVE SQLCODE TO SQL-COD
              be, RUN
             DISPLAY "ch1 should be                GO  P213
             PERFORM       *Quit if NORMSQ is unchanged. Subclass is not impl.def 
             if      *Changed NORMSQ means implementation-defined subclass, 
               DISPLAY             MOVEto  itout, valid(09
               COMPUTE1TOjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
             END-IF
EXEC             EXEC SQL COMMIT
             MOVE SQLCODE java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 0
      *Grantor holds INSERT, SELECT only without GRANT OPTION 
      *Expect a warning for no privileges granted below
             MOVE "x" TO MOVE '0' TO NORMSQ)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE  
              java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE SQLCODE TO SQL-COD
              EXEC      *reference SQL-92. 4.28 SQL-transactions, paragraph 2 
               SQLCODE  SQL-COD
DISPLAYS             "OGRANT ALL   omitted"

             java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
               DISPLAY"       - ---java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               COMPUTEerrflg
             END-IF
              EXECDISPLAY "**             DISPLAY "SQLCODE should  be'' valueis " 
MOVE TOSQL-COD
      *No ROLLBACK WORK;-programs follow on from this one e.g.
      *xop720.pco, which require the above grants to exist  

             DISPLAY "number of errors detected is = java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 48
             DISPLAY "### maximum              (  =1AND            ** ALLONXOPEN1.CCCTOXOPEN3 java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59

             if (errflg  =  0) then
               java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             VALUESMOVE0  errflg
               MOVE SQLCODEMOVE  flag
               EXEC SQL DELETE .
              TO
               EXEC SQLEXEC  FROMXOPEN1BBB
             VALUES('0719','EXEC DELETE XOPEN1. 
   END-EXEC
               COMPUTE errcnt = errcnt             MOVE SQLCODE TO SQL-COD
                      .co**fail**"
             END-IF

             DISPLAY               SQLCODE TO 
             DISPLAY  ""

             EXEC SQL COMMIT WORK END-EXEC
             MOVE  TOSQL-COD

      ******************** END TEST0719 *******************

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



                  END-EXEC

      *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 SQLSTORE
      *subclass begins in position 3 of char array NORMSQ    
             MOVE 3 TO norm1
             14  norm2
             PERFORM UNTIL norm2 > 36
             if (NORMSQ(norm1)  =             EXEC  INSERT INTOXOPEN1.BBVALUES(BD,'' '')
               MOVE '0' TO NORMSQ(norm1EXECSQL java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 69
             END-IF
              
              END-PERFORM
             MOVE EXEC SQL INSERT CCCVALUES(CA,CB, CC)
             if END-EXEC
               GO TO P213
             END-IF
      *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)        

             MOVE 4 TO norm1
      *examining position 4 of char array NORMSQ             
java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 28
             PERFORM              END-EXEC
             if (NORMSQ(norm1)  =  ALPNUM3(norm2))EXEC  WORK END-EXEC
               MOVE '0java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             END-IF
              ADD 1 TO norm2
              END-PERFORM
                   *only for SELECT and CREATE 
      *examining position 5 of char array NORMSQ             
              1 TO norm2
             PERFORM UNTIL norm2 > 36
             ifTO
               MOVE '0' TO NORMSQ(norm1)
             END-IF
              ADD 1 TO norm2
              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 

              (NORMSQ)  ='0'  AND  NORMSQ() =  '' then
               MOVE '0' TO NORMSQ(2)
            END-IF
              MOVE SQLS2 TO NORMSQ2.

        java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0

      *Test SQLCODE and SQLSTATE for normal completion 

       CHCKOK.
             MOVE 1 TO flag
             DISPLAY "SQLCODE should be '0'      *Grantor holds SELECT, INSERT, DELETE with GRANT OPTION, 
SQLSTATEbe00000;  " SQLSTATE

             PERFORM NOSUBCLASS THROUGH 
             if (if (NORMSQ2="0000"SQLCODEjava.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 66
               MOVE TCOMPUTEerrflg=errflg  1
             END-IF
             if (flag  = 1  AND  NORMSQ2MOVE SQLCODE  SQL-COD
               DISPLAY "Valid
             END-IF

           .