Quelle  dml179.mco

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



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 T0892 (
                    INTKEY NUMERIC (3) PRIMARY KEY,
                    NAAM VARCHAR (1000),
                    ADDRESS VARCHAR (1000),
                    KEYWORDS VARCHAR (1000),
                    FUNCTION1 VARCHAR (1000),
                    FUNCTION2 VARCHAR (1000),
                    DESCRIPT1 VARCHAR (1000),
                    DESCRIPT2 VARCHAR (1000),
                    DESCRIPT3 VARCHAR (978));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :LONGST CHAR(4000));
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      UPDATE T0892
                    SET FUNCTION1 =
                    'Harry works in the Redundancy Automation Division '
                    'of the Materials '
                    'Blasting Laboratory in the National Cattle '
                    'Acceleration Project of '
                    'lower Michigan.  His job is to document the '
                    'trajectory of cattle and '
                    'correlate the loft and acceleration versus the '
                    'quality of materials '
                    'used in the trebuchet.  He served ten years '
                    'as the vice-president in '
                    'charge of marketing in the now defunct milk '
                    'trust of the Pennsylvania '
                    'Coalition of All Things Bovine.  Prior to that '
                    'he established himself '
                    'as a world-class graffiti artist and source of '
                    'all good bits related '
                    'to channel dredging in poor weather.  He is '
                    'author of over ten thousand '
                    'paperback novels, including such titles as "How '
                    'many Pumpkins will Fit '
                    'on the Head of a Pin," "A Whole Bunch of Useless '
                    'Things that you Don''t '
                    'Want to Know," and "How to Lift Heavy Things '
                    'Over your Head without '
                    'Hurting Yourself or Dropping Them."  He attends '
                    'ANSI and ISO standards '
                    'meetings in his copious free time and funds the '
                    'development of test '
                    'suites with his pocket change.'
                    WHERE INTKEY = 0;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      UPDATE T0892
                    SET FUNCTION2 = FUNCTION1,
                    DESCRIPT1 = FUNCTION1,
                    DESCRIPT2 = FUNCTION1,
                    DESCRIPT3 = SUBSTRING (FUNCTION1 FROM 1 FOR 978);

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT CHAR_LENGTH (NAAM) +
                    CHAR_LENGTH (ADDRESS) +
                    CHAR_LENGTH (KEYWORDS) +
                    CHAR_LENGTH (FUNCTION1) +
                    CHAR_LENGTH (FUNCTION2) +
                    CHAR_LENGTH (DESCRIPT1) +
                    CHAR_LENGTH (DESCRIPT2) +
                    CHAR_LENGTH (DESCRIPT3) + 22
                    INTO :INT1
                    FROM T0892
                    WHERE INTKEY = 0;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      DROP TABLE T0892 CASCADE;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;