Quelle  mpb002.mco

-- SQL Test Suite, V6.0, SQL Module mpb002.mco
-- 59-byte ID
-- 
MODULE MPB002
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1



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

PROCEDURE SUB2 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM MP2_MM2;

PROCEDURE SUB4 SQLCODE
    :I NUMERIC (9);
      INSERT INTO MP2_MM2 VALUES (:I);

PROCEDURE SUB5 SQLCODE
    :DOLLAR NUMERIC (9);
      SELECT DOLLARS
                    INTO :DOLLAR
                    FROM MP2_NEXTKEY WHERE KEYNUM = 999;

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE
    :DOL500 NUMERIC (9);
      SELECT DOLLARS INTO :DOL500
                    FROM MP2_NEXTKEY  WHERE KEYNUM = 500;

PROCEDURE SUB8 SQLCODE
    :DOL999 NUMERIC (9);
      SELECT DOLLARS INTO :DOL999
                    FROM MP2_NEXTKEY  WHERE KEYNUM = 999;

PROCEDURE SUB9 SQLCODE
    :DOL999 NUMERIC (9);
      UPDATE MP2_NEXTKEY
                    SET DOLLARS = :DOL999    WHERE KEYNUM = 999;

PROCEDURE SUB10 SQLCODE
    :DOL500 NUMERIC (9);
      UPDATE MP2_NEXTKEY
                    SET DOLLARS = :DOL500    WHERE KEYNUM = 500;

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE
    :DOLLAR NUMERIC (9);
      SELECT SUM(DOLLARS) INTO :DOLLAR
                    FROM MP2_NEXTKEY
                    WHERE KEYNUM = 1  OR  KEYNUM = 500  OR KEYNUM = 999
                 ;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0231','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0231','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;