Hi Garima
This is what we had written. Try if this works 
0002 GBDAT 06 100 * ***RETIREMENT DATE INDIA - IT0041***
0002 GBDAT 06 101 P T001P-MOLGA='40'
0002 GBDAT 06 102 P P0000-MASSN='01' /X * Action type is either hiring or re-hiring
0002 GBDAT 06 103 P P0000-MASSN='02' * Action type is either hiring or re-hiring
0002 GBDAT 06 104 F CAL_RET_DATE (ZHR_PA_RET_ACTION)
0002 GBDAT 06 105 I COP,0041,,,(P0000-BEGDA)/D
0002 GBDAT 06 106 W P0041-DAR02='D1' *D1 is the retirement date type in IT 41 for storing ret date
0002 GBDAT 06 107 W P0041-DAT02=RP50D-DATE1
0002 GBDAT 06 108 * ***END OF RETIREMENT DATE INDIA - IT0041***
Please check for your own sub routine that you are using.
Regards
Neha