project QadFinancials > class PGTM > method ValidateAddress
Parameters
Internal usage
QadFinancials
program code (program1/pgtm.p)
if oiReturnStatus = 0 then
assign oiReturnStatus = -98.
assign vhIn = ?
vhOut = dataset tAvaReturnMessage:handle
vhInOut = dataset tAvaReturnAddress:handle.
Create Dataset vhIn in widget-pool "non-persistent".
vhIn:name = "PGTM-in".
<M-95 run CallService
(input '' (icProgramName),
input 'ValidateAddress':U (icMethodName),
input vhIn by-reference (izInput),
input-output vhInOut by-reference (bzInputOutput),
input-output vhOut by-reference (bzOutput),
input ? (icAsyncHandler),
output viFcReturnSuper (oiReturnStatus)) in PGTM>
if viFcReturnSuper <> 0 then
assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus = -98 then
assign oiReturnStatus = 0.
delete object vhIn.