project QadFinancials > class PBankAccountValidation > method ValidateBankAccount

Parameters

Internal usage

program code (program3/pbankaccountvalidation.p)

if oiReturnStatus = 0 then
   assign oiReturnStatus = -98.
   
assign
   vhIn = ?
   vhOut = ?
   vhInOut = dataset tValidationRequest:handle.
   
create dataset vhIn in widget-pool "non-persistent".
create dataset vhOut in widget-pool "non-persistent".
vhIn:name  = "PBankAccount-in".
vhOut:name = "PBankAccount-out".

<M-1 run CallService
   (input  '':U (icProgramName), 
    input  'ValidateBankAccount':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 PBankAccountValidation>
    
if viFcReturnSuper <> 0 then
   assign oiReturnStatus = viFcReturnSuper.
   
if oiReturnStatus = -98 then
   assign oiReturnStatus = 0.

delete object vhIn.
delete object vhOut.