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

Impressum dml060.mco Sprache: unbekannt

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

MODULE DML060
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SUN CURSOR
             FOR   SELECT COL1, COL2
             FROM VTABLE
             WHERE ( :INT3 * (COL3 - COL2)) BETWEEN 5 AND 200
             ORDER BY COL1
DECLARE SUN1 CURSOR
             FOR   SELECT COL1, COL2
             FROM VTABLE
             WHERE (COL3 * COL2 / COL1) > ALL
             (SELECT HOURS FROM WORKS)
             OR -(COL3 * COL2 /COL1) > ANY
             (SELECT HOURS FROM WORKS)
             ORDER BY COL1
DECLARE SUN2 CURSOR
             FOR   SELECT COL1, (COL3 * COL2 /COL1 - COL2 + 10)
             FROM VTABLE
             WHERE COL1 > 0
             ORDER BY 2
DECLARE DIPER CURSOR
             FOR SELECT EMPNUM,PNUM,HOURS
             FROM   SUBSP
DECLARE DOVE CURSOR
             FOR SELECT EMPNUM,PNUM,HOURS
             FROM   SUBSP
DECLARE PANDA CURSOR
             FOR   SELECT DISTINCT PX.PNUM,PY.PNUM
             FROM WORKS PX, WORKS PY
             ORDER BY 2 DESC

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

PROCEDURE SUB1 SQLCODE
    :INT3 NUMERIC (9);
    OPEN SUN;

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

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

PROCEDURE SUB4 SQLCODE;
      CLOSE SUN;

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

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE VTABLE
                  SET COL1 = 1
                  WHERE COL1 = 0;

PROCEDURE SUB9 SQLCODE;
    OPEN SUN1;

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

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

PROCEDURE SUB12 SQLCODE;
      CLOSE SUN1;

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0262','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0262','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
    OPEN SUN2;

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

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

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

PROCEDURE SUB21 SQLCODE;
      CLOSE SUN2;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0263','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0263','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO WORKS
                  VALUES ('E3','P4',50);

PROCEDURE SUB26 SQLCODE;
    OPEN DIPER;

PROCEDURE SUB27 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DIPER INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB28 SQLCODE;
      UPDATE SUBSP
                  SET EMPNUM='E9'
                  WHERE CURRENT OF DIPER;

PROCEDURE SUB29 SQLCODE;
      CLOSE DIPER;

PROCEDURE SUB30 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0265','pass','MCO');

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0265','fail','MCO');

PROCEDURE SUB33 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO WORKS
                  VALUES ('E3','P4',50);

PROCEDURE SUB35 SQLCODE;
    OPEN DOVE;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DOVE INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB37 SQLCODE;
      UPDATE SUBSP
                  SET PNUM='P6'
                  WHERE CURRENT OF DOVE;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DOVE INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB39 SQLCODE;
      UPDATE SUBSP
                  SET PNUM='P6'
                  WHERE CURRENT OF DOVE;

PROCEDURE SUB40 SQLCODE;
      CLOSE DOVE;

PROCEDURE SUB41 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB42 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0266','pass','MCO');

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0266','fail','MCO');

PROCEDURE SUB44 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB45 SQLCODE;
      DELETE FROM WORKS1;

PROCEDURE SUB46 SQLCODE;
    OPEN PANDA;

PROCEDURE SUB47 SQLCODE;
      CLOSE PANDA;

PROCEDURE SUB48 SQLCODE;
      UPDATE WORKS1
                  SET PNUM = EMPNUM, EMPNUM = PNUM;

PROCEDURE SUB49 SQLCODE
    :HOURS1 NUMERIC (9);
      SELECT COUNT(*)
                  INTO  :HOURS1 FROM WORKS1
                  WHERE EMPNUM = 'P1' AND HOURS > 30;

PROCEDURE SUB50 SQLCODE;
      CLOSE PANDA;

PROCEDURE SUB51 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0267','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0267','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE
    :PNO1 CHAR(3)
    :PNO2 CHAR(3);
      FETCH PANDA INTO  :PNO1, :PNO2;

PROCEDURE SUB56 SQLCODE
    :PNO1 CHAR(3)
    :PNO2 CHAR(3)
    :II NUMERIC (9);
      INSERT INTO WORKS1
                    VALUES( :PNO1, :PNO2, :II);