Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 2 kB

Quelle yts770.mco Sprache: unbekannt

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

DECLARE DATA770  CURSOR FOR
               SELECT DOMAIN_SCHEMA, DOMAIN_NAME
               FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
               WHERE DOMAIN_NAME IN ('DOMSMALL', 'ESAL')

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DROP DOMAIN cts1b.esal CASCADE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
    OPEN data770;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DOMS CHAR(128),
    :DOMN CHAR(128));
      FETCH data770 INTO :DOMS, :DOMN;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CLOSE data770;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      CREATE DOMAIN cts1b.esal AS INTEGER
                    CHECK  (VALUE<500);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE DOMAIN_NAME = 'ESAL';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      DROP DOMAIN cts1b.esal CASCADE;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE DOMAIN_NAME LIKE 'ESAL%';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE DOMAIN_SCHEMA NOT IN
                    ('CTS1','CTS1B');

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      CREATE DOMAIN cts1b.esal AS INTEGER
                    CHECK  (VALUE>500);

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;