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: dml053.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desLatech {Latech[63] Isabelle[201] CS[203]}zum Wurzelverzeichnis wechseln

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

DECLARE UNION1  CURSOR FOR
               SELECT * FROM ABOVE_AVERAGE ORDER BY COLUMN_1
DECLARE UNION2  CURSOR FOR
               SELECT EMPNUM, CITY FROM STAFF_DUP ORDER BY CITY
DECLARE UNION3  CURSOR FOR
               SELECT C2, C1, C3 FROM FOUR_CITIES ORDER BY C3, C2
            


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE VIEW UUSIG (U1) AS
                    SELECT C1 FROM USIG UNION SELECT C_1 FROM USIG;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM UUSIG;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(DISTINCT U1) INTO :INT1 FROM UUSIG
                 ;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM UUSIG WHERE U1 < 0
                    OR U1 > 3 OR U1 IS NULL;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      CREATE VIEW ABOVE_AVERAGE (COLUMN_1,
                  COLUMN_2, COLUMN_3) AS
                    SELECT PNUM, BUDGET, CITY
                    FROM HU.PROJ OUTER_REF
                    WHERE BUDGET >= (SELECT AVG(BUDGET) FROM HU.PROJ
                  INNER_REF
                    WHERE OUTER_REF.CITY = INNER_REF.CITY)
                    UNION
                    SELECT 'MAX', MAX(BUDGET), MIN(CITY)
                    FROM HU.PROJ 
                    WHERE CITY > 'Deale';

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
    OPEN UNION1;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :CH15 CHAR(15);
      FETCH UNION1 INTO :CH3, :INT1, :CH15;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :CH15 CHAR(15);
      FETCH UNION1 INTO :CH3, :INT1, :CH15;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :CH15 CHAR(15);
      FETCH UNION1 INTO :CH3, :INT1, :CH15;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :CH15 CHAR(15);
      FETCH UNION1 INTO :CH3, :INT1, :CH15;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :CH15 CHAR(15);
      FETCH UNION1 INTO :CH3, :INT1, :CH15;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      CREATE VIEW STAFF_DUP AS
                    SELECT EMPNUM, EMPNAME, GRADE, CITY
                    FROM HU.STAFF
                    UNION ALL
                    SELECT * FROM HU.STAFF3;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB20 SQLCODE SQLSTATE;
    OPEN UNION2;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH15 CHAR(15);
      FETCH UNION2 INTO :CH3, :CH15;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH15 CHAR(15);
      FETCH UNION2 INTO :CH3, :CH15;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM STAFF_DUP;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CREATE VIEW FOUR_CITIES (C1, C2, C3) AS
                    SELECT 'P', CITY, 666
                    FROM HU.PROJ
                    WHERE BUDGET <> 30000
                    UNION
                    SELECT 'S', CITY, 777
                    FROM HU.STAFF
                    WHERE EMPNAME <> 'Ed'
                    UNION
                    SELECT 'T', CITY, -999
                    FROM HU.STAFF3
                    WHERE CITY NOT LIKE 'V%'
                    UNION
                    SELECT 'X', CITY, -1
                    FROM HU.STAFF3
                    WHERE CITY = 'Vienna';

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
    OPEN UNION3;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :CH3 CHAR(3)
    :INT1 NUMERIC (9);
      FETCH UNION3 INTO :CH15, :CH3, :INT1;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1 FROM FOUR_CITIES
                 ;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM FOUR_CITIES WHERE
                  C3 > 0;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM FOUR_CITIES WHERE
                  C2 = 'Vienna';

PROCEDURE SUB39 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      DROP VIEW ABOVE_AVERAGE CASCADE;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      DROP VIEW STAFF_DUP CASCADE;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      DROP VIEW FOUR_CITIES CASCADE;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      DROP VIEW UUSIG CASCADE;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      CREATE TABLE TEMPUS (TDATE DATE, TTIME
                  TIME,
                    TTIMESTAMP TIMESTAMP, TINT1 INTERVAL YEAR TO MONTH,
                    TINT2 INTERVAL DAY TO SECOND);

