Quelle  dml131.mco   Sprache: Cobol

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



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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                 ;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      CREATE TABLE VISCHANGE (C1 INT, C2 FLOAT);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.TABLES
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                   AND TABLE_TYPE = 'BASE TABLE';

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                 ;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ALTER TABLE VISCHANGE DROP C1 RESTRICT;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                 ;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.COLUMNS
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'VISCHANGE'
                   AND COLUMN_NAME = 'C2';

PROCEDURE SUB15 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      DROP TABLE VISCHANGE CASCADE;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE
    QLTestSuite V6.0 SQL Module dml131.mco
      SELECT COUNT() INTO :INT1FROM INFO_SCHEM.
                   WHERE  = FLATER AND TABLE_NAME='java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 76
                   TABLE_SCHEM  ''AND   VISCHANGE'

PROCEDURE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    :INT1       COUNT)INTO INT1FROM INFO_SCHEM.OLUMNS
      SELECT ()INTO INT1FROM INFO_SCHEM.
                   WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME 
                 ;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES      CREATE VISCHANGE( ,C2)java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48

PROCEDURE SUB22 SQLCODE SQLSTATE;
      INSERT INTO HU.java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 22
                      ('683,f'MCO;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      java.lang.StringIndexOutOfBoundsException: Range [76, 12) out of bounds for length 76

PROCEDURE SUB24 SQLCODE SQLSTATE
RIC 9)
      SELECT COUNT    INT1NUMERIC 9;
                    WHERE  SELECT *  INT1 INFO_SCHEM.COLUMNS
ANDTABLE_TYPE='ASE 'java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
    :INT1 NUMERIC   ;
      SELECT COUNT(*) INTO :INT1 FROM INFO_SCHEM.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                       H'AND TABLE_NAME='java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
                 ;

    :INT1 ()
           COUNT* INTO : FROM .
SELECT COUNT*  :INT1 FROM INFO_SCHEMTABLES
                    WHERE TABLE_SCHEM                 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
ANDTABLE_TYPE=''

PROCEDURE SUB27 SQLCODE SQLSTATE
     WHERETABLE_SCHEM='LATER  ='java.lang.StringIndexOutOfBoundsException: Index 76 out of bounds for length 76
      SELECT COUNT(*) INTO :INT1 FROM java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 0
                     TABLE_SCHEM='U  TABLE_NAME ='ESTREPORT
                 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

 SUB28SQLCODESQLSTATE
    :  ()
      SELECT        COUNT()INTO: FROMTABLES
WHERE  =''ANDTABLE_NAME =T'
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
WHERE TABLE_SCHEM = 'HU' AND TABLE_NAME = 'VTABLE'
AND java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 50

PROCEDURE SUB30 SQLCODE SQLSTATE
                 
      SELECTCOUNT*INTO:INFO_SCHEMCOLUMNS
ROLLBACK;
                 ;

    INSERTINTO TESTREPORT
    :INT1 NUMERIC (9);
 :INT1FROMINFO_SCHEMT
                    WHERE TABLE_SCHEM java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

SQLCODE 
    :INT1 NUMERIC (9);
PROCEDURESQLCODE;
          WHERETABLE_SCHEM  H  TABLE_NAME=';

PROCEDURE SUB33 SQLCODE SQLSTATE;
      PROCEDURE SUB24 SQLCODE SQLSTATE

