Kbase P138234: 4GL/ABL: How to list permissions on a 4GL/ABL database table?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
18/08/2009 |
|
Status: Verified
GOAL:
4GL/ABL: How to list permissions on a 4GL/ABL database table?
GOAL:
How to access permissions on the fields of a 4GL/ABL database table
fields?
GOAL:
How to get permissions on the _User tables?
FACT(s) (Environment):
All Supported Operating Systems
Progress 8.x
Progress 9.x
OpenEdge 10.x
FIX:
The following code demonstrates how to access the permissions on a 4GL/ABL database table and its fields. Specifically, this procedure creates a report that lists the permissions on the _User table and its fields:
ListUserTableAndFieldsPermissions.p
OUTPUT TO UserTableFilePermissions.txt.
FIND _File WHERE _File-name = "_User" NO-LOCK.
PUT UNFORMATTED _File._File-Name SKIP.
PUT UNFORMATTED _File._Can-Read SKIP.
PUT UNFORMATTED _File._Can-Write SKIP.
PUT UNFORMATTED _File._Can-Delete SKIP.
PUT UNFORMATTED _File._Can-Create SKIP.
PUT UNFORMATTED _File._Can-Dump SKIP.
PUT UNFORMATTED _File._Can-Load SKIP.
OUTPUT CLOSE.
OUTPUT TO UserTableFieldPermissions.txt.
FOR EACH _Field OF _File NO-LOCK:
PUT UNFORMATTED _Field._field-Name SKIP.
PUT UNFORMATTED _File._Can-Read SKIP.
PUT UNFORMATTED _File._Can-Write SKIP.
END.
OUTPUT CLOSE.