Steve
Try this proc.

proc firstofmonth
lparameters indate

retu ctod(left(dtoc(indate),3)+'01'+subs(dtoc(indate),6))


Steve