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

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

DECLARE DATA1  CURSOR FOR
               SELECT litt1 FROM char_in_use
               ORDER BY numm

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE DOMAIN char_dom CHARACTER;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE char_in_use
                    (  litt1   char_dom,
                    numm    integer);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO char_in_use VALUES ('a',00);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO char_in_use VALUES ('z',99);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO char_in_use VALUES ('A',999999)
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      DROP DOMAIN char_dom CASCADE;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
    OPEN DATA1;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :CHECKC CHAR(1));
      FETCH DATA1 INTO :CHECKC;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :CHECKC CHAR(1));
      FETCH DATA1 INTO :CHECKC;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :CHECKC CHAR(1));
      FETCH DATA1 INTO :CHECKC;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO char_in_use VALUES ('p',654);

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      DROP TABLE char_in_use CASCADE;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;