icRoleName | input | character |
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).