The following code retrieves an ITablePermission object from the service, edits one of the IFieldPermission objects, and passes the ITablePermission back to the service to be committed to the database:

define variable tblPerm as ITablePermission no-undo.
define variable fldPerm as IFieldPermission no-undo.
define variable domain as IDomain no-undo.

tblPerm = service:GetTablePermission("Customer").
fldPerm = tblPerm:FieldPermissions:Find("CustNum").
fldPerm:CanWrite =  "xx@ABCDomain".
service:UpdateTablePermission(tblPerm).

For more information, see: