method UpdateLDPostStatus

Description

Method used to call the operational API for legal documents. Calls the procedure UpdateLDPostStatus.

Parameters

icDomainCode	input	character	Input parameter: Domain Code.
icShipFrom	input	character	Input parameter: Ship from code.
icLegalDocumentNumber	input	character	Input parameter: legal document number.
itEffectiveDate	input	date	Input parameter: Effective date.
ilPostStatus	input	logical	Input parameter: Post status.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/pmfglegaldocument.p)

if oiReturnStatus = 0 then
    assign oiReturnStatus = -98.

create tLegalDocPost.
assign tLegalDocPost.tcDomainCode   = icDomainCode
       tLegalDocPost.tcLegalDocNbr  = icLegalDocumentNumber
       tLegalDocPost.tcShipFrom     = icShipFrom
       tLegalDocPost.ttEffDate      = itEffectiveDate
       tLegalDocPost.tlPostStatus   = ilPostStatus
       tLegalDocPost.tiReturnStatus = 0.

assign  vhIn    = ?
        vhInOut = dataset tLegalDocPost:handle
        vhOut   = ?.

<M-82 run CallService
   (input  vcDefaultMfgProgram (icProgramName), 
    input  'UpdateLDPostStatus':U (icMethodName), 
    input  vhIn (izInput), 
    input-output vhInOut (bzInputOutput), 
    input-output vhOut (bzOutput), 
    input  ? (icAsyncHandler), 
    output viFcReturnSuper (oiReturnStatus)) in PMFGLegalDocument>
    
if viFcReturnSuper <> 0 then 
    assign oiReturnStatus = viFcReturnSuper.

for first tLegalDocPost:
    assign oiReturnStatus = tLegalDocPost.tiReturnStatus.
end. /* for first...*/

if oiReturnStatus = -98 then
    assign oiReturnStatus = 0.
    
delete object vhInOut.