Quelle  dml160.mco

-- 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;