Quelle  isi007.mco

-- Test Suite, V6.0, SQL Module isi007.mco
-- 59-byte ID
-- 
MODULE ISI007
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 (DISTINCT TABLE_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT TABLE_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT TABLE_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT CATALOG_NAME)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.SCHEMATA;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT TABLE_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLE_PRIVILEGES;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT TABLE_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMN_PRIVILEGES;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT (DISTINCT OBJECT_CATALOG)
                    INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CATLOG CHAR(128));
      SELECT TABLE_CATALOG INTO :CATLOG
                    FROM INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_NAME = 'WCOV';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_CATALOG <> :CATLOG
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_CATALOG <> :CATLOG
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_CATALOG <> :CATLOG
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.SCHEMATA
                    WHERE CATALOG_NAME <> :CATLOG
                    OR CATALOG_NAME IS NULL;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLE_PRIVILEGES
                    WHERE TABLE_CATALOG <> :CATLOG
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.COLUMN_PRIVILEGES
                    WHERE TABLE_CATALOG <> :CATLOG
                    OR TABLE_CATALOG IS NULL;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9),
    :CATLOG CHAR(128));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE OBJECT_CATALOG <> :CATLOG
                    OR OBJECT_CATALOG IS NULL;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :JUNK1 CHAR(39),
    :INDIC1 NUMERIC (4),
    :JUNK2 CHAR(39),
    :INDIC2 NUMERIC (4),
    :JUNK3 CHAR(39),
    :INDIC3 NUMERIC (4),
    :JUNK4 CHAR(39),
    :INDIC4 NUMERIC (4),
    :JUNK5 CHAR(39),
    :INDIC5 NUMERIC (4),
    :JUNK6 CHAR(39),
    :INDIC6 NUMERIC (4),
    :JUNK7 CHAR(39),
    :INDIC7 NUMERIC (4),
    :JUNK8 CHAR(39),
    :INDIC8 NUMERIC (4),
    :JUNK9 CHAR(39),
    :INDIC9 NUMERIC (4),
    :JUNK10 CHAR(39),
    :INDICA NUMERIC (4),
    :JUNK11 NUMERIC (9),
    :INDICB NUMERIC (4));
      SELECT CHARACTER_SET_CATALOG,
                    CHARACTER_SET_SCHEMA,
                    CHARACTER_SET_NAME,
                    COLLATION_CATALOG,
                    COLLATION_SCHEMA,
                    COLLATION_NAME,
                    DOMAIN_CATALOG,
                    DOMAIN_SCHEMA,
                    DOMAIN_NAME,
                    INTERVAL_TYPE,
                    INTERVAL_PRECISION
                    INTO :JUNK1:INDIC1,
                    :JUNK2:INDIC2,
                    :JUNK3:INDIC3,
                    :JUNK4:INDIC4,
                    :JUNK5:INDIC5,
                    :JUNK6:INDIC6,
                    :JUNK7:INDIC7,
                    :JUNK8:INDIC8,
                    :JUNK9:INDIC9,
                    :JUNK10:INDICA,
                    :JUNK11:INDICB
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'USIG'
                    AND COLUMN_NAME = 'C1';

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :JUNK1 CHAR(39),
    :INDIC1 NUMERIC (4),
    :JUNK2 CHAR(39),
    :INDIC2 NUMERIC (4),
    :JUNK3 CHAR(39),
    :INDIC3 NUMERIC (4));
      SELECT DEFAULT_CHARACTER_SET_CATALOG,
                    DEFAULT_CHARACTER_SET_SCHEMA,
                    DEFAULT_CHARACTER_SET_NAME
                    INTO :JUNK1:INDIC1,
                    :JUNK2:INDIC2,
                    :JUNK3:INDIC3
                    FROM INFORMATION_SCHEMA.SCHEMATA
                    WHERE SCHEMA_NAME = 'FLATER';

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTEE NOT IN ('PUBLIC', USER)
                    AND GRANTOR <> USER;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE PRIVILEGE_TYPE <> 'USAGE'
                    OR PRIVILEGE_TYPE IS NULL;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE IS_GRANTABLE IS NULL;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE IS_GRANTABLE NOT IN
                    ('YES', 'NO');

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR IS NULL
                    OR GRANTEE IS NULL
                    OR OBJECT_SCHEMA IS NULL
                    OR OBJECT_NAME IS NULL
                    OR OBJECT_TYPE IS NULL;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES;

PROCEDURE SUB26 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES A,
                    INFORMATION_SCHEMA.USAGE_PRIVILEGES B
                    WHERE A.GRANTOR = B.GRANTOR
                    AND A.GRANTEE = B.GRANTEE
                    AND A.OBJECT_SCHEMA = B.OBJECT_SCHEMA
                    AND A.OBJECT_NAME = B.OBJECT_NAME
                    AND A.OBJECT_TYPE = B.OBJECT_TYPE;

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE (
                    OBJECT_TYPE = 'DOMAIN' AND NOT EXISTS
                    (SELECT * FROM INFORMATION_SCHEMA.DOMAINS WHERE
                    OBJECT_SCHEMA = DOMAIN_SCHEMA AND
                    OBJECT_NAME = DOMAIN_NAME
                    )
                    ) OR (
                    OBJECT_TYPE = 'CHARACTER SET' AND NOT EXISTS
                    (SELECT * FROM INFORMATION_SCHEMA.CHARACTER_SETS WHERE
                    OBJECT_SCHEMA = CHARACTER_SET_SCHEMA AND
                    OBJECT_NAME = CHARACTER_SET_NAME
                    )
                    );

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'PUBLIC'
                    AND OBJECT_SCHEMA = 'INFORMATION_SCHEMA'
                    AND OBJECT_NAME = 'SQL_TEXT'
                    AND OBJECT_TYPE = 'CHARACTER SET'
                    AND IS_GRANTABLE = 'YES'
                    AND PRIVILEGE_TYPE = 'USAGE';

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'PUBLIC'
                    AND OBJECT_SCHEMA = 'INFORMATION_SCHEMA'
                    AND OBJECT_NAME = 'CARDINAL_NUMBER'
                    AND OBJECT_TYPE = 'DOMAIN'
                    AND IS_GRANTABLE = 'YES'
                    AND PRIVILEGE_TYPE = 'USAGE';

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'PUBLIC'
                    AND OBJECT_SCHEMA = 'INFORMATION_SCHEMA'
                    AND OBJECT_NAME = 'SQL_IDENTIFIER'
                    AND OBJECT_TYPE = 'DOMAIN'
                    AND IS_GRANTABLE = 'YES'
                    AND PRIVILEGE_TYPE = 'USAGE';

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'PUBLIC'
                    AND OBJECT_SCHEMA = 'INFORMATION_SCHEMA'
                    AND OBJECT_NAME = 'CHARACTER_DATA'
                    AND OBJECT_TYPE = 'DOMAIN'
                    AND IS_GRANTABLE = 'YES'
                    AND PRIVILEGE_TYPE = 'USAGE';

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0574','pass','MCO');

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0574','fail','MCO');

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      COMMIT WORK;