Quelle  dml184.mco

-- SQL Test Suite, V6.0, SQL Module dml184.mco
-- 59-byte ID
-- 
MODULE DML184
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);
      CREATE TABLE T (
                    A CHAR, B CHAR, C CHAR,
                    CONSTRAINT UniqueOnColsAandB UNIQUE (A, B));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      GRANT REFERENCES (A, B) ON TABLE T TO SCHANZLE
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'SCHANZLE';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CREATE TABLE S (
                    X CHAR, Y CHAR, Z CHAR,
                    CONSTRAINT RefToColsAandB FOREIGN KEY (X, Y)
                    REFERENCES FLATER.T (A, B));

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'FLATER';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :NAM1 CHAR(30));
      SELECT CONSTRAINT_NAME
                    INTO :NAM1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER' AND TABLE_NAME = 'T'
                    AND CONSTRAINT_SCHEMA = 'FLATER';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :NAM1 CHAR(30));
      SELECT CONSTRAINT_NAME
                    INTO :NAM1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER' AND TABLE_NAME = 'T'
                    AND CONSTRAINT_SCHEMA = 'SCHANZLE';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T'
                    AND (COLUMN_NAME = 'A' OR COLUMN_NAME = 'B')
                    AND CONSTRAINT_SCHEMA = 'FLATER'
                    AND CONSTRAINT_NAME = 'UNIQUEONCOLSAANDB';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T'
                    AND (COLUMN_NAME = 'A' OR COLUMN_NAME = 'B')
                    AND CONSTRAINT_SCHEMA = 'SCHANZLE'
                    AND CONSTRAINT_NAME = 'REFTOCOLSAANDB';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T';

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP TABLE T CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'SCHANZLE';

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      DROP TABLE S CASCADE;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;