method GetDeductionCatCodeInfo

Parameters

icDeductionCode	input	character
ocDeductionCatType	output	character
ocDeductionCatDesc	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bdinvoice.p)

assign
    ocDeductionCatType = "".
    ocDeductionCatDesc = "".

<Q-85 run GetDeductionCatCodeInfo (first) (Read) (NoCache)
       (input icDeductionCode, (DeductionCatCode)
        output dataset tqGetDeductionCatCodeInfo) in BDeductionCat>

for first tqGetDeductionCatCodeInfo:
    assign ocDeductionCatType = tqGetDeductionCatCodeInfo.tcDeductionCatType
           ocDeductionCatDesc = tqGetDeductionCatCodeInfo.tcDeductionCatDescription.

end.