icStatus | input | character |
assign vcStatus = "":U. assign vcDOCUMENTSTATUSDEBTORS ={&DOCUMENTSTATUSDEBTORS}. do viA = num-entries(vcDOCUMENTSTATUSDEBTORS, chr(2)) to 1 by -2: if entry(viA, vcDOCUMENTSTATUSDEBTORS, chr(2)) = icStatus then do: assign vcStatus = entry(viA - 1, vcDOCUMENTSTATUSDEBTORS, chr(2)). leave. end. end. return vcStatus.