Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml154.cob   Sprache: Cobol

rahmenlose Ansicht.mco DruckansichtLatech {Latech[101] Ada[172] Abap[295]}zum Wurzelverzeichnis wechseln

-- 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;

[ Verzeichnis aufwärts0.188unsichere Verbindung  ]