Untersuchungsergebnis.mco Download desScala {Scala[86] Latech[100] Ada[167]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module ist005.mco
-- 59-byte ID
--
MODULE IST005
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.TABLE_PRIVILEGES
WHERE GRANTEE NOT IN ('PUBLIC', USER)
AND GRANTOR <> USER;
PROCEDURE SUB4 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE IS_GRANTABLE IS NULL;
PROCEDURE SUB5 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE IS_GRANTABLE NOT IN ('YES', 'NO');
PROCEDURE SUB6 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR IS NULL
OR GRANTEE IS NULL
OR TABLE_SCHEM IS NULL
OR TABLE_NAME IS NULL
OR PRIVILEGE_TYPE IS NULL;
PROCEDURE SUB7 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES;
PROCEDURE SUB8 SQLCODE SQLSTATE
:CTR2 NUMERIC (9);
SELECT COUNT(*) INTO :CTR2
FROM INFO_SCHEM.TABLE_PRIVILEGES A,
INFO_SCHEM.TABLE_PRIVILEGES B
WHERE A.GRANTOR = B.GRANTOR
AND A.GRANTEE = B.GRANTEE
AND A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME
AND A.PRIVILEGE_TYPE = B.PRIVILEGE_TYPE;
PROCEDURE SUB9 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES 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 SUB10 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES A
WHERE EXISTS (
SELECT *
FROM INFO_SCHEM.TABLES B
WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
AND A.TABLE_NAME = B.TABLE_NAME);
PROCEDURE SUB11 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = '_SYSTEM'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'USIG'
AND PRIVILEGE_TYPE = 'SELECT';
PROCEDURE SUB12 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = '_SYSTEM'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'USIG'
AND PRIVILEGE_TYPE = 'INSERT';
PROCEDURE SUB13 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = '_SYSTEM'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'USIG'
AND PRIVILEGE_TYPE = 'UPDATE';
PROCEDURE SUB14 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = '_SYSTEM'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'USIG'
AND PRIVILEGE_TYPE = 'DELETE';
PROCEDURE SUB15 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = '_SYSTEM'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'USIG'
AND PRIVILEGE_TYPE = 'REFERENCES';
PROCEDURE SUB16 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'FLATER'
AND GRANTEE = 'SCHANZLE'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'WCOV'
AND PRIVILEGE_TYPE = 'SELECT';
PROCEDURE SUB17 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'FLATER'
AND GRANTEE = 'SCHANZLE'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'WCOV'
AND PRIVILEGE_TYPE = 'INSERT';
PROCEDURE SUB18 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'FLATER'
AND GRANTEE = 'SCHANZLE'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'WCOV'
AND PRIVILEGE_TYPE = 'UPDATE';
PROCEDURE SUB19 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'FLATER'
AND GRANTEE = 'SCHANZLE'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'WCOV'
AND PRIVILEGE_TYPE = 'DELETE';
PROCEDURE SUB20 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'FLATER'
AND GRANTEE = 'SCHANZLE'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'FLATER'
AND TABLE_NAME = 'WCOV'
AND PRIVILEGE_TYPE = 'REFERENCES';
PROCEDURE SUB21 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'HU'
AND GRANTEE = 'PUBLIC'
AND IS_GRANTABLE = 'YES'
AND TABLE_SCHEM = 'HU'
AND TABLE_NAME = 'TESTREPORT'
AND PRIVILEGE_TYPE = 'INSERT';
PROCEDURE SUB22 SQLCODE SQLSTATE
:CTR1 NUMERIC (9);
SELECT COUNT(*) INTO :CTR1
FROM INFO_SCHEM.TABLE_PRIVILEGES
WHERE GRANTOR = 'HU'
AND GRANTEE = 'FLATER'
AND IS_GRANTABLE = 'NO'
AND TABLE_SCHEM = 'HU'
AND TABLE_NAME = 'STAFF4'
AND PRIVILEGE_TYPE = 'DELETE';
PROCEDURE SUB23 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB24 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0607','pass','MCO');
PROCEDURE SUB25 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0607','fail','MCO');
PROCEDURE SUB26 SQLCODE SQLSTATE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.191Quellennavigators
]
