Parameters
icGenCode | input | character | |
icFieldName | input | character | |
icFieldValue | input | character | |
icRowid | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/database.p)
<Q-37 run CodeMstrByDomainFieldName (all) (Read) (NoCache)
(input vcDomainCode, (Domain)
input icGenCode, (FieldName)
output dataset tqCodeMstrByDomainFieldName) in BMfgGeneralizedCode >
find first tqCodeMstrByDomainFieldName where
tqCodeMstrByDomainFieldName.tccode_domain = vcDomainCode and
tqCodeMstrByDomainFieldName.tccode_fldname = icGenCode and
tqCodeMstrByDomainFieldName.tccode_value = icFieldValue
no-error.
if not available tqCodeMstrByDomainFieldName
then do:
<M-47 run SetMessage
(input trim(#T-22'Invalid value.':255(616112031)T-22#) (icMessage),
input '' (icArguments),
input icFieldName (icFieldName),
input icFieldValue (icFieldValue),
input 'E' (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-288115':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in database>
assign oiReturnStatus = -1.
end.