Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
dml160.mco
Sprache: Unknown
rahmenlose Ansicht.mco DruckansichtPython {Python[73] Fortran[103] Ada[133]}Entwicklung
-- SQL Test Suite, V6.0, SQL Module yts772.mco
-- 59-byte ID
--
MODULE YTS772
LANGUAGE COBOL
AUTHORIZATION CTS1
DECLARE DATA772 CURSOR FOR
SELECT CONSTRAINT_CATALOG, CONSTRAINT_SCHEMA,
CONSTRAINT_NAME, IS_DEFERRABLE, INITIALLY_DEFERRED
FROM INFORMATION_SCHEMA.ASSERTIONS
PROCEDURE SUB1 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT USER INTO :UIDX FROM CTS1.ECCO;
PROCEDURE SUB2 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB3 (SQLCODE, SQLSTATE,
:CO1 NUMERIC (4));
SELECT COUNT (*) INTO :CO1
FROM INFORMATION_SCHEMA.ASSERTIONS
WHERE IS_DEFERRABLE IS NULL;
PROCEDURE SUB4 (SQLCODE, SQLSTATE,
:CO1 NUMERIC (4));
SELECT COUNT (*) INTO :CO1
FROM INFORMATION_SCHEMA.ASSERTIONS
WHERE INITIALLY_DEFERRED IS NULL;
PROCEDURE SUB5 (SQLCODE, SQLSTATE);
OPEN data772;
PROCEDURE SUB6 (SQLCODE, SQLSTATE,
:CC CHAR(128),
:CS CHAR(128),
:CN CHAR(128),
:ID CHAR(18),
:INID CHAR(18));
FETCH data772 INTO :CC, :CS, :CN, :ID, :INID
;
PROCEDURE SUB7 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB8 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7554','pass','MCO');
PROCEDURE SUB9 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7554','fail','MCO');
PROCEDURE SUB10 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ Verzeichnis aufwärts0.131unsichere Verbindung
]
|
|
