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

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

DECLARE DATA772  CURSOR FOR
               SELECT CONSTRAINT_CATALOG, CONSTRAINT_SCHEMA,
               CONSTRAINT_NAME, IS_DEFERRABLE, INITIALLY_DEFERRED
               FROM INFORMATION_SCHEMA.ASSERTIONS

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM INFORMATION_SCHEMA.ASSERTIONS
                    WHERE IS_DEFERRABLE IS NULL;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM INFORMATION_SCHEMA.ASSERTIONS
                    WHERE INITIALLY_DEFERRED IS NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
    OPEN data772;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CC CHAR(128),
    :CS CHAR(128),
    :CN CHAR(128),
    :ID CHAR(18),
    :INID CHAR(18));
      FETCH data772 INTO :CC, :CS, :CN, :ID, :INID
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;