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 component temp-table. |
oiReturnStatus | output | integer | Return status of the method. |
/* ValIntNotNULL: Validation-method that raises an error in case the integer-field has the NULL value */ if iiTargetField = ? then do : <M-3 run SetMessage (input #T-28'This field cannot have the unknown-value.':255(133401422)T-28# (icMessage), input '' (icArguments), input icTargetFieldName (icFieldName), input '' (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input icRowid (icRowid), input 'qadfin-852205':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output oiReturnStatus (oiReturnStatus)) in database> assign oiReturnStatus = -1. end. /* if iiTargetField = ? */