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

SSL dml110.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml110.mco
-- 59-byte ID
--
MODULE DML110
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C11011  CURSOR FOR
               SELECT EXTRACT (MINUTE FROM LUNCH) FROM TEMPS
DECLARE C11012  CURSOR FOR
               SELECT EXTRACT (YEAR FROM ENTERED) FROM TEMPS WHERE
               LUNCH = INTERVAL '0:45' HOUR TO MINUTE

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE TEMPS (
                    ENTERED  TIMESTAMP,
                    START    DATE,
                    APPT     INTERVAL DAY,
                    HOUR_IN  TIME,
                    HOUR_OUT TIME,
                    LUNCH    INTERVAL HOUR TO MINUTE);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-10 12:25:14',
                    DATE '1993-11-12',
                    INTERVAL '4' DAY,
                    TIME '08:30:00',
                    TIME '16:30:00',
                    INTERVAL '1:00' HOUR TO MINUTE);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-10 13:15:14',
                    DATE '1993-11-15',
                    INTERVAL '5' DAY,
                    TIME '08:30:00',
                    TIME '17:30:00',
                    INTERVAL '0:30' HOUR TO MINUTE);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO TEMPS VALUES (
                    TIMESTAMP '1993-11-17 09:56:48',
                    DATE '1994-11-18',
                    INTERVAL '3' DAY,
                    TIME '09:00:00',
                    TIME '17:00:00',
                    INTERVAL '1:00' HOUR TO MINUTE);

PROCEDURE SUB8 SQLCODE SQLSTATE;
    OPEN C11011;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      CLOSE C11011;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11011 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      UPDATE TEMPS
                    SET LUNCH = INTERVAL '0:45' HOUR TO MINUTE
                    WHERE CURRENT OF C11011;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CLOSE C11011;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) <> 0
                    AND EXTRACT (MINUTE FROM LUNCH)
                    <> 30;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) = 45;

PROCEDURE SUB20 SQLCODE SQLSTATE;
    OPEN C11012;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11012 INTO :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DELETE FROM TEMPS
                    WHERE CURRENT OF C11012;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CLOSE C11012;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS WHERE
                    EXTRACT (MINUTE FROM LUNCH) = 45;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TEMPS;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DROP TABLE TEMPS CASCADE;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0619','pass','MCO');

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0619','fail','MCO');

PROCEDURE SUB31 SQLCODE SQLSTATE;
      COMMIT WORK;