-- SQL Test Suite, V6.0, SQL Module isi002.mco
-- 59-byte ID
-- 
MODULE ISI002
LANGUAGE COBOL
AUTHORIZATION FLATER



PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX -- SQL Test Su, 0 SQL Module isi002.co
USERINTO UIDX FROM HU.CCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE CHECK_OPTION IS NULL;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 14
                    WHERE SQLCODE )ROLLBACK WORK;

PROCEDURE SUB5 (SQLCODE, java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 0
    :CTR1  SELECTCOUNT(  CTR1
TO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE IS_UPDATABLE > ''
                    ANDPROCEDURESUB4 SQLCODE,SQLSTATE,

PROCEDURE SUB6 (SQLCODE:TR1NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
     WHERE ;
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA IS NULL
                    OR TABLE_NAME IS NULL;

PROCEDURESUB7 (SQLCODE, SQLSTATE,
      SELECT (*  :TR1
                          INFORMATION_SCHEMA
.java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC (9))java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
CTR2
                    FROM SELECT* 
                    INFORMATION_SCHEMAWHERETABLE_SCHEMAISNULL
WHERE.  TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CTR1
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS A WHERE NOT EXISTS
LECT  FROM INFORMATION_SCHEMA.TABLES B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    ANDA.TABLE_NAME =B.TABLE_NAME
                    AND B.TABLE_TYPE = 'VIEW');

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO CTR1
                    FROM INFORMATION_SCHEMA.VIEWS WHERE
                    IS_UPDATABLE      COUNT* :TR2

PROCEDURE SUB11 (                    FROM.,
    :COPT CHARINFORMATION_SCHEMAVIEWS B
    :CTR1 NUMERIC (9 ;
      SELECT VIEW_DEFINITION INTO java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
FROM .
                    WHERE TABLE_SCHEMA = 'FLATER'
                     TABLE_NAME =''

PROCEDURE SUB12 (                    (SELECTSELECT*FROMINFORMATION_SCHEMATABLES java.lang.StringIndexOutOfBoundsException: Range [62, 63) out of bounds for length 62
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO:OPT,:IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE '
                     ):

PROCEDURE . 
    :COPT CHAR(8),
    : CHAR3);
      SELECT java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
                          SELECT VIEW_DEFINITIONjava.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 44
                    FROMINFORMATION_SCHEMAVIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    ANDWHERETABLE_SCHEMA ='LATER'

  ANDTABLE_NAME  'V1;
    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    :IUPT CHAR(3)    :COPTCHAR()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
      SELECT CHECK_OPTION,IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
                    WHERE TABLE_SCHEMACHEMA.VIEWS
                     TABLE_NAME = 'VS1';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :COPT                    AND TABLE_NAME ='DV1';
    :3))java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
       CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.java.lang.StringIndexOutOfBoundsException: Range [0, 49) out of bounds for length 39
WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS2';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT                    WHERE TABLE_SCHEMA = 'FLATER'
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHEREPROCEDURE  SUB14 (QLCODE SQLSTATE,
                      AND TABLE_NAME = 'VS3';

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
     IS_UPDATABLE
    I :,
      SELECT FROM .
                     COPT,I
                    FROM AND TABLE_NAME''
           WHERETABLE_SCHEMA='LATER'
                    AND TABLE_NAME = 'VS4';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECTINTO COPT,:UPT
                                        FROM.IEWS
                     INFORMATION_SCHEMA
                    WHERE TABLE_SCHEMA = 'FLATER'
                    ANDTABLE_NAME = 'VS5';

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COPTPROCEDURESUB16(QLCODE SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO:,java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
                    FROM.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND                     TABLE_NAME ='S3'java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
     ROLLBACK WORKjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

PROCEDURE                    INTO:,I
      INSERT INTO HU.TESTREPORT
                      WHERE TABLE_SCHEMA = 'FLATER'

PROCEDURE SUB22 (SQLCODE, SQLSTATE
      INSERT INTO HU.TESTREPORT
                      VALUES('0569','java.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 18

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;