products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: sdl030.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desScala {Scala[86] Latech[100] Ada[167]}zum Wurzelverzeichnis wechseln

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

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

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

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

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

PROCEDURE SUB8 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.TABLE_PRIVILEGES A,
                    INFO_SCHEM.TABLE_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;

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

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES A
                    WHERE EXISTS (
                    SELECT *
                    FROM INFO_SCHEM.TABLES B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME);

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

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

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

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

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

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

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

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

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

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

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

PROCEDURE SUB22 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLE_PRIVILEGES
                    WHERE GRANTOR = 'HU'
                    AND GRANTEE = 'FLATER'
                    AND IS_GRANTABLE = 'NO'
                    AND TABLE_SCHEM = 'HU'
                    AND TABLE_NAME = 'STAFF4'
                    AND PRIVILEGE_TYPE = 'DELETE';

PROCEDURE SUB23 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.111Quellennavigators  ]