Untersuchungsergebnis.mco Download desSQL {SQL[74] Python[88] Fortran[110]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module isi004.mco
-- 59-byte ID
--
MODULE ISI004
LANGUAGE COBOL
AUTHORIZATION FLATER
PROCEDURE SUB1 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB2 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB3 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT DISTINCT SCHEMA_OWNER
INTO :UIDX
FROM INFORMATION_SCHEMA.SCHEMATA;
PROCEDURE SUB4 (SQLCODE, SQLSTATE,
:CTR1 NUMERIC (9));
SELECT COUNT(*) INTO :CTR1
FROM INFORMATION_SCHEMA.SCHEMATA
WHERE SCHEMA_NAME IS NULL;
PROCEDURE SUB5 (SQLCODE, SQLSTATE,
:CTR1 NUMERIC (9));
SELECT COUNT(*) INTO :CTR1
FROM INFORMATION_SCHEMA.SCHEMATA;
PROCEDURE SUB6 (SQLCODE, SQLSTATE,
:CTR2 NUMERIC (9));
SELECT COUNT(*) INTO :CTR2
FROM INFORMATION_SCHEMA.SCHEMATA A,
INFORMATION_SCHEMA.SCHEMATA B
WHERE A.SCHEMA_NAME = B.SCHEMA_NAME;
PROCEDURE SUB7 (SQLCODE, SQLSTATE,
:CTR1 NUMERIC (9));
SELECT COUNT(*) INTO :CTR1
FROM INFORMATION_SCHEMA.SCHEMATA
WHERE SCHEMA_NAME = 'FLATER'
AND SCHEMA_OWNER = 'FLATER';
PROCEDURE SUB8 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB9 (SQLCODE, SQLSTATE);
INSERT INTO HU.TESTREPORT
VALUES('0571','pass','MCO');
PROCEDURE SUB10 (SQLCODE, SQLSTATE);
INSERT INTO HU.TESTREPORT
VALUES('0571','fail','MCO');
PROCEDURE SUB11 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.108Quellennavigators
]
