products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: isi001.mco   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[100] Lex[148] Latech[181]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- 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;

[ Dauer der Verarbeitung: 0.217 Sekunden  ]