|
-- SQL Test Suite, V6.0, SQL Module dml173.mco
-- 59-byte ID
--
MODULE DML173
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 CONTACTS (
NAME CHAR (20),
DESCRIPTION CHAR (1000),
KEYWORDS CHAR (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('0885','pass','MCO');
PROCEDURE SUB12 (SQLCODE, SQLSTATE);
INSERT INTO HU.TESTREPORT
VALUES('0885','fail','MCO');
PROCEDURE SUB13 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ Dauer der Verarbeitung: 0.9 Sekunden
(vorverarbeitet)
]
|
