Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Any FM to find the Reporting Employee

dhruv_shah3
Active Contributor
0 Kudos

Hi,

I want to find the name of the Employee to whom the Employee reports.

i,e i want to find the name of my boss in the company.

Is there any FM to find it, by entering the PERNR(Employee ID).

Pls help me out.

Thanks & Regards,

Dhruv Shah

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Use this coding ..

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid1

WHERE otype = 'P'

and plvar = '01'

AND objid = pernr

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'B'

AND relat = '008'.

IF sy-subrc EQ 0.

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid2

WHERE otype = 'S'

and plvar = '01'

AND objid = ls_sobid1

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'A'

AND relat = '002'.

IF sy-subrc EQ 0.

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid3

WHERE otype = 'S'

and plvar = '01'

AND objid = ls_sobid2

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'A'

AND relat = '008'.

IF sy-subrc EQ 0.

SELECT SINGLE vorna nachn from pa0002 INTO (vorna , nachn)

WHERE pernr = ls_sobid3

AND endda >= sy-datum

AND begda <= sy-datum.

IF sy-subrc EQ 0.

Concatenate vorna nachn into name separated by SPACE.

condense name.

ENDIF.

1 REPLY 1

Former Member
0 Kudos

Use this coding ..

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid1

WHERE otype = 'P'

and plvar = '01'

AND objid = pernr

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'B'

AND relat = '008'.

IF sy-subrc EQ 0.

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid2

WHERE otype = 'S'

and plvar = '01'

AND objid = ls_sobid1

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'A'

AND relat = '002'.

IF sy-subrc EQ 0.

SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid3

WHERE otype = 'S'

and plvar = '01'

AND objid = ls_sobid2

AND endda >= sy-datum

AND begda <= sy-datum

AND rsign = 'A'

AND relat = '008'.

IF sy-subrc EQ 0.

SELECT SINGLE vorna nachn from pa0002 INTO (vorna , nachn)

WHERE pernr = ls_sobid3

AND endda >= sy-datum

AND begda <= sy-datum.

IF sy-subrc EQ 0.

Concatenate vorna nachn into name separated by SPACE.

condense name.

ENDIF.