|
|
|
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
sdl024.mco
Sprache: Unknown
Spracherkennung für: .mco vermutete Sprache: Latech {Latech[95] CS[177] Ada[196]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module xts734.mco
-- 59-byte ID
--
MODULE XTS734
LANGUAGE COBOL
AUTHORIZATION CTS1
PROCEDURE SUB1 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT USER INTO :UIDX FROM CTS1.ECCO;
PROCEDURE SUB2 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB3 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(*) INTO :COUN1
FROM TAB734 WHERE CSTR1 = CSTR2;
PROCEDURE SUB4 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(*) INTO :COUN1
FROM TAB734 WHERE CSTR1 <> _VANGELIS ' !';
PROCEDURE SUB5 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(CSTR2) INTO :COUN1
FROM TAB734 WHERE CSTR2 = _VANGELIS '* *';
PROCEDURE SUB6 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(*) INTO :COUN1
FROM TAB734 WHERE NOT CSTR1 <> _VANGELIS ' !';
PROCEDURE SUB7 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(CSTR1) INTO :COUN1
FROM TAB734 WHERE CSTR1 <> N' * ';
PROCEDURE SUB8 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(*) INTO :COUN1
FROM TAB734 WHERE NOT _VANGELIS '* *' = CSTR2;
PROCEDURE SUB9 (SQLCODE, SQLSTATE,
:COUN1 NUMERIC (9));
SELECT COUNT(CSTR2) INTO :COUN1
FROM TAB734 WHERE N'++++' <> CSTR2 ;
PROCEDURE SUB10 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB11 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7034','pass','MCO');
PROCEDURE SUB12 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7034','fail','MCO');
PROCEDURE SUB13 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ Dauer der Verarbeitung: 0.104 Sekunden
]
|
|
|
|
|
|
