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

Quelle dml059.mco Sprache: unbekannt

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

MODULE DML059
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SUN CURSOR
             FOR   SELECT COL1,MAX(COL2 + COL3),MIN(COL3 - COL2)
             FROM VTABLE
             GROUP BY COL1
             ORDER BY COL1
DECLARE UN CURSOR
             FOR   SELECT COL1,SUM(:INT3 * COL2 * COL3)
             FROM VTABLE
             GROUP BY COL1
             HAVING SUM(COL2 * COL3) > 2000
             OR SUM(COL2 * COL3) < -2000
             ORDER BY COL1
DECLARE SUN1 CURSOR
             FOR   SELECT COL1,MAX(COL2)
             FROM VTABLE
             GROUP BY COL1
             HAVING MAX(COL2) > ANY (SELECT GRADE FROM STAFF)
             AND MAX(COL2) < SOME (SELECT HOURS FROM WORKS)
             ORDER BY COL1
DECLARE SUN2 CURSOR
             FOR   SELECT COL1,MAX(COL2)
             FROM VTABLE
             GROUP BY COL1
             HAVING EXISTS (SELECT * FROM STAFF
             WHERE EMPNUM = 'E1')
             AND MAX(COL2) BETWEEN 10 AND 90
             ORDER BY COL1
DECLARE SUN3 CURSOR
             FOR SELECT SUM(COL1)
             FROM VTABLE
             WHERE  :INT3 + COL1 > COL2
             HAVING MAX(COL1) > 100

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

PROCEDURE SUB2 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (10,11,12,13,15);

PROCEDURE SUB3 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (100,111,1112,113,115);

PROCEDURE SUB4 SQLCODE;
    OPEN SUN;

PROCEDURE SUB5 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      FETCH SUN INTO :INT1,:INT2,:INT3;

PROCEDURE SUB6 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      FETCH SUN INTO :INT1,:INT2,:INT3;

PROCEDURE SUB7 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      FETCH SUN INTO :INT1,:INT2,:INT3;

PROCEDURE SUB8 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9)
    :INT3 NUMERIC (9);
      FETCH SUN INTO :INT1,:INT2,:INT3;

PROCEDURE SUB9 SQLCODE;
      CLOSE SUN;

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0257','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0257','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (10,11,12,13,15);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (100,111,1112,113,115);

PROCEDURE SUB16 SQLCODE
    :INT3 NUMERIC (9);
    OPEN UN;

PROCEDURE SUB17 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH UN INTO :INT1,:INT2;

PROCEDURE SUB18 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH UN INTO :INT1,:INT2;

PROCEDURE SUB19 SQLCODE;
      CLOSE UN;

PROCEDURE SUB20 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0258','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0258','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (10,11,12,13,15);

PROCEDURE SUB25 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (100,111,1112,113,115);

PROCEDURE SUB26 SQLCODE;
    OPEN SUN1;

PROCEDURE SUB27 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN1 INTO :INT1,:INT2;

PROCEDURE SUB28 SQLCODE;
      CLOSE SUN1;

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0259','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0259','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (10,11,12,13,15);

PROCEDURE SUB34 SQLCODE;
      INSERT INTO VTABLE
                  VALUES (100,111,1112,113,115);

PROCEDURE SUB35 SQLCODE;
    OPEN SUN2;

PROCEDURE SUB36 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN2 INTO :INT1,:INT2;

PROCEDURE SUB37 SQLCODE;
      CLOSE SUN2;

PROCEDURE SUB38 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0260','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0260','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :INT3 NUMERIC (9);
    OPEN SUN3;

PROCEDURE SUB43 SQLCODE
    :INT1 NUMERIC (9);
      FETCH SUN3 INTO :INT1;

PROCEDURE SUB44 SQLCODE;
      CLOSE SUN3;

PROCEDURE SUB46 SQLCODE
    :INT1 NUMERIC (9);
      FETCH SUN3 INTO :INT1;

PROCEDURE SUB47 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0264','pass','MCO');

PROCEDURE SUB48 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0264','fail','MCO');

PROCEDURE SUB49 SQLCODE;
      COMMIT WORK;