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.