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 P/xts/ Datei vom 4.1.2008 mit Größe 34 kB

Quelle dml177.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml177.mco
-- 59-byte ID
--
MODULE DML177
LANGUAGE COBOL
AUTHORIZATION FLATER

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE NOMAIL (
                    C1 INT);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO NOMAIL VALUES (2147483647);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO NOMAIL VALUES (-2147483647);

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM NOMAIL WHERE C1 > 0;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM NOMAIL WHERE C1 < 0;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 - 2147483646 INTO :INT1
                    FROM NOMAIL
                    WHERE C1 > 0;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 + 2147483646 INTO :INT1
                    FROM NOMAIL
                    WHERE C1 < 0;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      UPDATE NOMAIL
                    SET C1 = C1 + 2147483646
                    WHERE C1 < 0;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM NOMAIL WHERE C1 < 0;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      UPDATE NOMAIL
                    SET C1 = C1 - 1;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM NOMAIL
                    WHERE C1 = 2147483645;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM NOMAIL
                    WHERE C1 = 2147483646;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM NOMAIL
                    WHERE C1 = 2147483647;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      CREATE TABLE YESMAIL (
                    C1 SMALLINT);

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO YESMAIL VALUES (32767);

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO YESMAIL VALUES (-32767);

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM YESMAIL WHERE C1 > 0;

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM YESMAIL WHERE C1 < 0;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 - 32766 INTO :INT1
                    FROM YESMAIL
                    WHERE C1 > 0;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 + 32766 INTO :INT1
                    FROM YESMAIL
                    WHERE C1 < 0;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      UPDATE YESMAIL
                    SET C1 = C1 + 32766
                    WHERE C1 < 0;

PROCEDURE SUB32 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT C1 INTO :INT1
                    FROM YESMAIL WHERE C1 < 0;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      UPDATE YESMAIL
                    SET C1 = C1 - 1;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM YESMAIL
                    WHERE C1 = 32765;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM YESMAIL
                    WHERE C1 = 32766;

PROCEDURE SUB36 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (10));
      SELECT COUNT(*) INTO :INT1
                    FROM YESMAIL
                    WHERE C1 = 32767;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      DROP TABLE YESMAIL CASCADE;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0890','pass','MCO');

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0890','fail','MCO');

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      COMMIT WORK;