Quelle  dml084.mco

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



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

PROCEDURE SUB2 SQLCODE SQLSTATE
    :CT1 CHAR(2);
      SELECT COL2 INTO :CT1 FROM HU.UPUNIQ WHERE NUMKEY
                  = 1;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      UPDATE HU.UPUNIQ SET COL2 = 'xx';

PROCEDURE SUB4 SQLCODE SQLSTATE;
      DELETE FROM HU.UPUNIQ;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES (9,'M');

PROCEDURE SUB6 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF
                    WHERE GRADE <
                    (SELECT MAX(HOURS) FROM HU.WORKS)
                    OR    GRADE >
                    (SELECT MAX(NUMKEY) FROM HU.UPUNIQ)
                    OR    GRADE + 100 > 
                    (SELECT MIN(HOURS) FROM HU.WORKS);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES (13,44);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUNIQ VALUES 
                       (555666777);

PROCEDURE SUB9 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CT1 CHAR(2);
      SELECT COL2 INTO :CT1 FROM HU.UPUPUP WHERE NUMKEY
                  = 1;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      UPDATE HU.UPUPUP SET COL2 = 'xx';

PROCEDURE SUB15 SQLCODE SQLSTATE;
      DELETE FROM HU.UPUPUP;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO HU.UPUPUP VALUES (9,'M');

PROCEDURE SUB17 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF
                    WHERE GRADE <
                    (SELECT MAX(HOURS) FROM HU.WORKS)
                    OR    GRADE >
                    (SELECT MAX(NUMKEY) FROM HU.UPUPUP)
                    OR    GRADE + 100 > 
                    (SELECT MIN(HOURS) FROM HU.WORKS);

PROCEDURE SUB18 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB21 SQLCODE SQLSTATE;
      COMMIT WORK;