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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Sprache: Cobol

-- SQL Test Suite, V6.0, SQL Module dml034.mco
-- 59-byte ID

MODULE DML034
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO GG
                  VALUES(123.4567E-2);

PROCEDURE SUB2 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1
                  FROM GG WHERE REALTEST NOT BETWEEN 1.2345 AND 1.2346;

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2
                  FROM GG WHERE REALTEST BETWEEN 1.2345 AND 1.2346;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0088','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0088','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO II
                  VALUES(0.123456123456E6);

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM II
                  WHERE DOUBLETEST BETWEEN 123456.1234 AND 123456.1235;

PROCEDURE SUB10 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM II
                  WHERE DOUBLETEST NOT BETWEEN 123456.1234 AND 123456.1235;

PROCEDURE SUB11 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0090','pass','MCO');

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0090','fail','MCO');

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO JJ
                  VALUES(12.345678);

PROCEDURE SUB16 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM JJ
                  WHERE FLOATTEST BETWEEN 12.3456 AND 12.3457;

PROCEDURE SUB17 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM JJ
                  WHERE FLOATTEST NOT BETWEEN 12.3456 AND 12.3457;

PROCEDURE SUB18 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0091','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0091','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO KK
                  VALUES(123.456123456E+3);

PROCEDURE SUB23 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM KK
                  WHERE FLOATTEST > 123456.1234;

PROCEDURE SUB24 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM KK
                  WHERE FLOATTEST < 123456.1236;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0092','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0092','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO LL
                  VALUES(123456.123456);

PROCEDURE SUB30 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT *
                  INTO    :D13P6
                  FROM   LL;

PROCEDURE SUB31 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0093','pass','MCO');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0093','fail','MCO');

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE;
      INSERT INTO PP
                  VALUES(123456.123456);

PROCEDURE SUB36 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT *
                  INTO    :D13P6
                  FROM   PP;

PROCEDURE SUB37 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0094','pass','MCO');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0094','fail','MCO');

PROCEDURE SUB40 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE;
      INSERT INTO SS
                  VALUES(123456.123456);

PROCEDURE SUB42 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT *
                  INTO    :D13P6
                  FROM   SS;

PROCEDURE SUB43 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0095','pass','MCO');

PROCEDURE SUB45 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0095','fail','MCO');

PROCEDURE SUB46 SQLCODE;
      COMMIT WORK;