Thank You

>

>
>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