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 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: yts754.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: BAT {BAT[98] Ada[231] Abap[294]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module yts807.mco
-- 59-byte ID
--
MODULE YTS807
LANGUAGE COBOL
AUTHORIZATION CTS1

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM TTIME_BASE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME (PK, TT)
                    VALUES (1, TIME '00:00:00');

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :HRS NUMERIC (4),
    :MIN NUMERIC (4));
      SELECT PK,
                    EXTRACT (TIMEZONE_HOUR FROM CAST (TT AS TIME WITH TIME
                  ZONE)),
                    EXTRACT (TIMEZONE_MINUTE FROM CAST (TT AS TIME WITH TIME
                  ZONE))
                    INTO :ID, :HRS, :MIN
                    FROM TTIME
                    WHERE PK = 1;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      DELETE FROM TTIME_BASE;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (1, TIME '00:00:00+07:35',
                    TIMESTAMP '1995-12-25 00:00:00+07:35');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (2, TIME '01:00:15+09:15',
                    TIMESTAMP '1990-07-13 10:30:16+12:35');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (3, TIME '23:30:10-16:12',
                    TIMESTAMP '1989-03-30 07:58:10-02:20');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (4, TIME '12:55:05-07:35',
                    TIMESTAMP '1970-06-28 20:10:15-10:07');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (5, TIME '09:45:45+09:15',
                    TIMESTAMP '1961-04-21 01:02:03+05:29');

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ID2 NUMERIC (4),
    :HR1 NUMERIC (4),
    :MN1 NUMERIC (4),
    :HR2 NUMERIC (4),
    :MN2 NUMERIC (4));
      SELECT PK,
                    EXTRACT (TIMEZONE_HOUR FROM TT2),
                    EXTRACT (TIMEZONE_MINUTE FROM TT2),
                    EXTRACT (TIMEZONE_HOUR FROM TS2),
                    EXTRACT (TIMEZONE_MINUTE FROM TS2)
                    INTO :ID2, :HR1, :MN1, :HR2, :MN2
                    FROM TTIME2
                    WHERE PK = 1;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO ET (col5)
                    SELECT EXTRACT (TIMEZONE_MINUTE FROM TS2) AS AA
                    FROM TTIME2;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (DISTINCT COL5) INTO :CO
                    FROM CTS1.ET;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7564','pass','MCO');

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7564','fail','MCO');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;