Parameters
icGenCode | input | character | |
ocValueList | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program3/database.p)
<Q-60 run CodeMstrByDomainFieldName (all) (Read) (NoCache)
(input vcDomainCode, (Domain)
input icGenCode, (FieldName)
output dataset tqCodeMstrByDomainFieldName) in BMfgGeneralizedCode >
assign ocValueList = "".
for each tqCodeMstrByDomainFieldName where
tqCodeMstrByDomainFieldName.tccode_domain = vcDomainCode and
tqCodeMstrByDomainFieldName.tccode_fldname = icGenCode
on error undo, throw:
if ocValueList <> ""
then assign ocValueList = ocValueList + chr(2).
assign ocValueList = ocValueList + tqCodeMstrByDomainFieldName.tccode_value
+ (if tqCodeMstrByDomainFieldName.tccode_cmmt = ""
or tqCodeMstrByDomainFieldName.tccode_cmmt = tqCodeMstrByDomainFieldName.tccode_value
then ""
else " (" + tqCodeMstrByDomainFieldName.tccode_cmmt + ")")
+ chr(2)
+ tqCodeMstrByDomainFieldName.tccode_value.
end.