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 Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 31 kB

SSL dml160.mco Interaktion und
Portierbarkeitunbekannt

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

DECLARE C16011  CURSOR FOR
               SELECT EMPNUM, (SELECT COUNT(*) FROM HU.WORKS JOIN
             HU.PROJ
               ON HU.WORKS.PNUM = HU.PROJ.PNUM
               AND BUDGET > AVG (OSTAFF.GRADE) * 1000
               WHERE HU.WORKS.EMPNUM = OSTAFF.EMPNUM) FROM HU.STAFF AS
             OSTAFF
               ORDER BY 2, 1

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN C16011;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :CNTH NUMERIC (9));
      FETCH C16011 INTO :EMNUM, :CNTH;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :CNTH NUMERIC (9));
      FETCH C16011 INTO :EMNUM, :CNTH;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :CNTH NUMERIC (9));
      FETCH C16011 INTO :EMNUM, :CNTH;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :CNTH NUMERIC (9));
      FETCH C16011 INTO :EMNUM, :CNTH;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :EMNUM CHAR(3),
    :CNTH NUMERIC (9));
      FETCH C16011 INTO :EMNUM, :CNTH;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CREATE DOMAIN EPOCH_NOT_NORM AS DECIMAL (5, 2)
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      CREATE DOMAIN RAD_EPOCH_TYPE FLOAT (20)
                    CHECK (VALUE BETWEEN 0E0 AND 2E0 * 3.1416E0);

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      CREATE DOMAIN RAD_EPOCH_NOT_NORM REAL;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      CREATE DOMAIN TIDEDATE AS DATE
                    CHECK (VALUE BETWEEN DATE '1994-01-01' AND DATE
                  '2025-12-31');

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      CREATE DOMAIN TIDETIMESTAMP AS TIMESTAMP WITH TIME
                  ZONE
                    CHECK (VALUE BETWEEN TIMESTAMP '1994-01-01
                  00:00:00+00:00'
                    AND TIMESTAMP '2025-12-31 23:59:59+00:00');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      CREATE DOMAIN DINNERTIME AS TIME
                    CHECK (VALUE BETWEEN TIME '17:30:00' AND TIME '19:00:00')
                 ;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      CREATE TABLE CONST_NOT_NORM (
                    LOC_ID DEC (7) NOT NULL,
                    CONST_ID TIDES.CONST_ID_TYPE NOT NULL,
                    UNIQUE (LOC_ID, CONST_ID),
                    AMPLITUDE TIDES.AMPLITUDE_TYPE,
                    EPOCH EPOCH_NOT_NORM);

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      CREATE VIEW CONST_RAD (LOC_ID, CONST_ID,
                    AMPLITUDE, EPOCH) AS
                    SELECT LOC_ID, CONST_ID, AMPLITUDE,
                    CAST (EPOCH * 3.14159265358979E0 / 180E0 AS
                  RAD_EPOCH_TYPE)
                    FROM TIDES.CONSTITUENTS;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      CREATE VIEW CONST_RAD_NOT_NORM (LOC_ID, CONST_ID,
                    AMPLITUDE, EPOCH) AS
                    SELECT LOC_ID, CONST_ID, AMPLITUDE,
                    CAST (EPOCH * 3.14159265358979E0 / 180E0 AS
                  RAD_EPOCH_NOT_NORM)
                    FROM CONST_NOT_NORM;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      CREATE TABLE PENDING (
                    LOC_ID DEC (7) NOT NULL,
                    FROMTIME TIDETIMESTAMP NOT NULL,
                    TOTIME TIDETIMESTAMP NOT NULL,
                    CHECK (FROMTIME <= TOTIME),
                    JOB_ID INT PRIMARY KEY);

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      CREATE VIEW CHECK_PTS (CHECK_DATES, JOB_ID, FLAG)
                  AS
                    SELECT CAST (FROMTIME AS TIDEDATE), JOB_ID,
                    CAST (0 AS INT) FROM PENDING
                    UNION
                    SELECT CAST (TOTIME AS TIDEDATE), JOB_ID,
                    CAST (1 AS INT) FROM PENDING;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      CREATE TABLE DINNER_CLUB (
                    LOC_ID DEC (7) NOT NULL,
                    DINNER DINNERTIME);

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB37 (SQLCODE, SQLSTATE,
    :XHOUR NUMERIC (9),
    :XMINIT NUMERIC (9));
      SELECT EXTRACT (HOUR FROM MERIDIAN), EXTRACT
                    (MINUTE FROM MERIDIAN) INTO :XHOUR, :XMINIT
                    FROM TIDES.LOCATIONS WHERE LOC_NAME LIKE '%Newfound%'
                 ;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      INSERT INTO TIDES.LOCATIONS VALUES (
                    300, 'Atlantis', 160.0000, 3.0000, 0, 1.2E0,
                    INTERVAL -'13:00' HOUR TO MINUTE, 'GMT-13');

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      UPDATE TIDES.CONSTITUENTS
                    SET AMPLITUDE = - AMPLITUDE
                    WHERE LOC_ID = 100
                    AND CONST_ID = 0;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      INSERT INTO TIDES.LOCATIONS VALUES (300,
                    'Bath, Maine', -69.8133, 43.9183,
                    1, 3.422E0, INTERVAL '-05:00' HOUR TO MINUTE,
                  ':US/Eastern');

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      INSERT INTO TIDES.CONSTITUENTS VALUES (300, 2,
                  0.134E0, 385.0);

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 0,
                  0.021E0, 151.6);

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 1,
                  0.324E0, 144.5);

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 2,
                  0.134E0, 385.0);

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 3,
                  0.181E0, 40.9);

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 4,
                  0.037E0, 150.0);

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 5,
                  3.143E0, 352.3);

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 6,
                  0.000E0, 50.0);

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 7,
                  0.104E0, 242.8);

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 8,
                  0.031E0, 158.6);

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 9,
                  0.000E0, 133.3);

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 10,
                  0.744E0, 322.0);

