"contact details - From info type 0105 and subtypes appropriately
RP-READ-INFOTYPE your_pernr_variable 0105 P0105 pnpbegda pnpendda .
IF SY-SUBRC = 0.
LOOP AT P0105.
if p0105-subty = 'CELL'.
get cell number here
endif.
if p0105-subty = 'MAIL'.
email = p0105-usrid_long in
endif.
if p0105-subty = '0010'.
endif.
ENDLOOP.
ENDIF.