Quelle  dml174.mco

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



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 CONTACTS (
                    NAME CHAR (20),
                    DESCRIPTION VARCHAR (1000),
                    KEYWORDS VARCHAR (1000));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CONTACTS VALUES ('Harry',
               '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.',
               'aardvark albatross nutmeg redundancy '
               'automation materials blasting '
               'cattle acceleration trebuchet catapult '
               'loft coffee java sendmail SMTP '
               'FTP HTTP censorship expletive senility '
               'extortion distortion conformity '
               'conformance nachos chicks goslings '
               'ducklings honk quack melatonin tie '
               'noose circulation column default '
               'ionic doric chlorine guanine Guam '
               'invasions rubicon helmet plastics '
               'recycle HDPE nylon ceramics plumbing '
               'parachute zeppelin carbon hydrogen '
               'vinegar sludge asphalt adhesives '
               'tensile magnetic Ellesmere Greenland '
               'Knud Rasmussen precession '
               'navigation positioning orbit altitude '
               'resistance radiation levitation '
               'yoga demiurge election violence '
               'collapsed fusion cryogenics gravity '
               'sincerity idiocy budget accounting '
               'auditing titanium torque pressure '
               'fragile hernia muffler cartilage '
               'graphics deblurring headache eyestrain '
               'interlace bandwidth resolution '
               'determination steroids barrel oak wine '
               'ferment yeast brewing bock siphon '
               'clarity impurities SQL RBAC data '
               'warehouse security integrity feedback');
                   
PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM CONTACTS
                    WHERE DESCRIPTION =
                   '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.'
                   AND KEYWORDS =
                   'aardvark albatross nutmeg redundancy ' ||
                   'automation materials blasting ' ||
                   'cattle acceleration trebuchet catapult ' ||
                   'loft coffee java sendmail SMTP ' ||
                   'FTP HTTP censorship expletive senility ' ||
                   'extortion distortion conformity ' ||
                   'conformance nachos chicks goslings ' ||
                   'ducklings honk quack melatonin tie ' ||
                   'noose circulation column default ' ||
                   'ionic doric chlorine guanine Guam ' ||
                   'invasions rubicon helmet plastics ' ||
                   'recycle HDPE nylon ceramics plumbing ' ||
                   'parachute zeppelin carbon hydrogen ' ||
                   'vinegar sludge asphalt adhesives ' ||
                   'tensile magnetic Ellesmere Greenland ' ||
                   'Knud Rasmussen precession ' ||
                   'navigation positioning orbit altitude ' ||
                   'resistance radiation levitation ' ||
                   'yoga demiurge election violence ' ||
                   'collapsed fusion cryogenics gravity ' ||
                   'sincerity idiocy budget accounting ' ||
                   'auditing titanium torque pressure ' ||
                   'fragile hernia muffler cartilage ' ||
                   'graphics deblurring headache eyestrain ' ||
                   'interlace bandwidth resolution ' ||
                   'determination steroids barrel oak wine ' ||
                   'ferment yeast brewing bock siphon ' ||
                   'clarity impurities SQL RBAC data ' ||
                   'warehouse security integrity feedback';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM CONTACTS
                    WHERE DESCRIPTION LIKE '%change.'
                    AND KEYWORDS LIKE '%feedback';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      DROP TABLE CONTACTS CASCADE;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;