PROCEDURE SUB53 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 11,
                  0.087E0, 307.4);

PROCEDURE SUB54 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 12,
                  0.260E0, 130.4);

PROCEDURE SUB55 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 13,
                  0.011E0, 158.7);

PROCEDURE SUB56 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 14,
                  0.107E0, 140.8);

PROCEDURE SUB57 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 15,
                  0.043E0, 114.3);

PROCEDURE SUB58 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 16,
                  0.007E0, 116.4);

PROCEDURE SUB59 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 17,
                  0.004E0, 383.2);

PROCEDURE SUB60 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 18,
                  0.000E0, 17.3);

PROCEDURE SUB61 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 19,
                  0.488E0, 383.4);

PROCEDURE SUB62 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 20,
                  0.000E0, 69.0);

PROCEDURE SUB63 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 21,
                  0.000E0, 103.5);

PROCEDURE SUB64 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 22,
                  0.053E0, 365.8);

PROCEDURE SUB65 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 23,
                  0.053E0, 37.3);

PROCEDURE SUB66 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 24,
                  0.023E0, 297.8);

PROCEDURE SUB67 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 25,
                  0.138E0, 328.3);

PROCEDURE SUB68 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 26,
                  0.010E0, 124.4);

PROCEDURE SUB69 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 27,
                  0.000E0, 50.6);

PROCEDURE SUB70 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 28,
                  0.000E0, 49.4);

PROCEDURE SUB71 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 29,
                  0.000E0, 66.0);

PROCEDURE SUB72 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 30,
                  0.000E0, 67.8);

PROCEDURE SUB73 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 31,
                  0.000E0, 35.7);

PROCEDURE SUB74 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 32,
                  0.073E0, 285.0);

PROCEDURE SUB75 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 33,
                  0.033E0, 257.3);

PROCEDURE SUB76 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 34,
                  0.000E0, 0.6);

PROCEDURE SUB77 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 35,
                  0.056E0, 128.8);

PROCEDURE SUB78 (SQLCODE, SQLSTATE);
      INSERT INTO CONST_NOT_NORM VALUES (300, 36,
                  0.038E0, 97.7);

PROCEDURE SUB79 (SQLCODE, SQLSTATE,
    :FLT1 NUMERIC (8,4));
      SELECT EPOCH INTO :FLT1 FROM CONST_RAD
                    WHERE LOC_ID = 100
                    AND CONST_ID = 0;

