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/C/Cephes/ldouble/ Datei vom 13.8.1996 mit Größe 196 B

Quelle dml075.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml075.mco
-- 59-byte ID

MODULE DML075
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE FIDO CURSOR FOR
               SELECT PNUM, SUM(HOURS)
               FROM WORKS
               GROUP BY PNUM
               HAVING EXISTS (SELECT PNAME FROM PROJ
               WHERE PROJ.PNUM = WORKS.PNUM AND
               SUM(WORKS.HOURS) > PROJ.BUDGET/200)
DECLARE YY CURSOR FOR
               SELECT PTYPE, CITY
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000
DECLARE ZZ CURSOR FOR
               SELECT DISTINCT PTYPE, CITY
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000
DECLARE AA CURSOR FOR
               SELECT DISTINCT SUM(BUDGET)
               FROM PROJ
               GROUP BY PTYPE, CITY
               HAVING AVG(BUDGET) > 21000

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

PROCEDURE SUB1 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF
                    WHERE EMPNUM IN
                    (SELECT EMPNUM FROM WORKS);

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF1
                    SELECT * FROM STAFF;

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF1
                    WHERE EMPNUM IN
                    (SELECT EMPNUM FROM WORKS);

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0431','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0431','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE PROJ SET CITY = NULL
                    WHERE PNUM = 'P3';

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF
                    WHERE CITY = ALL (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB10 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM STAFF
                    WHERE CITY <> ALL (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB11 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM STAFF
                    WHERE CITY = ANY (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB12 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT4
                    FROM STAFF
                    WHERE CITY <> ANY (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB13 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT5
                    FROM STAFF
                    WHERE CITY = SOME (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB14 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT6
                    FROM STAFF
                    WHERE CITY <> SOME (SELECT CITY
                    FROM PROJ
                    WHERE PNAME = 'SDP');

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0432','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0432','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ
                    WHERE PNUM = ALL (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB20 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM PROJ
                    WHERE PNUM <> ALL (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB21 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM PROJ
                    WHERE PNUM = ANY (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB22 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT4
                    FROM PROJ
                    WHERE PNUM <> ANY (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB23 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT5
                    FROM PROJ
                    WHERE PNUM = SOME (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB24 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT6
                    FROM PROJ
                    WHERE PNUM <> SOME (SELECT PNUM
                    FROM WORKS
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0433','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0433','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
    OPEN FIDO;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0434','pass','MCO');

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0434','fail','MCO');

PROCEDURE SUB31 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB32 SQLCODE;
    OPEN YY;

PROCEDURE SUB33 SQLCODE;
      CLOSE YY;

PROCEDURE SUB34 SQLCODE;
    OPEN ZZ;

PROCEDURE SUB35 SQLCODE;
      CLOSE ZZ;

PROCEDURE SUB36 SQLCODE;
    OPEN AA;

PROCEDURE SUB37 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0442','pass','MCO');

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0442','fail','MCO');

PROCEDURE SUB39 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE
    :NUM CHAR(3)
    :HRS NUMERIC (9);
      FETCH FIDO INTO :NUM, :HRS;

PROCEDURE SUB41 SQLCODE
    :PTPE CHAR(6)
    :CTY CHAR(15);
      FETCH YY INTO :PTPE, :CTY;

PROCEDURE SUB42 SQLCODE
    :PTPE CHAR(6)
    :CTY CHAR(15);
      FETCH ZZ INTO :PTPE, :CTY;

PROCEDURE SUB43 SQLCODE
    :TOTAL1 NUMERIC (9);
      FETCH AA INTO :TOTAL1;