validation procedure
Description
Validation mask: integer field cannot be zero.
Parameters
iiTargetField | input | integer | 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
QadFinancials
program code (program1/database.p)
if iiTargetField = 0
then do:
<M-1 run SetMessage
(input #T-2'This field cannot be zero.':255(73)t-2# (icMessage),
input '' (icArguments),
input icTargetFieldName (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'BLF-333':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output oiReturnStatus (oiReturnStatus)) in database>
assign oiReturnStatus = -1.
end.