Quelle  ist007.mco

-- SQL Test Suite, V6.0, SQL Module ist007.mco
-- 59-byte ID
-- 
MODULE IST007
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_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.TABLES;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT TABLE_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.VIEWS;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT TABLE_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.COLUMNS;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT CAT_NAME)
                    INTO :CTR1
                    FROM INFO_SCHEM.SCHEMATA;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT TABLE_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT TABLE_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT (DISTINCT OBJECT_CAT)
                    INTO :CTR1
                    FROM INFO_SCHEM.USAGE_PRIVILEGES;

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

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

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

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

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

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

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

PROCEDURE SUB17 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9)
    :CATLOG CHAR(128);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.USAGE_PRIVILEGES
                    WHERE OBJECT_CAT <> :CATLOG
                    OR OBJECT_CAT 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 CHAR_SET_CAT,
                    CHAR_SET_SCHEM,
                    CHAR_SET_NAME,
                    COLLATION_CAT,
                    COLLATION_SCHEM,
                    COLLATION_NAME,
                    DOMAIN_CAT,
                    DOMAIN_SCHEM,
                    DOMAIN_NAME,
                    INTERVAL_TYPE,
                    INTERVAL_PREC
                    INTO :JUNK1:INDIC1,
                    :JUNK2:INDIC2,
                    :JUNK3:INDIC3,
                    :JUNK4:INDIC4,
                    :JUNK5:INDIC5,
                    :JUNK6:INDIC6,
                    :JUNK7:INDIC7,
                    :JUNK8:INDIC8,
                    :JUNK9:INDIC9,
                    :JUNK10:INDICA,
                    :JUNK11:INDICB
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = '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 DEF_CHAR_SET_CAT,
                    DEF_CHAR_SET_SCHEM,
                    DEF_CHAR_SET_NAME
                    INTO :JUNK1:INDIC1,
                    :JUNK2:INDIC2,
                    :JUNK3:INDIC3
                    FROM INFO_SCHEM.SCHEMATA
                    WHERE SCHEM_NAME = 'FLATER';

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

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

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

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

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

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

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

PROCEDURE SUB27 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;