I don't see function rep2, did you write "replace nmonth WITH Rep2(c3)" in stead of "replace nmonth WITH Rep1(c3)"?

>SELECT 17
>scan
> * c3 = ALLTRIM(LEFT(examcode ,5))
> c3=LEFT(ALLTRIM(CHRTRAN(examcode,"0123456789","")),3)
>
>*c3=examcode
> replace nmonth WITH Rep2(c3)
>ENDSCAN
>
>****prg
>FUNCTION Rep1
> PARAMETERS cMes
> LOCAL cRes
> cRes =0
> DO case
>CASE UPPER(cMes) = "nov02"
>cRes = 11
>CASE UPPER(cMes) = "Oct02"
>cRes = 10
>CASE UPPER(cMes) = "Dec 02"
>cRes = 12
>CASE UPPER(cMes) = "Annual"
>cRes = 2
>CASE UPPER(cMes) = "April3"
>cRes = 4
>CASE UPPER(cMes) = "June03"
>cRes = 6
>CASE UPPER(cMes) = "August 03"
>cRes = 8
>CASE UPPER(cMes) = "sep 2003"
>cRes = 9
>CASE UPPER(cMes) = "Oct 2003"
>cRes = 10
>CASE UPPER(cMes) = "Nov 2003"
>cRes = 11
>CASE UPPER(cMes) = "December 03"
>cRes = 12
>CASE UPPER(cMes) = "Annual04"
>cRes = 2
>CASE UPPER(cMes) = "April 04"
>cRes = 4
>CASE UPPER(cMes) = "June 04"
>cRes = 6
>ENDCASE
>RETURN cRes
>
>you can also chek all thread 935887