Quelle  dml153.mco

-- 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;