Quelle  mpb003.mco

-- SQL Test Suite, V6.0, SQL Module mpb003.mco
-- 59-byte ID
-- 
MODULE MPB003
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 MP3_MM2;

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

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

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      UPDATE MP3_NEXTKEY
                    SET DOLLARS = DOLLARS + 10    WHERE KEYNUM = 999;

PROCEDURE SUB8 SQLCODE;
      UPDATE MP3_NEXTKEY
                    SET DOLLARS = DOLLARS - 10    WHERE KEYNUM = 500;

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

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

PROCEDURE SUB11 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

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

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

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

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;