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

-- SQL Test Suite, V6.0, SQL Module yts757.mco
-- 59-byte ID
--
MODULE YTS757
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 TABLE dom_chk
                    (col1     atom,
                    col2     smint);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('c',38);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CO CHAR(1),
    :CO2 NUMERIC (9));
      SELECT col1, col2 INTO :CO, :CO2  FROM dom_chk
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('a',1);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('m', 100);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('z', 101);

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (9));
      SELECT COUNT (*) INTO :CO2 FROM dom_chk
                    WHERE col1 = 'z';

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      UPDATE dom_chk
                    SET col1 = 'q'
                    WHERE col2 = 38;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (9));
      SELECT COUNT (*) INTO :CO2 FROM dom_chk
                    WHERE col1 = 'q';

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('<', 100);

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO dom_chk VALUES ('a', 101);

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      DROP TABLE dom_chk CASCADE;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;