This function returns the current user's ESS field access for a particular field group on a particular record group. The record group's logical number is supplied as the argument RecordgroupExpression and the field group number is supplied by FieldgroupExpression.

One of the following values can be returned:

• 0 No access
• 1 Read only access
• 2 Read and write access

This example checks that the operator has permission to access the wage fields for the current employee. If not, then a message is displayed.

define WAGES 4

if FieldPermissions(CurrentRecordGroup, WAGES) = 0 then

Alert "No permission For this person"
Exit Method

end if

Subtable salaries

SetIndex DefaultIndex
FirstRecord

while not syserror

Print PayRate, "changed on", PayChange

NextRecord
end while

end subtable | salaries