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

-- SQL Test Suite, V6.0, SQL Module yts752.mco
-- 59-byte ID
--
MODULE YTS752
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 sintdom AS SMALLINT
                    CHECK (VALUE > 5)
                    CHECK (VALUE < 24000);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE shorttab
                    (keycol integer,
                    domcol sintdom);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :HOST1 NUMERIC (4));
      INSERT INTO shorttab VALUES (1,:HOST1);

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :HOST2 NUMERIC (4));
      INSERT INTO shorttab VALUES (2,:HOST2);

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :HOST3 NUMERIC (9));
      INSERT INTO shorttab VALUES (3, :HOST3);

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :HOST4 NUMERIC (4));
      INSERT INTO shorttab VALUES (4,:HOST4);

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :HOST1 NUMERIC (4));
      SELECT COUNT(*) INTO :HOST1 FROM shorttab;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :HOST2 NUMERIC (4));
      SELECT domcol INTO :HOST2 FROM shorttab
                    WHERE keycol = 1;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :HOST3 NUMERIC (9));
      SELECT domcol INTO :HOST3 FROM shorttab
                    WHERE keycol = 4;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      DROP TABLE shorttab CASCADE;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP DOMAIN sintdom CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;