DATA P_MOLGA TYPE MOLGA.

CALL FUNCTION 'HR_COUNTRYGROUPING_GET'

EXPORTING

PERNR = WD_COMP_CONTROLLER->PERNR

* TCLAS = 'A'

* BEGDA = '18000101'

* ENDDA = '99991231'

* WERKS =

IMPORTING

MOLGA = P_MOLGA

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

source