Quelle  xts764.mco

-- SQL Test Suite, V6.0, SQL Module xts764.mco
-- 59-byte ID
-- 
MODULE XTS764
LANGUAGE COBOL
AUTHORIZATION CTS1



PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM CTS1.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CS TO CTS2 
                    WITH GRANT OPTION;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CHARACTER SET CS TO CTS3 WITH GRANT
                  OPTION;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CREATE TABLE TEMP764C 
                    ( COLCH1 CHAR(10) CHARACTER SET CTS1.CS,
                    COLCH2 CHAR(5)  CHARACTER SET CTS1.CS);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = 'CTS1' AND GRANTEE = 'CTS2'
                    AND OBJECT_NAME = 'CS' AND OBJECT_TYPE = 'CHARACTER SET'
                    AND IS_GRANTABLE = 'YES';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ISGR CHAR(128));
      SELECT IS_GRANTABLE INTO :ISGR
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = 'CTS1' AND GRANTEE = 'CTS3'
                    AND OBJECT_TYPE = 'CHARACTER SET' AND OBJECT_NAME = 'CS'
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      REVOKE USAGE ON CHARACTER SET CS FROM CTS2
                  RESTRICT;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      REVOKE GRANT OPTION FOR USAGE ON CHARACTER SET CS 
                    FROM CTS3 RESTRICT;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :ISGR CHAR(128));
      SELECT IS_GRANTABLE INTO :ISGR
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE GRANTOR = 'CTS1' AND GRANTEE = 'CTS3'
                    AND OBJECT_TYPE = 'CHARACTER SET' AND OBJECT_NAME = 'CS'
                 ;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN 
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES 
                    WHERE OBJECT_TYPE = 'CHARACTER SET' AND OBJECT_NAME =
                  'CS'
                    AND GRANTEE = 'CTS2';

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :STR1 CHAR(51));
      PREPARE S FROM :STR1;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      EXECUTE S;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO TEMP764C VALUES(_CTS1.CS 'TEST',
                  _CTS1.CS 'DONE');

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      DROP TABLE TEMP764C CASCADE;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      REVOKE USAGE ON CHARACTER SET CS FROM CTS3 CASCADE
                 ;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7064','pass','MCO');

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7064','fail','MCO');

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      COMMIT WORK;