Untersuchungsergebnis.mco Download desPython {Python[93] Latech[110] Ada[163]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module ist003.mco
-- 59-byte ID
--
MODULE IST003
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.COLUMNS
WHERE ORDINAL_POSITION IS NULL;
PROCEDURE SUB4 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM IS NULL
OR TABLE_NAME IS NULL
OR COLUMN_NAME IS NULL;
PROCEDURE SUB5 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS;
PROCEDURE SUB6 SQLCODE SQLSTATE
:CTR2 NUMERIC (9);
SELECT COUNT(*) INTO :CTR2
FROM INFO_SCHEM.COLUMNS A,
INFO_SCHEM.COLUMNS B
WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME
AND A.COLUMN_NAME = B.COLUMN_NAME;
PROCEDURE SUB7 SQLCODE SQLSTATE
:CTR2 NUMERIC (9);
SELECT COUNT(*) INTO :CTR2
FROM INFO_SCHEM.COLUMNS A,
INFO_SCHEM.COLUMNS B
WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME
AND A.ORDINAL_POSITION = B.ORDINAL_POSITION;
PROCEDURE SUB8 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS A
WHERE NOT EXISTS (SELECT * FROM
INFO_SCHEM.TABLES B WHERE
A.TABLE_SCHEM = B.TABLE_SCHEM AND
A.TABLE_NAME = B.TABLE_NAME);
PROCEDURE SUB9 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE ORDINAL_POSITION < 1;
PROCEDURE SUB10 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE (IS_NULLABLE <> 'YES'
AND IS_NULLABLE <> 'NO')
OR IS_NULLABLE IS NULL;
PROCEDURE SUB11 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'USIG' AND
COLUMN_NAME = 'C1' AND
COLUMN_DEF IS NULL AND
IS_NULLABLE = 'YES' AND
ORDINAL_POSITION = 1 AND
DATA_TYPE = 'INTEGER' AND
NUM_SCALE = 0 AND
CHAR_MAX_LENGTH IS NULL AND
CHAR_OCTET_LENGTH IS NULL AND
NUM_PREC_RADIX IN (2, 10)
AND DATETIME_PREC IS NULL;
PROCEDURE SUB12 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'USIG' AND
COLUMN_NAME = 'C_1' AND
COLUMN_DEF IS NULL AND
IS_NULLABLE = 'YES' AND
ORDINAL_POSITION = 2 AND
DATA_TYPE = 'INTEGER' AND
NUM_SCALE = 0 AND
CHAR_MAX_LENGTH IS NULL AND
CHAR_OCTET_LENGTH IS NULL AND
NUM_PREC_RADIX IN (2, 10)
AND DATETIME_PREC IS NULL;
PROCEDURE SUB13 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'USIG' AND
ORDINAL_POSITION > 2;
PROCEDURE SUB14 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'BASE_WCOV' AND
COLUMN_NAME = 'C1' AND
COLUMN_DEF IS NULL AND
IS_NULLABLE = 'YES' AND
ORDINAL_POSITION = 1 AND
DATA_TYPE = 'INTEGER' AND
NUM_SCALE = 0 AND
CHAR_MAX_LENGTH IS NULL AND
CHAR_OCTET_LENGTH IS NULL AND
NUM_PREC_RADIX IN (2, 10)
AND DATETIME_PREC IS NULL;
PROCEDURE SUB15 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'BASE_WCOV' AND
ORDINAL_POSITION <> 1;
PROCEDURE SUB16 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB17 SQLCODE SQLSTATE;
CREATE TABLE UUUSIG (IRREVERENT DEC (5, 2)
DEFAULT 111.22);
PROCEDURE SUB18 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.COLUMNS
WHERE TABLE_SCHEM = 'FLATER' AND
TABLE_NAME = 'UUUSIG' AND
COLUMN_NAME = 'IRREVERENT' AND
COLUMN_DEF LIKE '%111.22%' AND
IS_NULLABLE = 'YES' AND
ORDINAL_POSITION = 1 AND
DATA_TYPE = 'DECIMAL' AND
NUM_SCALE = 2 AND
CHAR_MAX_LENGTH IS NULL AND
CHAR_OCTET_LENGTH IS NULL AND
NUM_PREC_RADIX = 10
AND DATETIME_PREC IS NULL;
PROCEDURE SUB19 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB20 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0605','pass','MCO');
PROCEDURE SUB21 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0605','fail','MCO');
PROCEDURE SUB22 SQLCODE SQLSTATE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.128Quellennavigators
]
