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