Spracherkennung für: .mco vermutete Sprache: Shell {Shell[54] Scala[83] Lex[98]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module mpb008.mco
-- 59-byte ID
--
MODULE MPB008
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1
PROCEDURE SUB1 SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB2 SQLCODE
:KNUM NUMERIC (9);
SELECT COUNT(*)
INTO :KNUM
FROM MP8_NEXTKEY WHERE AUTHOR = 'A';
PROCEDURE SUB3 SQLCODE;
COMMIT WORK;
PROCEDURE SUB4 SQLCODE;
INSERT INTO MP8_NEXTKEY (KEYNUM,AUTHOR)
VALUES(2, 'B');
PROCEDURE SUB5 SQLCODE;
COMMIT WORK;
PROCEDURE SUB6 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB7 SQLCODE;
INSERT INTO MP8_AA VALUES (3,'B');
PROCEDURE SUB8 SQLCODE;
COMMIT WORK;
PROCEDURE SUB9 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB10 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB11 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0517','fail','MCO');
PROCEDURE SUB12 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.85 Sekunden
]
