products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: dml118.mco   Sprache: Lisp

Untersuchungsergebnis.mco Download desPostscript {Postscript[179] BAT[241] Ada[376]}zum Wurzelverzeichnis wechseln

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

DECLARE DATA780  CURSOR FOR
               SELECT num, colthu, coltmu,
               EXTRACT (HOUR FROM TT2),
               EXTRACT (MINUTE FROM TT2)
               FROM TTSTORE2
               ORDER BY colthu, coltmu
DECLARE DATA780B  CURSOR FOR
               SELECT num FROM TTSTORE2
               WHERE TT2 BETWEEN TIME '12:25:00-04:00'
               AND TIME '20:40:00+01:00'
               ORDER BY num DESC


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 TTIME2 
                    VALUES (4, TIME '12:00:00-07:35',TIMESTAMP '1995-12-25
                  12:00:00-07:35');

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (5, TIME '10:00:00-09:40',TIMESTAMP '2000-01-01
                  00:00:00-12:32');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (2, TIME '00:10:00+08:38',TIMESTAMP '1984-12-07
                  19:56:32+08:29');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (3, TIME '05:55:15-10:30',TIMESTAMP '1970-07-13
                  09:45:10+01:00');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TTIME2
                    VALUES (1, TIME '17:49:32+05:55',TIMESTAMP '1972-05-07
                  02:58:30-11:34');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TTSTORE2
                    SELECT PK,
                    EXTRACT (HOUR FROM 
                    TT2 AT TIME ZONE INTERVAL '00:00' HOUR TO MINUTE),
                    EXTRACT (MINUTE FROM
                    TT2 AT TIME ZONE INTERVAL '00:00' HOUR TO MINUTE),
                    TT2
                    FROM TTIME2;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
    OPEN data780;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :UTHR NUMERIC (4),
    :UTMIN NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      FETCH data780 INTO 
                    :ID, :UTHR, :UTMIN, :LOCHR, :LOCMIN;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :UTHR NUMERIC (4),
    :UTMIN NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      FETCH data780 INTO 
                    :ID, :UTHR, :UTMIN, :LOCHR, :LOCMIN;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :UTHR NUMERIC (4),
    :UTMIN NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      FETCH data780 INTO 
                    :ID, :UTHR, :UTMIN, :LOCHR, :LOCMIN;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :UTHR NUMERIC (4),
    :UTMIN NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      FETCH data780 INTO 
                    :ID, :UTHR, :UTMIN, :LOCHR, :LOCMIN;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :UTHR NUMERIC (4),
    :UTMIN NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      FETCH data780 INTO 
                    :ID, :UTHR, :UTMIN, :LOCHR, :LOCMIN;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      CLOSE data780;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4),
    :LOCHR NUMERIC (4),
    :LOCMIN NUMERIC (4));
      SELECT PK,
                    EXTRACT (HOUR FROM TS2),
                    EXTRACT (MINUTE FROM TS2)
                    INTO :ID, :LOCHR, :LOCMIN
                    FROM TTIME2
                    WHERE PK = 1;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
    OPEN data780b;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4));
      FETCH DATA780B INTO :ID;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4));
      FETCH DATA780B INTO :ID;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :ID NUMERIC (4));
      FETCH DATA780B INTO :ID;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      CLOSE data780b;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.146Quellennavigators  ]