PROCEDURE SUB80 (SQLCODE, SQLSTATE,
    :CNTH NUMERIC (9));
      SELECT COUNT(*) INTO :CNTH
                    FROM CONST_RAD_NOT_NORM
                    WHERE EPOCH > 6.2831853E0;

PROCEDURE SUB81 (SQLCODE, SQLSTATE);
      INSERT INTO PENDING VALUES (
                    300, TIMESTAMP '1995-12-15 00:00:00-05:00',
                    TIMESTAMP '1995-12-17 00:00:00-05:00', 0);

PROCEDURE SUB82 (SQLCODE, SQLSTATE);
      INSERT INTO PENDING VALUES (
                    101, TIMESTAMP '2025-12-30 19:00:00-05:00',
                    TIMESTAMP '2025-12-31 19:00:00-05:00', 1);

PROCEDURE SUB83 (SQLCODE, SQLSTATE);
      INSERT INTO PENDING VALUES (
                    101, TIMESTAMP '2025-12-30 19:00:00-05:00',
                    TIMESTAMP '2025-12-31 18:59:59-05:00', 1);

PROCEDURE SUB84 (SQLCODE, SQLSTATE);
      INSERT INTO PENDING VALUES (
                    102, TIMESTAMP '1993-12-31 19:00:00-05:00',
                    TIMESTAMP '1994-01-02 00:00:00-05:00', 2);

PROCEDURE SUB85 (SQLCODE, SQLSTATE,
    :CNTH NUMERIC (9));
      SELECT EXTRACT (YEAR FROM CHECK_DATES)
                    INTO :CNTH
                    FROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 0;

PROCEDURE SUB86 (SQLCODE, SQLSTATE,
    :CNTH NUMERIC (9));
      SELECT EXTRACT (YEAR FROM CHECK_DATES)
                    INTO :CNTH
                    FROM CHECK_PTS WHERE JOB_ID = 2 AND FLAG = 1;

PROCEDURE SUB87 (SQLCODE, SQLSTATE);
      INSERT INTO DINNER_CLUB VALUES
                    (0, TIME '17:30:00');

PROCEDURE SUB88 (SQLCODE, SQLSTATE);
      INSERT INTO DINNER_CLUB VALUES
                    (1, CAST (TIME '18:00:00' AS DINNERTIME));

PROCEDURE SUB89 (SQLCODE, SQLSTATE);
      INSERT INTO DINNER_CLUB VALUES
                    (2, TIME '19:30:00');

PROCEDURE SUB90 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB91 (SQLCODE, SQLSTATE);
      DROP DOMAIN EPOCH_NOT_NORM CASCADE;

PROCEDURE SUB92 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB93 (SQLCODE, SQLSTATE);
      DROP DOMAIN RAD_EPOCH_TYPE CASCADE;

PROCEDURE SUB94 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB95 (SQLCODE, SQLSTATE);
      DROP DOMAIN RAD_EPOCH_NOT_NORM CASCADE;

PROCEDURE SUB96 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB97 (SQLCODE, SQLSTATE);
      DROP DOMAIN TIDEDATE CASCADE;

PROCEDURE SUB98 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB99 (SQLCODE, SQLSTATE);
      DROP DOMAIN TIDETIMESTAMP CASCADE;

PROCEDURE SUB100 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB101 (SQLCODE, SQLSTATE);
      DROP DOMAIN DINNERTIME CASCADE;

PROCEDURE SUB102 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB103 (SQLCODE, SQLSTATE);
      DROP TABLE CONST_NOT_NORM CASCADE;

PROCEDURE SUB104 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB105 (SQLCODE, SQLSTATE);
      DROP VIEW CONST_RAD CASCADE;

PROCEDURE SUB106 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB107 (SQLCODE, SQLSTATE);
      DROP TABLE PENDING CASCADE;

PROCEDURE SUB108 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB109 (SQLCODE, SQLSTATE);
      DROP TABLE DINNER_CLUB CASCADE;

PROCEDURE SUB110 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB111 (SQLCODE, SQLSTATE);
      DELETE FROM TIDES.LOCATIONS
                    WHERE LOC_ID = 300;

PROCEDURE SUB112 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB115 (SQLCODE, SQLSTATE);
      COMMIT WORK;