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: yts791.cob Sprache: Unknown

Haftungsausschluß.mco KontaktPython {Python[111] Lex[119] Fortran[125]}diese Dinge liegen außhalb unserer Verantwortung

-- SQL Test Suite, V6.0, SQL Module yts782.mco
-- 59-byte ID
--
MODULE YTS782
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);
      INSERT  INTO TTIME (PK, TT)
                    VALUES (2, TIME '10:50:00');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT  INTO TTIME (PK, TT)
                    VALUES (3, TIME '20:11:00');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT  INTO TTIME (PK, TT)
                    VALUES (4, TIME '01:45:00');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME (PK)
                    VALUES (5);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL '13:01' HOUR TO MINUTE
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM TTIME
                    WHERE PK = 1
                    AND TT = TIME '00:00:00';

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      SET TIME ZONE INTERVAL -'13:00' HOUR TO MINUTE
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM TTIME
                    WHERE PK = 1
                    AND TT = TIME '00:00:00';

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      SET TIME ZONE CAST ((SELECT A.TT - B.TT
                    FROM TTIME A, TTIME B
                    WHERE A.PK = 3 AND B.PK = 5) AS INTERVAL HOUR TO MINUTE)
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM TTIME
                    WHERE PK = 1
                    AND TT = TIME '00:00:00';

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;