assign vcCOATypes = {&FRWANALYSISCOATYPES}. do viA = num-entries(vcCOATypes, chr(2)) to 1 by -2: if entry(viA, vcCOATypes, chr(2)) = icCOAType then return trim(entry(viA - 1, vcCOATypes, chr(2))). end. return "":U.