Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 5 kB

Quelle dml175.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml175.mco
-- 59-byte ID
--
MODULE DML175
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 (500),
                    KEYWORDS NCHAR (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('0887','pass','MCO');

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

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;