method ValCharMandatory

validation procedure

Description

Validation mask: character field cannot be empty.

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 class temp-table.
oiReturnStatus	output	integer

Internal usage

BLF

validation on tEventDestination.EventDestinationName
validation on tSharedSetType.SharedSetTypeCode

QadFinancials

validation on tVatPeriod.PeriodMark_ID

program code (program1/database.p)

if icTargetField = ""
or icTargetField = ?
then do:
    <M-1 run SetMessage
          (input  #T-2'You must enter this field.':255(72)T-2# (icMessage), 
           input  '' (icArguments), 
           input  icTargetFieldName (icFieldName), 
           input  icTargetField (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  icRowid (icRowid), 
           input  'BLF-319':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output oiReturnStatus (oiReturnStatus)) in database>
    assign oiReturnStatus = -1.
end.