Routine in sap bi.7

Hi,

I written the routine the code is ok but values not uploading to field so any one look in to this issue.

data:p1(02).

data:ZQUARTER type /BIC/OIZQUARTER.

p1 = SOURCE_FIELDS-calday+4(2).

if p1 = 01 or p1 = 02 or p1 = 03.

move '04' to p1.

elseif p1 = 04 or p1 = 05 or p1 = 06.

move '01' to p1.

elseif p1 = 07 or p1 = 08 or p1 = 09.

move '02' to p1.

elseif p1 = 10 or p1 = 11 or p1 = 12.

move '03' to p1.

endif.

*/BIC/ZQUARTER

* ZQUARTER = p1.

*/BIC/ZQUARTER = p1.

* RESULT = source_fields-ZQUARTER .

zquarter = p1.