Quelle  xts765.mco

-- SQL Test Suite, V6.0, SQL Module xts765.mco
-- 59-byte ID
-- 
MODULE XTS765
LANGUAGE COBOL
AUTHORIZATION CTS1



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CS TO CTS2 
                    WITH GRANT OPTION;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      CREATE TABLE TEMP765A 
                    (COLCH1 CHAR(10) CHARACTER SET CTS1.CS,
                    COLN NUMERIC(5));

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CTS1.CS TO CTS3
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :CSET CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                  CHARACTER_SET_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :CSET, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLCH1';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLN';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      CREATE TABLE TEMP765B 
                    (COLSTR1 CHAR(10) CHARACTER SET CTS1.CS,
                    COLNUM1 DECIMAL(4));

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :CSET CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                  CHARACTER_SET_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :CSET, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLSTR1';

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNUM1';

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      REVOKE GRANT OPTION FOR USAGE ON CHARACTER SET CS
                    FROM CTS2 CASCADE;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :CSET CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                  CHARACTER_SET_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :CSET, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLCH1';

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :GRTOR CHAR(128),
    :GTEE CHAR(128),
    :OBJNAM CHAR(128),
    :OBJTYP CHAR(128),
    :ISGR CHAR(128));
      SELECT GRANTOR, GRANTEE, OBJECT_NAME, OBJECT_TYPE,
                  IS_GRANTABLE
                    INTO :GRTOR, :GTEE, :OBJNAM, :OBJTYP, :ISGR  
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES 
                    WHERE OBJECT_NAME = 'CS';

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES 
                    WHERE OBJECT_NAME = 'CS'
                    AND (GRANTOR = 'CTS3' OR GRANTEE = 'CTS3');

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLSTR1';

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNUM1';

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CS TO CTS2 
                    WITH GRANT OPTION;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CTS1.CS TO CTS3
                 ;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      CREATE TABLE TEMP765C 
                    ( COLNIK1 CHAR(10) CHARACTER SET CTS1.CS,
                    COLNUMBER1 DECIMAL(4));

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB40 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :CSET CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                  CHARACTER_SET_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :CSET, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNIK1';

PROCEDURE SUB41 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNUMBER1';

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      REVOKE USAGE ON CHARACTER SET CS
                    FROM CTS2 CASCADE;

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB47 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLCH1';

PROCEDURE SUB48 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLN';

PROCEDURE SUB49 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES 
                    WHERE OBJECT_NAME = 'CS'
                    AND (GRANTOR = 'CTS2' OR GRANTEE = 'CTS2');

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      DROP TABLE TEMP765A CASCADE;

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB53 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB54 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES 
                    WHERE OBJECT_NAME = 'CS'
                    AND (GRANTOR = 'CTS3' OR GRANTEE = 'CTS3');

PROCEDURE SUB55 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNIK1';

PROCEDURE SUB56 (SQLCODE, SQLSTATE,
    :TABNAM CHAR(128),
    :COLNAM CHAR(128),
    :ORDPOS NUMERIC (9));
      SELECT TABLE_NAME, COLUMN_NAME,
                    ORDINAL_POSITION
                    INTO :TABNAM, :COLNAM, :ORDPOS
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE COLUMN_NAME = 'COLNUMBER1';

PROCEDURE SUB57 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB58 (SQLCODE, SQLSTATE);
      DROP TABLE TEMP765B CASCADE;

PROCEDURE SUB59 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB60 (SQLCODE, SQLSTATE);
      DROP TABLE TEMP765C CASCADE;

PROCEDURE SUB61 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB62 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7065','pass','MCO');

PROCEDURE SUB63 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7065','fail','MCO');

PROCEDURE SUB64 (SQLCODE, SQLSTATE);
      COMMIT WORK;