Parameters
| iiAddressId | input | integer | |
| ocLanguageCode | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bbusinessrelation.p)
if iiAddressId = ? then assign iiAddressId = 0.
<Q-39 run AddressLanguageByAddress (all) (Read) (NoCache)
(input iiAddressId, (AddressId)
output dataset tqAddressLanguageByAddress) in BBusinessRelation>
find first tqAddressLanguageByAddress where
tqAddressLanguageByAddress.tiAddress_id = iiAddressId no-lock no-error.
if available tqAddressLanguageByAddress
then do:
assign ocLanguageCode = tqaddresslanguageByAddress.tcLngCode.
end.