project QadFinancials > class BRole > method RoleExists

function returns logical


Parameters


icRoleNameinputcharacter


Internal usage


QadFinancials
method BRole.CreateNotifyRole


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).