-- SQL Test Suite, V6.0, SQL Module mpa011.-- SQLTest Suite V6.0, SQL Module mpa011.mco
- -
-- 
MODULE     : (8;
     :FROM.CCOjava.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0



PROCEDURE SUB1 SQLCODE SQLSTATE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX      FROMHUWHERE =PROGNO

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE      ROLLBACK ;
    :INT1 NUMERIC (9java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
    :      ROLLBWORK
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                       FROM .WHERE =PROGNOjava.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59

SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0
    : (;
      DELETE FROM HU.TOKENS WHERE PROG_NO 
                 ;      java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 18

 SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
ROLLBACK

PROCEDURE     :PROGNO NU();
       ;

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
       WORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

PROCEDURE SUB11 SQLCODE SQLSTATE;
      java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0

SUB12SQLCODE 
    :DSTMT      9;
      EXECUTE IMMEDIATE :      SELECT TOKEN_NO INTO  FROMHUjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTEPROCEDURE SUB22 SQLCODE SQLSTATE;

PROCEDURE SUB15      COMMIT ;
RK;

EDURE  SQLCODE SQLSTATE
          EXECUTE IMMEDIATE :STMT;
      INSERT . ( 1;

    WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
      ROLLBACK WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      ROLLBACK WORK;

      WORK;
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
            
                    

PROCEDURE                     WHERE PROG_NO =:ROGNO;


PROCEDURE SUB22 SQLCODEROLLBACKWORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
      COMMIT WORK

SUB23  SQLSTATE
    :DSTMT CHAR      ROLLBACK ;
      EXECUTE IMMEDIATE :java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 0

DELETE HU.OKENS WHERE PROG_NO = :PROGNO
      COMMIT WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
    (50)
      

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      UPDATE HU.java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
      INSERT INTO HU.ESTREPORT

PROCEDURE SUB28 SQLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      ROLLBACK

  SQLCODE java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      COMMIT WORK;

 SUB30 SQLCODESQLSTATE
                 FROM =:ROGNO;

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 0
    :PROGNO WORK;
      java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
      ;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      DELETE .OKENS WHEREPROG_NO=:ROGNO

PROCEDURE PROCEDURESUB39SQLCODESQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      INSERT INTO HU.       java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
                      VALUES(

PROCEDURE SUB34 SQLCODE SQLSTATE;
            DELETE CONCATBUF;
                      ('629',','CO)

PROCEDURE SUB35                     'RE SELECT,, DELETE ON GRANT011' ||
      COMMIT  );

PROCEDUREPROCEDURESUB44SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
:  9
    :PROGNO NUMERIC (9)
     SELECTCOUNT(* INTO :NT1
  FROM HU.OKENS WHERE PROG_NO=:ROGNO;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0

  :;
    :PROGNO NUMERIC (9);
      DELETE
                 ;

PROCEDURE  SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDUREPROCEDURE SQLCODESQLSTATE
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
       WORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

PROCEDURE SUB42 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT  CONCATBUF VALUES (
                    PROCEDURE SUB50 SQLCODE SQLSTATE;
        'FROM '
                    );

PROCEDURE SUB44 SQLCODE SQLSTATE
    : CHAR240)
       ;

PROCEDURE SUB45 SQLCODE  : NUMERIC()
       WORK

 SELECT INTO  FROM .TOKENS
    :LONGST()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      EXECUTE IMMEDIATE :ONGST;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

 SUB48 SQLCODE
:PROGNO NUMERIC 9;
      INSERTINTO .OKENS  (PROGNO, 1);

PROCEDURE SUB49 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE      COMMIT WORK
      ROLLBACK ;

PROCEDURE UPDATE .TOKENSSET +1
    :INT1 NUMERIC ()
    :PROGNO NUMERIC (9);
      SELECT TOKEN_NO java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 0
                    WHERE PROG_NO = :

PROCEDURE SUB53 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT java.lang.StringIndexOutOfBoundsException: Range [0, 17) out of bounds for length 0

PROCEDURE java.lang.StringIndexOutOfBoundsException: Range [0, 15) out of bounds for length 0
: CHAR(0;
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for length 0
       .    TOKEN_NO +1
                    WHERE PROG_NO

PROCEDUREINSERT 


java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
      COMMIT WORK;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB61 SQLCODE java.lang.StringIndexOutOfBoundsException: Range [0, 32) out of bounds for length 31
    :PROGNO                    ('630'f,MCOjava.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
      DELETE FROM .TOKENSWHERE PROG_NO = :ROGNO
     ;

PROCEDURE SUB62 java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
      ROLLBACK WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                VALUES(0630','pass,''

  ;
      INSERT 
                      VALUES(0630,fail'';

PROCEDURE SUB65 SQLCODE SQLSTATE;
      COMMIT WORK;

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    :  (;
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB67       HUSTAFF
      COMMIT WORK;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      UPDATE HU.STAFF
                    SET GRADE = -1 WHERE GRADE = :INT1;