>FUNCTION zhr_get_manager.
>*"----
>""Local Interface:
>*" IMPORTING
>*" VALUE(FI_PLANS) TYPE PLANS OPTIONAL
>*" EXPORTING
>*" VALUE(FE_NACHN) TYPE NACHN
>*" VALUE(FE_VORNA) TYPE VORNA
>*" VALUE(FE_PERNR) TYPE PERSNO
>*" EXCEPTIONS
>*" NO_REPORT_TO
>*" NO_POSITION_HOLDER
>*" NO_NAME_FOUND
>*"----
> DATA : lv_sobid LIKE hrp1001-sobid,
> lv_pernr LIKE hrp1001-sobid.
>
>
> 1) Get report-to position.
> SELECT SINGLE sobid FROM hrp1001 INTO lv_sobid WHERE
> otype EQ 'S' AND
> objid EQ fi_plans AND
> plvar EQ '01' AND
> relat EQ '002' AND
> rsign EQ 'A' AND
> sclas EQ 'S' AND
> begda LE sy-datum AND
> endda GE sy-datum.
> IF sy-subrc NE 0.
> RAISE no_report_to.
> ENDIF.
>
>* 2) Get position holder (Manager ID)
> SELECT SINGLE sobid FROM hrp1001 INTO lv_pernr WHERE
> otype EQ 'S' AND
> objid EQ lv_sobid AND
> plvar EQ '01' AND
> relat EQ '008' AND
> rsign EQ 'A' AND
> sclas EQ 'P' AND
> begda LE sy-datum AND
> endda GE sy-datum.
> IF sy-subrc NE 0.
> RAISE no_position_holder.
> ENDIF.
>
>fe_pernr = lv_pernr.
>
>* 3) Get Manager First Name and Last Name.
> SELECT SINGLE vorna nachn FROM pa0002 INTO (fe_vorna, fe_nachn) WHERE
> pernr EQ fe_pernr AND
> begda LE sy-datum AND
> endda GE sy-datum.
> IF sy-subrc NE 0.
> RAISE no_name_found.
> ENDIF.
>
>ENDFUNCTION.
There are other standard functions which you can use as well.
>RH_GET_MANAGER_ASSIGNMENT
Bluesky
