Quelle  dml171.mco

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

DECLARE C14736  CURSOR FOR
               SELECT EMPNUM, CITY, SALARY
               FROM HU.STAFF3 FULL OUTER JOIN STAFF66 USING (EMPNUM)
               ORDER BY EMPNUM


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 TABLE STAFF66 (
                    SALARY   INTEGER,
                    EMPNAME CHAR(20),
                    GRADE   DECIMAL,
                    EMPNUM  CHAR(3));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF66
                    SELECT GRADE*1000, EMPNAME, GRADE, EMPNUM
                    FROM HU.STAFF3 WHERE EMPNUM > 'E2';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF3 SET EMPNUM = 'E6' WHERE EMPNUM =
                  'E5';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF3 SET EMPNAME = 'Ali' WHERE GRADE =
                  12;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
    OPEN C14736;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :INDIC1 NUMERIC (4),
    :SL NUMERIC (9));
      FETCH C14736 INTO :EN, :CT:INDIC1, :SL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :EN CHAR(3),
    :CT CHAR(15),
    :SL NUMERIC (9),
    :INDIC1 NUMERIC (4));
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DROP TABLE STAFF66 CASCADE;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;