Spracherkennung für: .mco vermutete Sprache: Shell {Shell[57] Isabelle[86] CS[124]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module mpa005.mco
-- 59-byte ID
--
MODULE MPA005
LANGUAGE COBOL
AUTHORIZATION SULLIVAN1
PROCEDURE SUB1 SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB2 SQLCODE;
COMMIT WORK;
PROCEDURE SUB3 SQLCODE;
DELETE FROM MP5_AA;
PROCEDURE SUB4 SQLCODE;
DELETE FROM MP5_AA_INDEX;
PROCEDURE SUB5 SQLCODE;
DELETE FROM MP5_TT;
PROCEDURE SUB6 SQLCODE;
COMMIT WORK;
PROCEDURE SUB7 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB8 SQLCODE
:DEL1 NUMERIC (9)
:DEL2 NUMERIC (9);
DELETE FROM MP5_AA
WHERE ANUM BETWEEN :DEL1 AND :DEL2;
PROCEDURE SUB9 SQLCODE
:DEL1 NUMERIC (9)
:DEL2 NUMERIC (9);
DELETE FROM MP5_AA_INDEX
WHERE ANUM BETWEEN :DEL1 AND :DEL2;
PROCEDURE SUB10 SQLCODE;
COMMIT WORK;
PROCEDURE SUB11 SQLCODE
:SEQNO NUMERIC (9);
INSERT INTO MP5_AA VALUES (:SEQNO);
PROCEDURE SUB12 SQLCODE
:SEQNO NUMERIC (9);
INSERT INTO MP5_AA_INDEX VALUES (:SEQNO);
PROCEDURE SUB13 SQLCODE
:CC CHAR(2);
SELECT C1 INTO :CC FROM HU.ECCO;
PROCEDURE SUB14 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB15 SQLCODE;
COMMIT WORK;
PROCEDURE SUB16 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB17 SQLCODE
:CC CHAR(2);
SELECT C1 INTO :CC FROM HU.ECCO;
PROCEDURE SUB18 SQLCODE;
COMMIT WORK;
PROCEDURE SUB19 SQLCODE
:GETCT NUMERIC (9);
SELECT COUNT(*) INTO :GETCT
FROM MP5_TT;
PROCEDURE SUB20 SQLCODE;
COMMIT WORK;
PROCEDURE SUB21 SQLCODE
:GETCT NUMERIC (9);
SELECT COUNT(DISTINCT TESTTYPE)
INTO :GETCT FROM MP5_TT;
PROCEDURE SUB22 SQLCODE;
DELETE FROM MP5_AA;
PROCEDURE SUB23 SQLCODE;
DELETE FROM MP5_AA_INDEX;
PROCEDURE SUB24 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.93 Sekunden
]
