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

-- SQL Test Suite, V6.0, SQL Module dml084.mco
-- 59-byte ID
--
MODULE DML084
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

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

PROCEDURE SUB2 SQLCODE SQLSTATE
    :CT1 CHAR(2);
      SELECT COL2 INTO :CT1 FROM HU.UPUNIQ WHERE NUMKEY
                  = 1;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      UPDATE HU.UPUNIQ SET COL2 = 'xx';

PROCEDURE SUB4 SQLCODE SQLSTATE;
      DELETE FROM HU.UPUNIQ;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES (9,'M');

PROCEDURE SUB6 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF
                    WHERE GRADE <
                    (SELECT MAX(HOURS) FROM HU.WORKS)
                    OR    GRADE >
                    (SELECT MAX(NUMKEY) FROM HU.UPUNIQ)
                    OR    GRADE + 100 >
                    (SELECT MIN(HOURS) FROM HU.WORKS);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES (13,44);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES
                       (555666777);

PROCEDURE SUB9 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CT1 CHAR(2);
      SELECT COL2 INTO :CT1 FROM HU.UPUPUP WHERE NUMKEY
                  = 1;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      UPDATE HU.UPUPUP SET COL2 = 'xx';

PROCEDURE SUB15 SQLCODE SQLSTATE;
      DELETE FROM HU.UPUPUP;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUPUP VALUES (9,'M');

PROCEDURE SUB17 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF
                    WHERE GRADE <
                    (SELECT MAX(HOURS) FROM HU.WORKS)
                    OR    GRADE >
                    (SELECT MAX(NUMKEY) FROM HU.UPUPUP)
                    OR    GRADE + 100 >
                    (SELECT MIN(HOURS) FROM HU.WORKS);

PROCEDURE SUB18 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB21 SQLCODE SQLSTATE;
      COMMIT WORK;