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 dml091.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml091.mco
-- 59-byte ID
--
MODULE DML091
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

DECLARE RANCID  CURSOR FOR
               SELECT NUMTEST FROM HU.P1

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM HU.P1;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM FOUR_TYPES;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (100000);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (-1000000);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (-9);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (9);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      UPDATE HU.P1 SET NUMTEST = NUMTEST + 100000
                 ;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      UPDATE HU.P1 SET NUMTEST =
                    ((1 + NUMTEST) * :C1 * :C1) WHERE NUMTEST = 100009 OR
                    NUMTEST IN (SELECT GRADE - 4 FROM HU.STAFF);

PROCEDURE SUB10 SQLCODE SQLSTATE;
    OPEN RANCID;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      FETCH RANCID INTO :C1;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      UPDATE HU.P1
                    SET NUMTEST = NUMTEST * 200000 WHERE CURRENT OF RANCID
                 ;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO FOUR_TYPES
                    VALUES (1,'X',11112222.00,.000003E-25);

PROCEDURE SUB14 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT T_DECIMAL INTO :C1 FROM FOUR_TYPES
                    WHERE T_CHAR = 'X';

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONG1 NUMERIC (9);
      SELECT T_DECIMAL / .000000001 INTO :LONG1
                    FROM FOUR_TYPES WHERE T_CHAR = 'X';

PROCEDURE SUB16 SQLCODE SQLSTATE
     :DECML_8_2 NUMERIC (10,2);
      SELECT SUM(T_DECIMAL) INTO :DECML_8_2 FROM FOUR_TYPES
                 ;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT
                      INTO FOUR_TYPES (T_DECIMAL) VALUES (-99998888.22)
                 ;