method ValRoleBusComponentConcept

validation procedure

Description

Validation on field Role.RoleBusComponentConcept

Parameters

icTargetField	input	character	Value of the business field to validate.
icTargetFieldName	input	character	Name of the business field to validate.
icRowid	input	character	Contents of field tc_Rowid, if the target field is a field of a component temp-table.
iiBusComponentID	input	integer	Value of field Role.BusComponent_ID
icBusComponentCode	input	character	Value of Role.tcBusComponentLabel
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

validation on tRole.RoleBusComponentConcept

program code (program5/brole.p)

if icTargetField <> "":U and 
       icTargetField <> ?    and 
       (iiBusComponentID = 0 or
        iiBusComponentID = ?)
    then do :
        assign vcMessage      = trim(substitute(#T-2'The role scope concept (&1) should only be specified if the role scope class (&2/&3) is specified also.':255(549)T-2#,(if icTargetField = ? then "?":U else icTargetField),(if iiBusComponentID = ? then "?":U else string(iiBusComponentID)),(if icBusComponentCode = ? then "?":U else icBusComponentCode)))
               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-187':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BRole>
    end. /* if icTargetField <> "":U and */