ABAP Code

Hi,

I am not good in ABAP, could any one give me the Routine - syntax to populate the right values.....

Field in PSA:

DATE --> MMDDYYYY

Tranformation Routine:

1) 0CALQUART1:

1 --> If MM = 1 or 2 or 3

2 --> If MM = 4 or 5 or 6

3 --> If MM = 7 or 8 or 9

4 --> If MM = 10 or 11 or 12

2) 0CALQUARTER:

YYYY1 --> If MM = 1 or 2 or 3

YYYY2 --> If MM = 4 or 5 or 6

YYYY3 --> If MM = 7 or 8 or 9

YYYY4 --> If MM = 10 or 11 or 12

Please provide me the ABAP code for this.

Thanks,