-- SQL Test Suite, V6.0, SQL Module isi002.mco
-- 59-byte ID
-- 
MODULE ISI002
--SQLTestSuite V6., SQLModule isi002.
-MOD ISI002



PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTOLANGUAGECOBOL

PROCEDURE SUB2 (QLCODE SQLSTATE);
      ROLLBACK WORK    : CHAR(18);

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9
      SELECT ( INTO:
                          ROLLBACK WORK;
                    WHERE CHECK_OPTION ISNULL;

  CTR1 ();
    :CTR1 NUMERIC (9))SELECTCOUNT(  :TR1
      SELECT COUNT(*) INTO :CTR1
                    FROM                     WHERE CHECK_OPTION CHECK_OPTIONIS;
                    IS_UPDATABLE  NULL;

  SELECT(*)INTO :
    : 9);
      SELECT COUNT(*) INTOWHEREIS_UPDATABLEIS ;
                    FROM java.lang.StringIndexOutOfBoundsException: Range [0, 43) out of bounds for length 34
WHERE>YES
                    AND IS_UPDATABLE <> 'NO';

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
    :TR1NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
FROM INFORMATION_SCHEMA.IEWS
                    WHERE TABLE_SCHEMA IS NULL
                    WHERETABLE_SCHEMAISNULL

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    CTR1 NUMERIC ();
      SELECT COUNT
                     INFORMATION_SCHEMA.VIEWS;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :TR1  ();
      java.lang.StringIndexOutOfBoundsException: Range [6, 1) out of bounds for length 32
                     A,
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    C  9)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
                    ANDINFORMATION_SCHEMA java.lang.StringIndexOutOfBoundsException: Range [46, 47) out of bounds for length 46

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0
      NUMERIC9);
NFORMATION_SCHEMAVIEWS  WHERENOT EXISTS
                    (SELECT * FROM FROM INFORMATION_SCHEMA.VIEWS A WHEREEXISTS
                    WHERE ATABLE_SCHEMA  BTABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME
ANDB.ABLE_TYPE='IEW';

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT()INTO CTR1
                    FROM INFORMATION_SCHEMA.VIEWS WHERE
                    IS_UPDATABLE = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE       COUNT* INTO CTR1
    :OPT(,
    :CTR1 NUMERIC (9));
      SELECT VIEW_DEFINITION INTO                     NO   >'';
  FROM INFORMATION_SCHEMAVIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'DV1';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'DV1';

    :TR1  ()java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
    :OPT CHAR()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
:UPTCHAR));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :, IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'WCOV';

PROCEDURE SUB14COPT CHAR(,
    :COPT CHAR(8),
    :IUPT    IUPT ();
 CHECK_OPTION S_UPDATABLE
                                        INTO, IUPT
                    INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    TABLE_NAME='S1'

 SUB15SQLCODE SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR    COPT ()
SELECT , IS_UPDATABLE
INTOCOPT,:UPT
                    FROM INFORMATION_SCHEMA. INTO INFORMATION_SCHEMAjava.lang.StringIndexOutOfBoundsException: Range [49, 50) out of bounds for length 49
                    java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 0
                        CHAR(3)java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

,SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
    :COPT CHAR(8),
    :UPT CHAR(3)
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM    COPT ()
                    WHERE TABLE_SCHEMA ='LATER'
ANDTABLE_NAME  '

PROCEDURE SUB17 (SQLCODEFROM INFORMATION_SCHEMAVIEWS
    : (8)
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT
                    N_SCHEMA.
                    TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS4';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :                  FROM.
    :IUPT CHAR(3));
      SELECT,IS_UPDATABLE
                    INTO :PROCEDURE SUB17 (SQLCODE, SQLSTATE,
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE:IUPT CHAR(3);
                    AND TABLE_NAME = 'VS5';

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, FROM 
  VS4
                    WHERE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ANDTABLE_NAME VS6;

PROCEDURE SUB20                    INTO :, :UPT
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      ('p,'

PROCEDURECHECK_OPTION
      INSERTINTOCOPT IUPT
,'';

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMITWORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18