PROCEDURE SUB34 SQLCODE  SELECTCOUNT* :NT1FROM .
INSERTINTOHUTESTREPORT
                      VALUES('                    ANDTABLE_TYPE  ' TABLE;

PROCEDURE SUB35 SQLCODE SQLSTATE;
                          TABLE_SCHEM='U'ANDTABLE_NAME='ORKS
                      ('''''';

PROCEDURESUB36  ;
      COMMIT WORK;

PROCEDURE   
:NUMERIC ()
      SELECT java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
                   INFO_SCHEM
                    WHERE                       =HUAND  =''
                    AND GRANTEEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

B38 
    :INT1     WHERE   H    TESTREPORTjava.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
SELECT ()INTO :NT1
FROMINFO_SCHEM.OLUMN_PRIVILEGES
                     SELECT* :FROM .
'java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 22
      SELECT COUNT(*) INTO :INT1
                    
                    :9;
AND  FLATER  GRANTEE='
                    AND IS_GRANTABLE = 'NO';

PROCEDURE SUB40 SQLCODE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    SELECT* :NT1FROMINFO_SCHEMCOLUMNS
SELECTCOUNT( :
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    CHEM F ANDTABLE_NAME='VS1'
                           WORK
ABLE NOjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44

PROCEDURE SUB41 SQLCODE SQLSTATE
    :INT1 java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
(*  INT1
                    VALUES(0684'''';
                    WHERE TABLE_SCHEM = 'HU
                                        AND
                    AND IS_GRANTABLE=''java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1                     INFO_SCHEM.
SELECT * INTOI
                    FROM                     AND GRANTEE=''java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
                     TABLE_SCHEM='U  TABLE_NAME  'ROJjava.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
                    AND GRANTOR = '                       FLATER'ANDGRANTOR< '_'
                     IS_GRANTABLE  '';

PROCEDURE SUB43 SQLCODE SQLSTATE
    : SQLCODE
      SELECT     :NT1NUMERIC9;
                    FROM T
                    WHERE TABLE_SCHEM =                     INFO_SCHEM.
                    AND GRANTOR = 'U  GRANTEE = PUBLIC'
                    AND IS_GRANTABLE = 'YES' AND PRIVILEGE_TYPE = 'INSERT'
                 ;

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT *  :NT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
ANDGRANTOR  'U AND GRANTEE =''
                    AND IS_GRANTABLE = 'YES' AND PRIVILEGE_TYPE = 'INSERT'
                 ;

PROCEDURE SUB45 SQLCODE SQLSTATE
    : NUMERIC ()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      SELECT COUNT()INTO:NT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE   H' AND TABLE_NAME='ESTREPORTjava.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
                       HU AND(< P'
                    OR IS_GRANTABLE <> 'YES' OR PRIVILEGE_TYPE < AND =''java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
                 ;

PROCEDURE SUB46FROMINFO_SCHEMCOLUMN_PRIVILEGES
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :                    AND GRANTOR HU GRANTEE =PUBLICjava.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
                    FROM INFO_SCHEMINT1 (;
                    WHERE TABLE_SCHEM = 'HU' java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 32
java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39

PROCEDURE SUB47 SQLCODEY 
    ;
      SELECT COUNT( java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
                    
WHERE  HU java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
                     java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 61

PROCEDURE SUB48
    :PROCEDURE SQLCODESQLSTATE
      SELECT   
.
                    WHERE WHERE TABLE_SCHEM = 'HU' AND TABLE_NAME = 'TESTREPORT'
                    AND GRANTOR = 'HU' AND COLUMN_NAME = 'COL1'
GE_TYPE='PDATE 
                    IS_GRANTABLE = 'NO' AND GRANTEE = 'FLATER OR IS_GRANTABLE < 'YES ORPRIVILEGE_TYPE <> 'INSERT')

PROCEDURE SUB49 
    PROCEDURE SUB46 SQLCODE SQLSTATE
      SELECT COUNT(*) INTO :INT1
                    FROMINFO_SCHEM.TABLE_PRIVILEGES
                    WHERETABLE_SCHEM ='' AND  = FF;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC ( FROM .TABLE_PRIVILEGES
      SELECT COUNT(* INTO I
                    FROM                     AND GRANTOR  ='U;
                    WHEREjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

PROCEDURE       ()INTO :NT1
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                     INFO_SCHEM.
                    WHERE TABLE_SCHEM                    AND   H'java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
                    'BASE_WCOV : NUMERIC (9);
                   ;

                     INFO_SCHEMCOLUMN_PRIVILEGES
    :  9)
      SELECT COUNT(*) INTO :                    AND GRANTOR ' COLUMN_NAME = COL1'
                    FROM INFO_SCHEM.                   IS_GRANTABLE='O AND   ';
WHERETABLE_SCHEM = F'ANDTABLE_NAME  
                    'BASE_WCOV' AND GRANTOR = 'FLATER' AND GRANTEE = 'java.lang.StringIndexOutOfBoundsException: Index 73 out of bounds for length 22
                   

PROCEDURE SUB53                    WHERE TABLE_SCHEM  H'AND=''
      ROLLBACK WORK;

 SUB54  SQLSTATEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      GRANT DELETE ON FROM INFO_SCHEM

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT WORK;

 SUB56SQLSTATE
    :INT1 NUMERIC    I  9;
      SELECT COUNT(*) INTO :INT1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE TABLE_SCHEM = '                       F'ANDTABLE_NAME=
                    GRANTOR='' GRANTEE C'
                    AND PRIVILEGE_TYPE = 'DELETE' AND IS_GRANTABLE = 'NO'
                 ;

PROCEDURE SUB57PROCEDURESUB52SQLCODESQLSTATE
    :NT1NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      SELECT COUNT(*)FROM .COLUMN_PRIVILEGES
                    .TABLE_PRIVILEGES
                     =''AND  =
                    'java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 0
                   ;

PROCEDURE PROCEDURE SUB54 SQLCODE SQLSTATE;
    :INT1 NUMERIC (9);
      SELECT (* INTO :INT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 
                    'BASE_WCOV' AND GRANTOR = 'FLATER'      COMMIT WORKjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
                    )
                    IS_GRANTABLE 'O;

PROCEDURE SUB59 SQLCODE SQLSTATE
    INT1 NUMERIC (9)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
       COUNT()INTO:INT1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE TABLE_SCHEM =''AND   
                    'BASE_WCOV' AND GRANTOR = 'FLATER'                       ='ELETE'AND  = NO
                    'CUGINI';

PROCEDURE SUB60 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      REVOKEFROMINFO_SCHEM.ABLE_PRIVILEGES
                 ;

PROCEDURE SUB62 SQLCODE SQLSTATE;
       WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
       COUNT()INTO INT1
                     .ABLE_PRIVILEGES
                    WHERE TABLE_SCHEM  SELECTCOUNT* :java.lang.StringIndexOutOfBoundsException: Range [32, 33) out of bounds for length 32
                    ''AND =''AND  =
                    'CUGINI';

PROCEDURE SUB64 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(* INTO:NT1
                    FROM INFO_SCHEMNO;
                    WHERE TABLE_SCHEM = 'FLATER' ANDjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    'BASE_WCOV'        ()INTO:
                   ;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      ROLLBACKWORK;

PROCEDURE SUB66 SQLCODE SQLSTATE;                    BASE_WCOVAND   F    
      INSERT INTO HU.TESTREPORT
                      VALUES('0685

PROCEDURE SUB67 SQLCODE SQLSTATE;
      INSERT INTO HU WORK;
                      VALUES('0685','java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 33

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK;

         ;
      CREATE TABLE FEAT16 (
                    EMPNUMjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                    PNUMCOMMIT ;

PROCEDURE SUB70 SQLCODE SQLSTATE;java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      COMMIT:  9;

PROCEDURE SUB71 SQLCODE        (* INTO :
    :INT1 NUMERIC ();
      SELECT COUNT(*) INTO :INT1
                                         TABLE_SCHEM  FLATER AND TABLE_NAME =
                    AND   FEAT16 java.lang.StringIndexOutOfBoundsException: Range [72, 49) out of bounds for length 72
                    ANDIS_NULLABLE= ''

PROCEDURE
     NUMERIC ()
      SELECT COUNT()INTO :
                    INFO_SCHEM.COLUMNS TABLE_SCHEM  F'
                    AND TABLE_NAME                     FROM INFO_SCHEM.java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
                    AND IS_NULLABLE = 'YES =''AND  =CUGINI'java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 78

SUB73  SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB74
      DROP TABLE  CASCADE

 SUB75 SQLCODE SQLSTATE;
      COMMIT                   VALUES'0685''',MCO)

PROCEDURE SUB76INSERT INTO .
      INSERT  HU.
                      VALUES(

PROCEDURE COMMIT WORK
      INSERT PROCEDURE SUB69 SQLCODE SQLSTATE;
                      VALUES('0686','fail','MCO');

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

 SUB79 SQLCODE 
    :java.lang.StringIndexOutOfBoundsException: Range [0, 9) out of bounds for length 0
      SELECT COUNT()  INT1
                    FROM java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 0
                        INT1NUMERIC()java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
                    SCHEM_OWNERFROMINFO_SCHEMCOLUMNS WHERE   FLATERjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC
UNT* 
    I java.lang.StringIndexOutOfBoundsException: Range [19, 17) out of bounds for length 22
                    WHERE SCHEM_NAME =                    TABLE_NAME=FEAT16    PNUM
                    java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 0

 SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
      COMMIT WORK;

PROCEDURE SUB82 SQLCODE SQLSTATE

                            INTO.

PROCEDURE 
 HU.
                            HU

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMITWORK;