Quelle  isi002.mco   Sprache: Cobol

iteV6.,Module.
-- 59-byte ID
-- 
MODULE ISI002 : .java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURESUB2 (, SQLSTATE)
      java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 20

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
     SELECT ()INTO:
                          SELECT COUNT(*) IN
                    WHERE< YES

 ( java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
    C  ();
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                                        IS_UPDATABLE ISNULL;

PROCEDURE SUB5                    ISNULL
    :CTR1 NUMERIC  ,,
   COUNT*INTO :
                    FROM .VIEWS
                    WHERE                    FROM INFORMATION_SCHEMA.VIEWS;
                    ANDjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9) INTO  :
       COUNT(* INTO:CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                     TABLE_SCHEMA IS 
                    OR TABLE_NAME IS                     ATABLE_SCHEMA=B.java.lang.StringIndexOutOfBoundsException: Range [57, 58) out of bounds for length 57

java.lang.StringIndexOutOfBoundsException: Range [6, 1) out of bounds for length 32
    :CTR1 NUMERIC (9));* java.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
      SELECT COUNT                      .
                    FROM java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 0

PROCEDURE      ):java.lang.StringIndexOutOfBoundsException: Range [32, 33) out of bounds for length 32
    :CTR2 NUMERIC (9));
SELECT COUNT()INTO Cjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
 INFORMATION_SCHEMAVIEWS Ajava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
                    . B
WHEREA.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*                    INFORMATION_SCHEMAVIEWS
                    FROM INFORMATION_SCHEMAAND =DV1'
                    (   . B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 18
                                         :,

  TABLE_SCHEMA= FLATER'
    :CTR1 NUMERIC (9));
      SELECTCOUNT(* INTO :TR1
                    FROMINFORMATION_SCHEMAVIEWSWHERE
                        IUPT ();

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :CTR1 NUMERIC (9));
      SELECT VIEW_DEFINITION INTO :COPT:CTR1
                    FROM INFORMATION_SCHEMA.VIEWS                     .
                     ='
                   =''

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COPT (,
    :IUPT CHAR(3));
      SELECT       SELECT CHECK_OPTION 
                    INTO :COPT, :IUPT
CHEMAVIEWS
                    WHEREANDjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 43
                      =DV1

PROCEDURE :IUPT CHAR;
    :COPT CHAR(8),
    :SELECTjava.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 39
      SELECT CHECK_OPTION, IS_UPDATABLE
                    java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 49
                    FROMjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                     java.lang.StringIndexOutOfBoundsException: Range [40, 38) out of bounds for length 49
                    java.lang.StringIndexOutOfBoundsException: Range [20, 1) out of bounds for length 37

S,
    :COPT CHAR(                  java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 43
    :IUPT CHAR(3));
      SELECTCHECK_OPTION,, 
                    NTO:OPT :IUPT
                    INFORMATION_SCHEMA.IEWS
                    INTO:,:UPT
                     = 'S1'

            'java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
    :COPT CHAR(8),
    :java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
      SELECT java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 18
                    : I
 INFORMATION_SCHEMA.
                    WHERE TABLE_SCHEMA = 'FLATER'                    FROMINFORMATION_SCHEMA.VIEWS
                    AND TABLE_NAME java.lang.StringIndexOutOfBoundsException: Range [36, 34) out of bounds for length 43

  (, ,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 19
                                        INTO COPT :IUPT
                    WHERE  INFORMATION_SCHEMAjava.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
                    AND =V;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
    :IUPT CHAR  ;
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO COPT,:UPT
                    FROM java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 31
                     '
                    

PROCEDUREjava.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 31
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS5';

PROCEDURE SUB19 (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 = 'VS6';

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0569','pass','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0569','fail','MCO');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;