PROCEDURE SUB52 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      INSERT INTO TEMPUS VALUES (
                    DATE '1993-08-24',
                    TIME '16:03:00',
                    TIMESTAMP '1993-08-24 16:03:00',
                    INTERVAL -'1-6' YEAR TO MONTH,
                    INTERVAL '13 0:10' DAY TO SECOND);

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (DAY FROM TDATE)
                    INTO :INT1 FROM TEMPUS;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM TEMPUS
                    WHERE (TTIMESTAMP - TIMESTAMP '1995-02-24 16:03:00')
                    YEAR TO MONTH = TINT1;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM TEMPUS
                    WHERE (TTIMESTAMP, TINT1) OVERLAPS
                    (TIMESTAMP '1995-02-24 16:03:00', INTERVAL '1-6' 
                    YEAR TO MONTH);

PROCEDURE SUB57 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      DROP TABLE TEMPUS CASCADE;

PROCEDURE SUB59 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB62 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      CREATE TABLE TSFIPS (
                    FIPS1 TIME,
                    FIPS2 TIMESTAMP,
                    FIPS3 INTERVAL YEAR (2) TO MONTH,
                    FIPS4 INTERVAL DAY (2) TO SECOND (6));

PROCEDURE SUB64 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      INSERT INTO TSFIPS VALUES (
                    TIME '16:03:00',
                    TIMESTAMP '1996-08-24 16:03:00.999999',
                    INTERVAL -'99-6' YEAR (2) TO MONTH,
                    INTERVAL '99 0:10:00.999999' DAY (2) TO SECOND (6))
                 ;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (SECOND FROM FIPS2)
                    * 1000000 - 999990 INTO :INT1 FROM TSFIPS;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      SELECT EXTRACT (YEAR FROM FIPS3),
                    EXTRACT (MONTH FROM FIPS3) INTO :INT1, :INT2
                    FROM TSFIPS;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      SELECT EXTRACT (DAY FROM FIPS4),
                    EXTRACT (SECOND FROM FIPS4) * 1000000 - 999990
                    INTO :INT1, :INT2 FROM TSFIPS;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      DROP TABLE TSFIPS CASCADE;

PROCEDURE SUB71 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      CREATE TABLE TSSMALL (
                    SMALLD DATE,
                    SMALLT TIME,
                    SMALLTS TIMESTAMP);

PROCEDURE SUB76 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO TSSMALL VALUES (
                    CURRENT_DATE, CURRENT_TIME, CURRENT_TIMESTAMP);

PROCEDURE SUB78 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (YEAR FROM SMALLD) = EXTRACT (YEAR FROM SMALLTS)
                 ;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (MONTH FROM SMALLD) = EXTRACT (MONTH FROM
                  SMALLTS);

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (DAY FROM SMALLD) = EXTRACT (DAY FROM SMALLTS)
                 ;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (HOUR FROM SMALLT) = EXTRACT (HOUR FROM SMALLTS)
                 ;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (MINUTE FROM SMALLT) = EXTRACT (MINUTE FROM
                  SMALLTS);

PROCEDURE SUB83 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM TSSMALL WHERE
                    EXTRACT (SECOND FROM SMALLT) -
                    EXTRACT (SECOND FROM SMALLTS) > -1
                    AND EXTRACT (SECOND FROM SMALLT) -
                    EXTRACT (SECOND FROM SMALLTS) < 1;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      DROP TABLE TSSMALL CASCADE;

PROCEDURE SUB86 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB89 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      CREATE TABLE TSERR (
                    BADINT INTERVAL YEAR (2) TO MONTH,
                    BADDATE DATE);

PROCEDURE SUB91 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      INSERT INTO TSERR VALUES (
                    INTERVAL '0-11' YEAR TO MONTH,
                    DATE '9999-01-01' + INTERVAL '1-00' YEAR TO MONTH)
                 ;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      INSERT INTO TSERR VALUES (
                    INTERVAL '9999-11' YEAR TO MONTH,
                    DATE '1984-01-01');

PROCEDURE SUB94 SQLCODE SQLSTATE;
      INSERT INTO TSERR VALUES (
                    INTERVAL '1-11' YEAR TO MONTH,
                    CAST ('DATE ''1993-02-30''' AS DATE));

PROCEDURE SUB95 SQLCODE SQLSTATE;
      INSERT INTO TSERR VALUES (
                    INTERVAL '1-11' YEAR TO MONTH,
                    CAST ('1993-02-30' AS DATE));

PROCEDURE SUB96 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      DROP TABLE TSERR CASCADE;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB101 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.96Quellennavigators  ]