Ich würde es so versuchen:
evalR month = %editc(%subdt(date:*M):'5');
Du weisst ja nicht, wie das System das Resultatsfeld von %subdt definiert.