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