Spracherkennung für: .mco vermutete Sprache: Python {Python[96] Latech[109] Ada[164]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module ist001.mco
-- 59-byte ID
--
MODULE IST001
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
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES
WHERE TABLE_TYPE IS NULL;
PROCEDURE SUB4 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES A
WHERE NOT EXISTS (
SELECT *
FROM INFO_SCHEM.COLUMNS B
WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME
);
PROCEDURE SUB5 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES
WHERE TABLE_SCHEM IS NULL
OR TABLE_NAME IS NULL;
PROCEDURE SUB6 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES;
PROCEDURE SUB7 SQLCODE SQLSTATE
:CTR2 NUMERIC (9);
SELECT COUNT(*) INTO :CTR2
FROM INFO_SCHEM.TABLES A, INFO_SCHEM.TABLES B
WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME;
PROCEDURE SUB8 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES A
WHERE NOT EXISTS (
SELECT *
FROM INFO_SCHEM.SCHEMATA B
WHERE A.TABLE_SCHEM = B.SCHEM_NAME
);
PROCEDURE SUB9 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES A WHERE
TABLE_TYPE = 'VIEW' AND NOT EXISTS
(SELECT * FROM INFO_SCHEM.VIEWS B WHERE
A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME);
PROCEDURE SUB10 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLES Z WHERE NOT EXISTS
(SELECT TABLE_SCHEM, TABLE_NAME FROM
INFO_SCHEM.TABLE_PRIVILEGES X
WHERE GRANTEE IN ('PUBLIC', USER)
AND X.TABLE_SCHEM = Z.TABLE_SCHEM
AND X.TABLE_NAME = Z.TABLE_NAME
UNION
SELECT TABLE_SCHEM, TABLE_NAME FROM
INFO_SCHEM.COLUMN_PRIVILEGES Y
WHERE GRANTEE IN ('PUBLIC', USER)
AND Y.TABLE_SCHEM = Z.TABLE_SCHEM
AND Y.TABLE_NAME = Z.TABLE_NAME);
PROCEDURE SUB11 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'USIG';
PROCEDURE SUB12 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'U_SIG';
PROCEDURE SUB13 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'DV1';
PROCEDURE SUB14 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'BASE_WCOV';
PROCEDURE SUB15 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'WCOV';
PROCEDURE SUB16 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'BASE_VS1';
PROCEDURE SUB17 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS1';
PROCEDURE SUB18 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS2';
PROCEDURE SUB19 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS3';
PROCEDURE SUB20 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS4';
PROCEDURE SUB21 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS5';
PROCEDURE SUB22 SQLCODE SQLSTATE
:TTYPE CHAR(16);
SELECT TABLE_TYPE INTO :TTYPE
FROM INFO_SCHEM.TABLES WHERE
TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'VS6';
PROCEDURE SUB23 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB24 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0603','pass','MCO');
PROCEDURE SUB25 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0603','fail','MCO');
PROCEDURE SUB26 SQLCODE SQLSTATE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.94 Sekunden
]
