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 1 kB

Quelle xts750.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts750.mco
-- 59-byte ID
--
MODULE XTS750
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);
      CREATE DOMAIN D12749 AS NUMERIC(5)
                    CONSTRAINT CTS1.CND12749 CHECK(VALUE > 0);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE CONSTRAINT_SCHEMA = 'CTS1'
                    AND DOMAIN_SCHEMA = 'CTS1'
                    AND DOMAIN_NAME = 'D12749';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CNAME CHAR(29));
      SELECT CONSTRAINT_NAME INTO :CNAME
                    FROM INFORMATION_SCHEMA.DOMAIN_CONSTRAINTS
                    WHERE CONSTRAINT_SCHEMA = 'CTS1' AND DOMAIN_SCHEMA =
                  'CTS1'
                    AND DOMAIN_NAME = 'D12749';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DROP DOMAIN D12749 CASCADE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;