project BLF > class BRole > method ValRoleName

validation procedure


Parameters


icTargetFieldinputcharacterValue of the business field to validate.
icTargetFieldNameinputcharacterName of the business field to validate.
icRowidinputcharacterContents of field tc_Rowid, if the target field is a field of a component temp-table.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
validation on tRole.RoleName


program code (program1/brole.p)

If Index(icTargetField,'*':U) > 0 Or
   Index(icTargetField,',':U) > 0 Or
   Index(icTargetField,'!':U) > 0 
Then Do:
    Assign vcMessage      = trim(#T-2'The role name may contain the following characters: '*', ',' or '!'':255(6727)T-2#)
           oiReturnStatus = -1.
    <M-1 run SetMessage
          (input  vcMessage (icMessage), 
           input  '':U (icArguments), 
           input  icTargetFieldName (icFieldName), 
           input  icTargetField (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  icRowid (icRowid), 
           input  'BLF-188':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BRole>
End.