UDC 74 MO could help you
B3000250 GetMonthDescription
Plus there are numerous date BSFNs (look in F9862)
Date mask you want for the month is B but most E1 BSFNs only bring back a 6 or 8 long date
So B9800460: ConvertDateToString for example will help but it can't return the full 04/Jan/2017 you're after
This will work
01-Mar-08 Format Dates
User Date, Format
VA rpt_BirthdateMonth <- mnMonth
VA rpt_BirthdateDay <- mnDay
VA rpt_BirthdateYear <- mnYear
UNDEFINED X mnCentury
BC Date - Invoice - Julian -> jdReturnDate
"1" -> cProcessingFlag
Date Format Month Description
VA rpt_BirthdateMonth -> mnCalendarMonth
VA rpt_MonthDescriptionDESC <- szDescription
RV InvoiceDateDL01 = concat([VA rpt_BirthdateDay],concat('-',concat([VA rpt_MonthDescriptionDESC],concat('-',[VA rpt_BirthdateYear] )) ))