Untersuchungsergebnis.mco Download desSQL {SQL[48] Scala[69] Pl1[90]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module ist004.mco
-- 59-byte ID
--
MODULE IST004
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 SCHEM_OWNER
INTO :UIDX
FROM INFO_SCHEM.SCHEMATA;
PROCEDURE SUB4 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.SCHEMATA
WHERE SCHEM_NAME IS NULL;
PROCEDURE SUB5 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.SCHEMATA;
PROCEDURE SUB6 SQLCODE SQLSTATE
:CTR2 NUMERIC (9);
SELECT COUNT(*) INTO :CTR2
FROM INFO_SCHEM.SCHEMATA A,
INFO_SCHEM.SCHEMATA B
WHERE A.SCHEM_NAME = B.SCHEM_NAME;
PROCEDURE SUB7 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.SCHEMATA
WHERE SCHEM_NAME = 'FLATER'
AND SCHEM_OWNER = 'FLATER';
PROCEDURE SUB8 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB9 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0606','pass','MCO');
PROCEDURE SUB10 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0606','fail','MCO');
PROCEDURE SUB11 SQLCODE SQLSTATE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.88Quellennavigators
]
