-  Test Suite, V6.,SQL Module dml117.co
--- 59byte ID
-java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
MODULE DML117
LANGUAGE COBOL
AUTHORIZATIONFILE_QUOTAINTjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37



PROCEDURE SUB1 SQLCODE SQLSTATE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 SQLCODE SQLSTATE;
       java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
      CREATE COMMIT WORKPROCEDURE SUB5SQLSTATE
                     (USER_ID),
                    FOREIGN KEY ()REFERENCESLUSERS ON DELETE
                    java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
                       INT,
                    FILE_USAGE                         CHAR ( NOTNULLjava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
CHECK( > 0AND
                    (FILE_QUOTA IS WORK;
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE TABLE LUSER_DATA (
                    CREATE TABLE AUDIT_CODES
                  CASCADE,
                    PRIMARY KEY(ILE_NAME,LUSER_ID)
                    LUSER_ACTION      ()NOTNULLjava.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
LUSER_ID    INT  NULL,
                    LUSER_DATA   CHAR (30));

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT

PROCEDURE
SUB8SQLCODESQLSTATE
COMMIT ;
                      SQLCODESQLSTATE
CHECK LUSER_ACTION  INSERTOR  ='CCVIO'
                    OR LUSER_ACTION = 'DELETE'));

PROCEDURE SUB8 java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 18
       java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE SUB9
PROCEDURESUB11 ;
                 ;

PROCEDURE SUB10 SQLCODE SQLSTATE;
       WORK

                    FOREIGN KEY(USER_ID)REFERENCES   DELETE
      CREATE TABLE                  java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
                    SAVED_LUSER_IDINTNOT
                  ,
                           INT DEFAULT  NULL
                     AUDIT_CODES    )
                    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    ACTION_KEYINT  0NOTNULL
                    REFERENCES

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

      ;
      INSERT INTO AUDIT_CODES VALUES (0, 'ACCVIO'
                 ;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO AUDIT_CODES java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 18
                  INSERTINTOAUDIT_CODESVALUES(2,'ELETE'

PROCEDURESUB16SQLCODE;
             INTO LUSERS  (root'0 NULL,2)
                 

PROCEDURE  ;
      INTO LUSERS VALUES(root,0,NULL )
                 ;

PROCEDURE SUB17 SQLCODE 
S VALUES (BIFF' 1,0,0)
                 ;

  SQLCODE;
      INSERT INTO LUSERS VALUES ('Kibo', 2, 1                 
                 ;

PROCEDURE SUB19 SQLCODE SQLSTATE;
         SQLSTATE

PROCEDURE SUB20 INSERT INTO ALL_USER_IDS VALUES (1);
      INSERT

PROCEDURE   SQLSTATE;
      INSERT INTO ALL_USER_IDS VALUESINSERTINTOALL_USER_IDS ();

PROCEDURE
      INSERTINTO  VALUES ('OOT1'
, 'IFF is a  loser';

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO LUSER_DATA VALUES ('ROOT2',
                    , 'ibo wastes  space';

PROCEDURE SUB24 SQLCODE SQLSTATE;
 INTO VALUES (,0 1java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
                 ;

                    0,' wastesdisk space)java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
      java.lang.StringIndexOutOfBoundsException: Range [31, 12) out of bounds for length 48
                 ;

PROCEDURE   ;
      INSERT INTO AUDIT_RECORDS;
                 ;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      INTO  VALUES (,1,)
                 ;

PROCEDURE SUB28 PROCEDURESUB26SQLCODESQLSTATE;
      INSERT AUDIT_RECORDSVALUES (,2 )
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      INSERT INTO java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 0
;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO AUDIT_RECORDS VALUESjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                 ;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    , ' G0T KIB0Z PASSW0RD!!;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      DELETEjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE SUB33 SQLCODE INSERT INTO  (,2 )
    :java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0
      SELECT INSERTINTO LUSER_DATA VALUES ('AHA,
                 ;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
 INTO :NT1 FROM LUSERS;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1DELETE FROM LUSERS WHERE NAAM< ''
      SELECT  SQLCODE SQLSTATE
                 

      SEL COUNT* INTO :NT1  
    :INT1 java.lang.StringIndexOutOfBoundsException: Range [17, 1) out of bounds for length 18
      SELECT COUNT(*)       9;
                    WHERE LUSER_ID IS NULL;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
T*)INTO: FROM 
                    WHERE SAVED_LUSER_IDCOUNT*) INTO INT1 java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51

PROCEDURE :INT1 NUMERIC;
      DELETE FROM AUDIT_CODES
                                        INTO:FROM 

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT    INT1NUMERIC()
                    WHEREACTION_KEY  ;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :INT1 NUMERIC 9;
      SELECT COUNT(*) INTO :INT1 FROM AUDIT_RECORDS
                    WHERE ACTION_KEY = 0;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      DELETE FROM ALL_USER_IDS;

PROCEDURE SUB42 SQLCODE SQLSTATE;
COMMIT;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      ;

PROCEDURE SUB44 SQLCODE SQLSTATE;
COMMIT ;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      DROP ALL_USER_IDSCASCADE;

PROCEDURESELECTCOUNT( : FROM AUDIT_RECORDS
      COMMIT ;

PROCEDURE SUB47 SQLCODE SQLSTATE;
       TABLE AUDIT_CODES CASCADE;

PROCEDURE SUB48 SQLCODEDELETEFROM ALL_USER_IDSjava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
      COMMIT

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DROP TABLE LUSER_DATA ;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      ;

ROCEDURE SUB51 SQLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
 CASCADE;

PROCEDURE SUB52 SQLCODE SQLSTATE;
COMMIT WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

PROCEDURE SUB53 SQLCODE SQLSTATE java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
      INSERT INTO HU.         CASCADE;
                      (0645''ass',MCO';

PROCEDURE SUB54 SQLCODE SQLSTATE;
      INSERT INTO HU.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
            VALUES(0645'fail,'CO';

PROCEDURE SUB55 PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;