Quelle  isi002.mco   Sprache: Cobol

   ,. mco
-- 59-byte ID
- 
ULEjava.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
 
AUTHORIZATION FLATER



PROCEDUREPROCEDURES,;
    UIDX18);
      SELECT USER java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE SUB2      COUNT() CTR1
      ROLLBACKWORK

PROCEDURE SUB3 (SQLCODE,                     WHERE CHECK_OP  ;
    :NUMERIC 9)
      ()INTO :TR1
                    FROM java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 32
                    WHERE   NULLjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47

PROCEDURE SUB4 (WHERE IS;
    :
       COUNT(*)INTO :TR1
                     CTR1NUMERIC (9);
                      IS NULLjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE IS_UPDATABLE                      IS_UPDATABLE < 'ES'
                    AND IS_UPDATABLE <> 'NO';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR1     C java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 23
      SELECT                    .
                    FROM INFORMATION_SCHEMA.VIEWS
                       java.lang.StringIndexOutOfBoundsException: Range [46, 47) out of bounds for length 46
                    OR TABLE_NAME     :()

PROCEDURE SUB7                    FROM VIEWSjava.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
:NUMERIC()
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.FROM INFORMATION_SCHEMA.VIEWS

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :TR2NUMERIC();
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.VIEWS A,
                    .VIEWS B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME =java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
TR1  ();
      SELECT COUNT(*)                     FROM I.VIEWSA NOTEXISTS
                     NOT 
                    (SELECT * FROM                     WHERE A.TABLE_SCHEMA =. = B.
                    WHERE A                     .  ')java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
                    AND A.TABLE_NAMECOUNT( :java.lang.StringIndexOutOfBoundsException: Range [32, 33) out of bounds for length 32
                    AND B.TABLE_TYPE = 'VIEW');

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT ()INTO:
                    FROM INFORMATION_SCHEMA.    C CHAR8)java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
IS_UPDATABLE =''ANDCHECK_OPTION< NONE';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COPT                    .
:NUMERIC();
      SELECT VIEW_DEFINITION INTO :COPT:CTR1
                    C(,
                    WHERE TABLE_SCHEMA = 'FLATER    I (3);
                    AND TABLE_NAME                    :OPT:java.lang.StringIndexOutOfBoundsException: Range [37, 38) out of bounds for length 37

PROCEDURE SUB12 java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
    : ()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
    :UPTCHAR3)
      SELECT, S_UPDATABLE
 :COPT :
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA                    FROM java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 49
                    AND TABLE_NAME =AND   V;

PROCEDURE (,SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
:CHAR(,
      CHECK_OPTION, 
      SELECT                      : I
                     :COPT, :IUPT
                    .VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'WCOV';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
:IUPT (3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM ,
                    WHERE TABLE_SCHEMA = 'FLATER'
                    :CHAR())java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
: CHAR()
    :IUPT CHAR(3));
              TABLE_SCHEMA=F'
                    INTO :                     TABLE_NAME='VS3'
                    .
                    WHERE TABLE_SCHEMA =    COPTCHAR8)
                    AND java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39

PROCEDURE SUB16 (SQLCODE, FROM INFORMATIOVIEWS
    :COPT                  WHERE java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 49
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 0
                    INTO :COPT, :IUPT
                       INFORMATION_SCHEMAVIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
      SELECT CHECK_OPTION 

java.lang.StringIndexOutOfBoundsException: Range [34, 9) out of bounds for length 35
    :COPT CHAR(8),
    IUPT3)
      SELECT CHECK_OPTION, IS_UPDATABLEANDjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 43
                    INTO java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
                    INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    ANDTABLE_NAME ='VS4';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT                      ='';
                     :OPT, :
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 0
      

PROCEDURE SUB19 (VALUES'0569''ass''MCO';
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT , IS_UPDATABLE
                     :,:
                    FROM                       VALUES('0569','fail'MCO';
                    WHERE TABLE_SCHEMA = 'FLATER COMMIT WORK;
                    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;