Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 7 kB

Quelle ist007.mco Sprache: unbekannt

-- 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;