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 2 kB

Quelle dml057.mco Sprache: unbekannt

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

MODULE DML057
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM JJ;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO JJ
                  VALUES(0.1048575);

PROCEDURE SUB3 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 FROM JJ WHERE
                  FLOATTEST BETWEEN 0.1048574 AND 0.1048576;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM JJ;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO JJ
                  VALUES(-0.1048575);

PROCEDURE SUB6 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 FROM JJ WHERE
                  FLOATTEST BETWEEN -0.1048576 AND -0.1048574;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0248','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0248','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      DELETE FROM GG;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO GG
                  VALUES(0.1048575);

PROCEDURE SUB13 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 FROM GG WHERE
                  REALTEST BETWEEN 0.1048574 AND 0.1048576;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM GG;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO GG
                  VALUES(-0.1048575);

PROCEDURE SUB16 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 FROM GG WHERE
                  REALTEST BETWEEN -0.1048576 AND -0.1048574;

PROCEDURE SUB17 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0249','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0249','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
      DELETE FROM II;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO II
                  VALUES(0.1073741823);

PROCEDURE SUB23 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT1 FROM II WHERE
                  DOUBLETEST BETWEEN 0.1073741822 AND 0.1073741824;

PROCEDURE SUB24 SQLCODE;
      DELETE FROM II;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO II
                  VALUES(-0.1073741823);

PROCEDURE SUB26 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT (*) INTO  :COUNT2 FROM II WHERE
                  DOUBLETEST BETWEEN -0.1073741824 AND -0.1073741822;

PROCEDURE SUB27 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0250','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0250','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;