Feedback
Did this article resolve your question/issue?

   

Article

ABL/4GL Code to revoke rights to SCHEMA tables.

« Go Back

Information

 
TitleABL/4GL Code to revoke rights to SCHEMA tables.
URL NameABL-4GL-Code-to-revoke-rights-to-SCHEMA-tables
Article Number000143967
EnvironmentProduct: Progress
Product: OpenEdge
Version: 9.1x, 10.x, 11.x
OS: All supported platforms
Question/Problem Description
ABL/4GL code to revoke SQL rights to SCHEMA tables.
Steps to Reproduce
Clarifying Information
This ABL/4GL code to revoke SQL rights on SCHEMA tables does not revoke rights on regular database tables such as PUB.tablename
Error Message
Defect Number
Enhancement Number
Cause
Resolution
Run the ABL / 4GL code below within a Progress / OpenEdge procedure editor while connected to the database:
/* Uncomment appropriate line to include ALL tables or only Schema tables in revoke script. Comment out the one that isn't used */
&GLOBAL-DEFINE AllorSchema "Schema"
/*&GLOBAL-DEFINE AllorSchema "All"*/

OUTPUT TO "RevokeAllScript.sql".

FOR EACH _File NO-LOCK &IF {&AllorSchema}="Schema" &THEN WHERE _Tbl-Type NE "T" &ENDIF BY _Tbl-Type:
  PUT UNFORMATTED "REVOKE ALL ON " QUOTER(_Owner) "." QUOTER(_FILE-NAME) (IF PROVERSION LT "10.1C" THEN " FROM PUBLIC;" ELSE " FROM PUBLIC GRANTED BY ANY_USER;") SKIP.
  PUT UNFORMATTED "COMMIT;" SKIP.
END.

OUTPUT CLOSE.
The above code will create a revokeallscript.sql which can be run by the SQLExplorer or within a 3rd party SQL tool while connected to the database.
 
Workaround
Notes
Progress Article(s):

 What is the sqlexplorer tool?
Last Modified Date11/20/2020 7:17 AM
Attachment 
Files
Disclaimer The origins of the information on this site may be internal or external to Progress Software Corporation (“Progress”). Progress Software Corporation makes all reasonable efforts to verify this information. However, the information provided is for your information only. Progress Software Corporation makes no explicit or implied claims to the validity of this information.

Any sample code provided on this site is not supported under any Progress support program or service. The sample code is provided on an "AS IS" basis. Progress makes no warranties, express or implied, and disclaims all implied warranties including, without limitation, the implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the sample code is borne by the user. In no event shall Progress, its employees, or anyone else involved in the creation, production, or delivery of the code be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the sample code, even if Progress has been advised of the possibility of such damages.