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


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 7 kB

Quelle dml149.mco Sprache: unbekannt

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

DECLARE L_OEUF  CURSOR FOR
               SELECT CAST (NULL AS CHAR (10)), GOOSE FROM NO_DUCK
               WHERE SEAGULL = 0
               UNION
               SELECT OSPREY, CAST (SEAGULL AS NUMERIC (4, 2)) FROM
             NO_DUCK
               WHERE GOOSE > 10000

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      SET TRANSACTION READ WRITE;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO USIG VALUES (10, 20);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      SET TRANSACTION READ WRITE;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      SET TRANSACTION READ ONLY;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO USIG VALUES (10, 20);

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      CREATE TABLE NO_DUCK (
                    GOOSE       NUMERIC (4, 2),
                    ALBATROSS   FLOAT,
                    SEAGULL     INT,
                    OSPREY      CHAR (10));

PROCEDURE SUB16 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SELECT CAST (100 AS NUMERIC (2))
                    INTO :FLT1 FROM HU.ECCO;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CAST (100.5 AS DECIMAL (3))
                    INTO :INT1 FROM HU.ECCO;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      INSERT INTO NO_DUCK VALUES (
                    CAST ('  23.23 ' AS NUMERIC (4, 2)), 1.57E-1, -9,
                  'QUACK');

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NO_DUCK WHERE GOOSE = 23.23;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      DELETE FROM NO_DUCK
                    WHERE ALBATROSS - CAST ('   15.5E0    ' AS FLOAT) < 3E-1
                 ;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM NO_DUCK;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO NO_DUCK
                    SELECT 22.22, CAST (C1 AS FLOAT), 0, C1 FROM HU.ECCO
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      INSERT INTO NO_DUCK
                    SELECT 22.22, 2.222E1, CAST (C1 AS INT), 'QUACK!' FROM
                  HU.ECCO;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH5 CHAR(5);
      SELECT CAST (CAST (:INT1 AS DEC (5, 3)) AS CHAR
                  (5))
                    INTO :CH5 FROM HU.ECCO;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      INSERT INTO NO_DUCK VALUES (
                    12.00, -10.5E0, 12, 'QUACK!');

PROCEDURE SUB27 SQLCODE SQLSTATE;
      UPDATE NO_DUCK
                    SET OSPREY = CAST (GOOSE AS CHAR (10))
                    WHERE SEAGULL = CAST (GOOSE AS DEC);

PROCEDURE SUB28 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :CH10 CHAR(10)
    :INT1 NUMERIC (9)
    :INT1 NUMERIC (9);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK
                    WHERE OSPREY < CAST (SEAGULL + :INT1 AS CHAR (10))
                    AND OSPREY = CAST (GOOSE * :INT1 AS CHAR (10));

PROCEDURE SUB30 SQLCODE SQLSTATE;
      UPDATE NO_DUCK
                    SET OSPREY = CAST (-SEAGULL AS CHAR (10));

PROCEDURE SUB31 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT CAST (-GOOSE AS CHAR (5)) INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      UPDATE NO_DUCK
                    SET ALBATROSS = :FLT1;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :CH5 CHAR(5);
      SELECT CAST (-ALBATROSS AS CHAR (5))
                    INTO :CH5 FROM NO_DUCK;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT CAST (0230E-1 AS CHAR (10)) INTO :CH10
                    FROM HU.ECCO;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT CAST (0230E+1 AS CHAR (10)) INTO :CH10
                    FROM HU.ECCO;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      DELETE FROM NO_DUCK;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO NO_DUCK VALUES (
                    0.00, -10.5E0, -0, 'QUACK!');

PROCEDURE SUB39 SQLCODE SQLSTATE;
      UPDATE NO_DUCK
                    SET OSPREY = CAST (ALBATROSS AS CHAR (10))
                    WHERE GOOSE = CAST (SEAGULL AS NUMERIC (2));

PROCEDURE SUB40 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      UPDATE NO_DUCK SET ALBATROSS = -0.5;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      UPDATE NO_DUCK
                    SET OSPREY = CAST (ALBATROSS AS CHAR (10));

PROCEDURE SUB43 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      UPDATE NO_DUCK
                    SET OSPREY = CAST (-ALBATROSS AS CHAR (10));

PROCEDURE SUB45 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT OSPREY INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT CAST (ALBATROSS AS CHAR (4)) INTO :CH10
                    FROM NO_DUCK;

PROCEDURE SUB47 SQLCODE SQLSTATE;
    OPEN L_OEUF;

PROCEDURE SUB48 SQLCODE SQLSTATE
    :CH10 CHAR(10)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9);
      FETCH L_OEUF INTO :CH10:INDIC1, :INT1;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      CLOSE L_OEUF;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :CH10 CHAR(10)
    :INDIC1 NUMERIC (4);
      UPDATE NO_DUCK SET GOOSE =
                    CAST (:CH10:INDIC1 AS NUMERIC (2, 2));

PROCEDURE SUB51 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NO_DUCK WHERE GOOSE IS NULL;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT CAST (GOOSE AS INT) INTO :INT1:INDIC1
                    FROM NO_DUCK;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      DROP TABLE NO_DUCK CASCADE;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB58 SQLCODE SQLSTATE;
      COMMIT WORK;