Quelle  dml168.mco

-- SQL Test Suite, V6.0, SQL Module dml168.mco
-- 59-byte ID
-- 
MODULE DML168
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 T0876 (
                    C1 INFORMATION_SCHEMA.SQL_IDENTIFIER,
                    C2 INFORMATION_SCHEMA.CHARACTER_DATA);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO T0876 VALUES ('T0876',
                    'This table tests a couple of domains.');

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM T0876
                    WHERE C1 = 'T0876';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DROP TABLE T0876 CASCADE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CREATE TABLE T0878 (
                    C1 INT);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ALTER TABLE T0878
                    ADD C2 CHAR (4);

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ALTER TABLE T0878
                    ALTER C2 SET DEFAULT 'ABCD';

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ALTER TABLE T0878
                    DROP C1 CASCADE;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO T0878 VALUES (DEFAULT);

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :C4 CHAR(4));
      SELECT * INTO :C4
                    FROM T0878;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      DROP TABLE T0878 CASCADE;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      CREATE TABLE T0879 (
                    C1 INT,
                    C2 INT,
                    CONSTRAINT DELME CHECK (C1 > 0),
                    CONSTRAINT REFME UNIQUE (C2));

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      CREATE TABLE U0879 (
                    C1 INT REFERENCES T0879 (C2));

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      ALTER TABLE T0879
                    DROP CONSTRAINT DELME RESTRICT;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      INSERT INTO T0879 VALUES (0, 0);

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      INSERT INTO T0879 VALUES (-1, -1);

PROCEDURE SUB37 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM T0879;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      INSERT INTO U0879 VALUES (20);

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      INSERT INTO T0879 VALUES (2, 0);

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      ALTER TABLE T0879
                    DROP CONSTRAINT REFME RESTRICT;

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      ALTER TABLE T0879
                    DROP CONSTRAINT REFME CASCADE;

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      INSERT INTO U0879 VALUES (20);

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      INSERT INTO T0879 VALUES (0, 0);

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      DROP TABLE T0879 CASCADE;

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      DROP TABLE U0879 CASCADE;

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB54 (SQLCODE, SQLSTATE);
      COMMIT WORK;