Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Sprache: Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: xts770.cob Sprache: Unknown

Haftungsausschluß.mco KontaktBAT {BAT[180] Ada[313] Abap[322]}diese Dinge liegen außhalb unserer Verantwortung

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

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 TIMEPREC (
                    C1 INTERVAL YEAR (7) TO MONTH,
                    C2 INTERVAL MONTH (7),
                    C3 INTERVAL DAY (7) TO HOUR,
                    C4 INTERVAL HOUR (7) TO MINUTE,
                    C5 INTERVAL MINUTE (7) TO SECOND,
                    C6 INTERVAL SECOND (7),
                    C7 INTERVAL SECOND (7, 0));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TIMEPREC VALUES (
                    INTERVAL '9999999-03' YEAR TO MONTH,
                    INTERVAL '9999999' MONTH,
                    INTERVAL '9999999 3' DAY TO HOUR,
                    INTERVAL '9999999:03' HOUR TO MINUTE,
                    INTERVAL '9999999:03' MINUTE TO SECOND,
                    INTERVAL '9999999.444444' SECOND,
                    INTERVAL '9999999' SECOND);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9));
      SELECT EXTRACT (YEAR FROM C1),
                    EXTRACT (MONTH FROM C2),
                    EXTRACT (DAY FROM C3),
                    EXTRACT (HOUR FROM C4),
                    EXTRACT (MINUTE FROM C5),
                    EXTRACT (SECOND FROM C6),
                    EXTRACT (SECOND FROM C7)
                    INTO :INT1, :INT2, :INT3, :INT4, :INT5, :INT6, :INT7
                    FROM TIMEPREC;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DELETE FROM TIMEPREC;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TIMEPREC VALUES (
                    INTERVAL -'9999999-03' YEAR TO MONTH,
                    INTERVAL -'9999999' MONTH,
                    INTERVAL -'9999999 3' DAY TO HOUR,
                    INTERVAL -'9999999:03' HOUR TO MINUTE,
                    INTERVAL -'9999999:03' MINUTE TO SECOND,
                    INTERVAL -'9999999.444444' SECOND,
                    INTERVAL -'9999999' SECOND);

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9),
    :INT2 NUMERIC (9),
    :INT3 NUMERIC (9),
    :INT4 NUMERIC (9),
    :INT5 NUMERIC (9),
    :INT6 NUMERIC (9),
    :INT7 NUMERIC (9));
      SELECT EXTRACT (YEAR FROM C1),
                    EXTRACT (MONTH FROM C2),
                    EXTRACT (DAY FROM C3),
                    EXTRACT (HOUR FROM C4),
                    EXTRACT (MINUTE FROM C5),
                    EXTRACT (SECOND FROM C6),
                    EXTRACT (SECOND FROM C7)
                    INTO :INT1, :INT2, :INT3, :INT4, :INT5, :INT6, :INT7
                    FROM TIMEPREC;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DROP TABLE TIMEPREC CASCADE;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;