Quelle  dml176.mco

-- SQL Test Suite, V6.0, SQL Module dml176.mco
-- 59-byte ID
-- 
MODULE DML176
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 NCHAR VARYING (500),
                    KEYWORDS NCHAR VARYING (500));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CONTACTS VALUES ('Harry',
                    N'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 gra',
                    N'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');

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM CONTACTS
                    WHERE DESCRIPTION =
                    N'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 gra'
                    AND KEYWORDS =
                    N'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'
                   ;

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

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('0888','pass','MCO');

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

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;