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

-- SQL Test Suite, V6.0, SQL Module dml153.mco
-- 59-byte ID
--
MODULE DML153
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE GORTON  CURSOR FOR
               SELECT EMPNAME FROM EXON
DECLARE GORDY  CURSOR FOR
               SELECT EMPNAME FROM HU.STAFF WHERE GRADE >
               (SELECT MIN (BUDGET) / 1000 FROM HU.PROJ
               WHERE HU.STAFF.CITY = HU.PROJ.CITY)
               AND EMPNAME <> 'Don'

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE VIEW EXON AS
                    SELECT * FROM HU.STAFF WHERE CITY IN
                    (SELECT CITY FROM HU.PROJ);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      DELETE FROM EXON
                    WHERE GRADE = 10;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE;
    OPEN GORTON;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORTON INTO :C20;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      UPDATE EXON
                    SET EMPNAME = 'Heathen'
                    WHERE CURRENT OF GORTON;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORTON INTO :C20;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      UPDATE EXON
                    SET EMPNAME = 'Heretic'
                    WHERE CURRENT OF GORTON;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORTON INTO :C20;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      DELETE FROM EXON
                    WHERE CURRENT OF GORTON;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      CLOSE GORTON;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME LIKE 'H%';

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
    OPEN GORDY;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORDY INTO :C20;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      UPDATE HU.STAFF
                    SET EMPNAME = 'Zerta'
                    WHERE CURRENT OF GORDY;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORDY INTO :C20;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF
                    WHERE CURRENT OF GORDY;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :C20 CHAR(20);
      FETCH GORDY INTO :C20;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE GORDY;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME < 'Fred';

PROCEDURE SUB27 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      DROP VIEW EXON CASCADE;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB32 SQLCODE SQLSTATE;
      COMMIT WORK;