Use a DS to redefine the date and replace day with ’01’
For date-type fields, do this:
DayOfMonth = %SubDt(DateField:*D);
MonthBegin = DateField – %Days(DayOfMonth – 1);
If your datefield is 08/14/2009, this code will subtract 13 days from that to get you to the first of the month.