method ValidateStoredSearch

validation procedure

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.
iiUsrId	input	integer
iiRoleId	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

validation on relation STOREDSEARCHINCUSTOMFIELD

program code (program1/bcustomfield.p)

if iiRoleId <> 0 and
   iiRoleId <> ? or
   iiUsrId  <> 0 and
   iiUsrId  <> ?
then do:
    <M-1 run SetMessage
       (input  trim(#T-1'Only stored searches defined on system level are allowed.':255(733737250)T-1#) (icMessage), 
        input  '' (icArguments), 
        input  icTargetFieldName (icFieldName), 
        input  icTargetField (icFieldValue), 
        input  'E' (icType), 
        input  3 (iiSeverity), 
        input  icRowid (icRowid), 
        input  'BLF-240':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCustomField>

    assign oiReturnStatus = -1.
end.