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

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

DECLARE C14736  CURSOR FOR
               SELECT EMPNUM, CITY, SALARY
               FROM HU.STAFF3 FULL OUTER JOIN STAFF66 USING (EMPNUM)
               ORDER BY EMPNUM

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 STAFF66 (
                    SALARY   INTEGER,
                    EMPNAME CHAR(20),
                    GRADE   DECIMAL,
                    EMPNUM  CHAR(3));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF66
                    SELECT GRADE*1000, EMPNAME, GRADE, EMPNUM
                    FROM HU.STAFF3 WHERE EMPNUM > 'E2';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF3 SET EMPNUM = 'E6' WHERE EMPNUM =
                  'E5';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF3 SET EMPNAME = 'Ali' WHERE GRADE =
                  12;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
    OPEN C14736;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :INDIC1 NUMERIC (4),
    :SL NUMERIC (9));
      FETCH C14736 INTO :EN, :CT:INDIC1, :SL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DROP TABLE STAFF66 CASCADE;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;