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

Untersuchungsergebnis.mco Download desScala {Scala[72] Pl1[73] Lex[117]}zum Wurzelverzeichnis wechseln

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

[ zur Elbe Produktseite wechseln0.112Quellennavigators  ]