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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ (Beweissystem des Inria Version 9.1.0^©) Datei vom 4.1.2008 mit Größe 23 kB

Quelle isi007.mco Sprache: unbekannt

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