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 4 kB

Quelle dml090.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml090.mco
-- 59-byte ID
--
MODULE DML090
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE ZZZ  CURSOR FOR
               SELECT CITY, COUNT(*) FROM PROJ
               GROUP BY CITY
               HAVING (MAX(BUDGET) - MIN(BUDGET)) / :II
               IN (:II, :JJ, :KK)
               ORDER BY CITY DESC
DECLARE KKK  CURSOR FOR
               SELECT CITY, COUNT(*) FROM PROJ
               GROUP BY CITY
               HAVING :JJ + 2 BETWEEN 33000 AND SUM(BUDGET) - 20

DECLARE P_JONES  CURSOR FOR
               SELECT EMPNUM, GRADE*1000
               FROM HU.STAFF WHERE GRADE * 1000 > ANY
               (SELECT SUM(BUDGET) FROM HU.PROJ
               GROUP BY CITY, PTYPE
               HAVING HU.PROJ.CITY = HU.STAFF.CITY)

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

PROCEDURE SUB2 SQLCODE
    :PTYPE1 CHAR(6)
    :KK NUMERIC (9)
    :JJ NUMERIC (9);
      SELECT MIN(PNAME) INTO :PTYPE1
                    FROM PROJ, WORKS, STAFF
                    WHERE PROJ.PNUM = WORKS.PNUM
                    AND WORKS.EMPNUM = STAFF.EMPNUM
                    AND BUDGET - GRADE * HOURS * 100 IN
                    (:KK, -1000, :JJ);

PROCEDURE SUB3 SQLCODE
    :II NUMERIC (9)
    :JJ NUMERIC (9)
    :KK NUMERIC (9);
    OPEN ZZZ;

PROCEDURE SUB4 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB5 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB6 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH ZZZ INTO :CITY1, :LONG1;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0512','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0512','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      DELETE FROM TEMP_OBSERV;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV)
                    VALUES (9999);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV)
                    VALUES (10000);

PROCEDURE SUB14 SQLCODE;
      UPDATE TEMP_OBSERV
                    SET YEAR_OBSERV = -10000
                    WHERE YEAR_OBSERV = 9999;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV, MAX_TEMP)
                    VALUES (-9999, 123.4517);

PROCEDURE SUB16 SQLCODE
    :LONG1 NUMERIC (9);
      SELECT COUNT(*) INTO :LONG1 FROM TEMP_OBSERV
                    WHERE MAX_TEMP = 123.45
                    AND MAX_TEMP NOT BETWEEN 123.4516 AND 123.4518;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TEMP_OBSERV (YEAR_OBSERV, MAX_TEMP)
                    VALUES (-9999, 1234.51);

PROCEDURE SUB18 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE
    :LONG1 NUMERIC (9)
    :KK NUMERIC (9)
    :II NUMERIC (9)
    :JJ NUMERIC (9);
      SELECT COUNT(*) INTO :LONG1
                    FROM PROJ
                    WHERE :KK * :II BETWEEN BUDGET - 5000 AND :JJ / 1.7
                 ;

PROCEDURE SUB23 SQLCODE
    :PTYPE1 CHAR(6)
    :CITY1 CHAR(15);
      SELECT PNAME INTO :PTYPE1
                    FROM PROJ
                    WHERE :CITY1 NOT BETWEEN CITY AND 'Vienna'
                    AND PNUM > 'P2';

PROCEDURE SUB24 SQLCODE
    :JJ NUMERIC (9);
    OPEN KKK;

PROCEDURE SUB25 SQLCODE
    :CITY1 CHAR(15)
    :LONG1 NUMERIC (9);
      FETCH KKK INTO :CITY1, :LONG1;

PROCEDURE SUB26 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0523','pass','MCO');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0523','fail','MCO');

PROCEDURE SUB29 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE;
    OPEN P_JONES;

PROCEDURE SUB31 SQLCODE
    :PTYPE1 CHAR(6)
    :LONG1 NUMERIC (9);
      FETCH P_JONES INTO :PTYPE1, :LONG1;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0564','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0564','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;