> >xx="Chief Probation Officer" >?acronym(xx) > >FUNCTION Acronym(tcValue) > LOCAL lnSpaces, lcRetVal, lni > lnSpaces = OCCURS(" ",tcValue) > lcRetVal = LEFT(tcValue,1) > FOR lni = 1 TO lnSpaces > lcRetVal = lcRetVal + SUBSTR(tcValue,AT(" ",tcValue,lni)+1,1) > NEXT > RETURN lcRetVal > >>
>>Chief Probation Officer >>>>I need to return
>>CPO >>>>