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

>I am trying to pick out first character in a string for example:
>

>Chief Probation Officer
>

>I need to return
>

>CPO
>

>
>I there a quick way of doing this, I will need to perform this operation on hundreds of strings. If there is no straight forward way of doing this then do I put each character in an array and search the array ?
>
>Thanks
>Nick Patel