Quelle  yts762.mco

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

DECLARE DATA62  CURSOR FOR
               SELECT * FROM CTS1.STAFF1
               EXCEPT SELECT * FROM CTS1.STAFF4


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E11','Keith',10,'Vienna');

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E12','Laura',20,'Deale');

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                    ('E13','Mike',30,'Vienna');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
    OPEN data62;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data62 INTO :ENO, :ENAME, :EGRAD, :ECIT
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CLOSE data62;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT * FROM CTS1.STAFF4;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (DISTINCT COL1) INTO :J FROM CTS1.ET
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ET;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT DISTINCT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT * FROM CTS1.STAFF4;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.ET;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.ET (col1, col2, col3, col4)
                    SELECT * FROM CTS1.STAFF1 EXCEPT ALL
                    SELECT DISTINCT * FROM CTS1.STAFF4;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :J NUMERIC (4));
      SELECT COUNT (*) INTO :J FROM CTS1.ET;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E7','Grace',10,'Paris');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E7','Grace',10,'Paris');

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E8','Henry',20,'Prague');

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E8','Henry',20,'Prague');

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E9','Imogen',10,'Prague');

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                      ('E10','John',20,'Brussels');

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF4 VALUES
                      ('E11','Keith',10,'Vienna');

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAME CHAR(20),
    :EGRAD NUMERIC (9),
    :ECIT CHAR(15));
      FETCH data62 INTO :ENO, :ENAME, :EGRAD, :ECIT
                 ;