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

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

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

PROCEDURE SUB2 SQLCODE
    :CT20 CHAR(20);
      SELECT CHARTEST
                    INTO :CT20 FROM CUGINI.VAA;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO CUGINI.VAA
                    VALUES ('This should not work');

PROCEDURE SUB4 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA;

PROCEDURE SUB5 SQLCODE;
      UPDATE CUGINI.VAA
                    SET CHARTEST = 'This should not work';

PROCEDURE SUB6 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA WHERE CHARTEST
                    <> 'Twenty Characters...';

PROCEDURE SUB7 SQLCODE;
      DELETE FROM CUGINI.VAA;

PROCEDURE SUB8 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0477','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0477','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO CUGINI.VBB
                    VALUES ('A');

PROCEDURE SUB14 SQLCODE
    :CT1 CHAR(1);
      SELECT CHARTEST INTO :CT1 FROM CUGINI.VBB;

PROCEDURE SUB15 SQLCODE;
      UPDATE CUGINI.VBB
                    SET CHARTEST = 'B';

PROCEDURE SUB16 SQLCODE;
      DELETE FROM CUGINI.VBB;

PROCEDURE SUB17 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
      UPDATE CUGINI.VCC
                    SET CHARTEST = 'This --should-- work';

PROCEDURE SUB22 SQLCODE
    :CT20 CHAR(20);
      SELECT CHARTEST
                    INTO :CT20 FROM CUGINI.VCC;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO CUGINI.VCC
                    VALUES ('This should not work');

PROCEDURE SUB24 SQLCODE;
      DELETE FROM CUGINI.VCC;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0479','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0479','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      DELETE FROM CUGINI.VDD;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO CUGINI.VDD
                    VALUES ('A');

PROCEDURE SUB31 SQLCODE
    :CT1 CHAR(1);
      SELECT CHARTEST INTO :CT1 FROM CUGINI.VDD;

PROCEDURE SUB32 SQLCODE;
      UPDATE CUGINI.VDD
                    SET CHARTEST = 'B';

PROCEDURE SUB33 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0480','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0480','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;