LPARAMETERS pdDate
LOCAL lcDate
lcDate = ALLTRIM(STR(DAY(ldDate))) + "-" + ;
         LEFT(UPPER(CMONTH(ldDate)),3) + "-" +
         RIGHT(STR(YEAR(ldDate),4,0),2)
RETURN lcDate