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 ist006.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module ist006.mco
-- 59-byte ID
--
MODULE IST006
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.COLUMN_PRIVILEGES
                    WHERE GRANTEE NOT IN ('PUBLIC', USER)
                    AND GRANTOR <> USER;

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

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

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR IS NULL
                    OR GRANTEE IS NULL
                    OR TABLE_SCHEM IS NULL
                    OR TABLE_NAME IS NULL
                    OR PRIVILEGE_TYPE IS NULL
                    OR COLUMN_NAME IS NULL;

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

PROCEDURE SUB8 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES A,
                    INFO_SCHEM.COLUMN_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
                    AND A.COLUMN_NAME = B.COLUMN_NAME;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES A
                    WHERE NOT EXISTS (
                    SELECT * FROM INFO_SCHEM.COLUMNS B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME
                    AND A.COLUMN_NAME = B.COLUMN_NAME);

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'YES'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'USIG'
                    AND COLUMN_NAME = 'C_1'
                    AND PRIVILEGE_TYPE = 'SELECT';

PROCEDURE SUB11 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'YES'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'USIG'
                    AND COLUMN_NAME = 'C_1'
                    AND PRIVILEGE_TYPE = 'INSERT';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'YES'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'USIG'
                    AND COLUMN_NAME = 'C_1'
                    AND PRIVILEGE_TYPE = 'UPDATE';

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = '_SYSTEM'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'YES'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'USIG'
                    AND COLUMN_NAME = 'C_1'
                    AND PRIVILEGE_TYPE = 'REFERENCES';

PROCEDURE SUB14 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'FLATER'
                    AND GRANTEE = 'SCHANZLE'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'WCOV'
                    AND COLUMN_NAME = 'C1'
                    AND PRIVILEGE_TYPE = 'SELECT';

PROCEDURE SUB15 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'FLATER'
                    AND GRANTEE = 'SCHANZLE'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'WCOV'
                    AND COLUMN_NAME = 'C1'
                    AND PRIVILEGE_TYPE = 'INSERT';

PROCEDURE SUB16 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'FLATER'
                    AND GRANTEE = 'SCHANZLE'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'WCOV'
                    AND COLUMN_NAME = 'C1'
                    AND PRIVILEGE_TYPE = 'UPDATE';

PROCEDURE SUB17 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'FLATER'
                    AND GRANTEE = 'SCHANZLE'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'WCOV'
                    AND COLUMN_NAME = 'C1'
                    AND PRIVILEGE_TYPE = 'REFERENCES';

PROCEDURE SUB18 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'HU'
                    AND GRANTEE = 'PUBLIC'
                    AND IS_GRANTABLE = 'YES'
                    AND TABLE_SCHEM = 'HU'
                    AND TABLE_NAME = 'TESTREPORT'
                    AND COLUMN_NAME = 'RESULT'
                    AND PRIVILEGE_TYPE = 'INSERT';

PROCEDURE SUB19 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.COLUMN_PRIVILEGES
                    WHERE GRANTOR = 'HU'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'HU'
                    AND TABLE_NAME = 'STAFF4'
                    AND COLUMN_NAME = 'EMPNAME'
                    AND PRIVILEGE_TYPE = 'INSERT';

PROCEDURE SUB20 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;