project QadFinancials > class BRole > method RoleExists

Parameters

Internal usage

program code (program1/brole.p)

define variable oiReturnStatus as integer no-undo.

<Q-1 run RolePrim (all)  (Read)  (NoCache)  (input ?, (RoleID) 
                   input icRoleName, (RoleName)
                   output dataset tqRolePrim) in BRole >
find first tqRolePrim where tqRolePrim.tcRoleName = icRoleName no-lock no-error.
return available(tqRolePrim).