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 yts769.mco Sprache: unbekannt

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

DECLARE DATA769  CURSOR FOR
               SELECT DOMAIN_SCHEMA, DOMAIN_NAME, DATA_TYPE
               FROM INFORMATION_SCHEMA.DOMAINS
               WHERE DOMAIN_NAME IN
               ('ESAL','NUMDOM','DOMCHAR','DOMSMALL')

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 data769;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DOMSCH CHAR(128),
    :DOMN CHAR(128),
    :DTYPE CHAR(29));
      FETCH DATA769 INTO :DOMSCH, :DOMN, :DTYPE;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CLOSE data769;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      CREATE DOMAIN cts1b.esal AS INTEGER;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.DOMAINS
                    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.DOMAINS
                    WHERE DOMAIN_NAME = 'ESAL';

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;