project QadFinancials > class PMultiDB > method validateDomainCodeByParams
Parameters
olDomainValid | output | logical | |
icDomainCode | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/pmultidb.p)
if oiReturnStatus = 0 then oiReturnStatus = -98.
empty temp-table tMFGDomain no-error.
create tMFGDomain.
assign
tMFGDomain.tcDomainCode = icDomainCode.
<M-2 run validateDomainCodeAcrossDBs
(input-output tMFGDomain (tMFGDomain),
output viFcReturnSuper (oiReturnStatus)) in PMultiDB>
find first tMFGDomain.
assign olDomainValid = tMFGDomain.tlDomainValid.
if viFcReturnSuper <> 0 then
assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus = -98 then
assign oiReturnStatus = 0.