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

Quelle yts762.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module yts762.mco
-- 59-byte ID
--
MODULE YTS762
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE DATA62  CURSOR FOR
               SELECT * FROM CTS1.STAFF1
               EXCEPT SELECT * FROM CTS1.STAFF4

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E11','Keith',10,'Vienna');

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E12','Laura',20,'Deale');

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                    ('E13','Mike',30,'Vienna');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
    OPEN data62;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data62 INTO :ENO, :ENAME, :EGRAD, :ECIT
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CLOSE data62;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT * FROM CTS1.STAFF4;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (DISTINCT COL1) INTO :J FROM CTS1.ET
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ET;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT DISTINCT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT * FROM CTS1.STAFF4;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ET;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT DISTINCT * FROM CTS1.STAFF4;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7517','pass','MCO');

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7517','fail','MCO');

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E7','Grace',10,'Paris');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E7','Grace',10,'Paris');

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E8','Henry',20,'Prague');

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E8','Henry',20,'Prague');

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E9','Imogen',10,'Prague');

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E10','John',20,'Brussels');

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E11','Keith',10,'Vienna');

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data62 INTO :ENO, :ENAME, :EGRAD, :ECIT
                 ;