|
-- SQL Test Suite, V6.0, SQL Module dml088.mco
-- 59-byte ID
-- This module tests whether underscores are legal and signifcant
-- in module language.
-- It also uses commas in parameter lists.
MODULE DML_088
LANGUAGE COBOL
AUTHORIZATION FLATER
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 (SQLCODE,
:D1 NUMERIC (9),
:D_1 NUMERIC (9));
SELECT C1, C_1 INTO :D1, :D_1 FROM U_SIG
WHERE C1 > 4;
PROCEDURE SUBX1 (SQLCODE,
:D1 NUMERIC (9),
:D_1 NUMERIC (9));
SELECT C1, C_1 INTO :D1, :D_1 FROM U_SIG
WHERE C1 < 5;
PROCEDURE SUB2 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0521','pass','MCO');
PROCEDURE SUB3 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0521','fail','MCO');
PROCEDURE SUB4 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.24 Sekunden
(vorverarbeitet)
]
|
