>lcMonthList = "JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOW DEC" >*lcMonth = "JAN" >*lnYear = 2009 > >SELECT registration >GO top >scan >lcMonth =s_month >lnYear = year >newdate= DATE(lnYear, INT(AT(lcMonth, lcMonthList) / 4) + 1,1) >replace sdate WITH newdate >endscanDid you try
lcMonth = upper(alltrim(s_month))in the above code?