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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ (Columbo Version 0.7^©) Datei vom 4.1.2008 mit Größe 2 kB

SSL xts724.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts724.mco
-- 59-byte ID
--
MODULE XTS724
LANGUAGE COBOL
AUTHORIZATION CTS4

DECLARE ALPHA  CURSOR
               FOR SELECT DOMAIN_SCHEMA,COLUMN_NAME, TABLE_NAME
               FROM INFORMATION_SCHEMA.COLUMN_DOMAIN_USAGE
               WHERE DOMAIN_NAME = 'TESTDOM'
               ORDER BY COLUMN_NAME

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM INFORMATION_SCHEMA.COLUMN_DOMAIN_USAGE
                    WHERE DOMAIN_SCHEMA = 'CTS4';

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE DOMAIN TESTDOM AS NUMERIC(5)
                    CONSTRAINT CONSD724 CHECK (VALUE > 500);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB724a
                    (COLNUM1 TESTDOM,
                    COLNUM2 TESTDOM,
                    COLNUM3 TESTDOM,
                    COLNUM4 TESTDOM);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
    OPEN ALPHA;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :DOMSCH CHAR(128),
    :COLNAM CHAR(128),
    :TABNAM CHAR(128));
      FETCH ALPHA INTO :DOMSCH,:COLNAM,:TABNAM;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :DOMSCH CHAR(128),
    :COLNAM CHAR(128),
    :TABNAM CHAR(128));
      FETCH ALPHA INTO :DOMSCH,:COLNAM,:TABNAM;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :DOMSCH CHAR(128),
    :COLNAM CHAR(128),
    :TABNAM CHAR(128));
      FETCH ALPHA INTO :DOMSCH,:COLNAM,:TABNAM;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :DOMSCH CHAR(128),
    :COLNAM CHAR(128),
    :TABNAM CHAR(128));
      FETCH ALPHA INTO :DOMSCH,:COLNAM,:TABNAM;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      CLOSE ALPHA;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      DROP DOMAIN TESTDOM CASCADE;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM INFORMATION_SCHEMA.COLUMN_DOMAIN_USAGE
                    WHERE DOMAIN_SCHEMA = 'CTS4';

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;