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: cdr017.mco Sprache: Cobol

rahmenlose Ansicht.mco DruckansichtPostscript {Postscript[152] BAT[206] Ada[343]}Entwicklung

-- SQL Test Suite, V6.0, SQL Module yts808.mco
-- 59-byte ID
--
MODULE YTS808
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 VALUES
                    (1, TIME '00:00:00', TIMESTAMP '1995-06-07 00:00:00')
                 ;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (2, TIME '10:15:13', TIMESTAMP '1980-04-10 10:15:13')
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (3, TIME '23:14:09', TIMESTAMP '1973-09-22 23:14:09')
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (4, TIME '05:39:42', TIMESTAMP '1999-12-31 05:39:42')
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (5, TIME '17:56:26', TIMESTAMP '1961-10-28 17:56:26')
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME VALUES
                    (6, TIME '17:56:26', TIMESTAMP '1961-10-28 17:56:26')
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CO1 NUMERIC (4));
      SELECT COUNT (*) INTO :CO1
                    FROM TTIME
                    WHERE TT AT LOCAL > TIME '10:30:05+01:45';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (4));
      SELECT COUNT (*) INTO :CO2
                    FROM TTIME
                    WHERE TIME '06:15:05-02:30' >= TT AT LOCAL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CO3 NUMERIC (4));
      SELECT COUNT (*) INTO :CO3
                    FROM TTIME
                    WHERE TS AT LOCAL > TIMESTAMP '1980-04-10 10:30:05+01:45'
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :CO4 NUMERIC (4));
      SELECT COUNT (*) INTO :CO4
                    FROM TTIME
                    WHERE TIMESTAMP '1980-04-10 06:15:05-02:30' >= TS AT
                  LOCAL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;