Need to find hierarchy of employee

Question

hi,
i wont to now how i can find who is above employee in hierarchy
in company ?
i now about RH_STRUC_GET but i dont now how to use it for this requirement
i reward
Regards

Answer 1

Hi Arona,
Very recently I had crossed this issue, Here I am pasting the code to get immediate manager of employee whome we entered as person number in input.
Even this is late response, hope this is helpful.
Do u have any idea to get lower hierarchy of employee,
i.e i want the complete chain of the employee to whom he belongs.like.....
manager-> his under employee> his under employee---> -
> and so on..
REPORT  ZEMP_MGR_NAME .
TABLES: PA0001.
DATA : BEGIN OF IT_PLANS OCCURS 0,
       PERNR LIKE PA0001-PERNR,
       PLANS LIKE PA0001-PLANS,
       SNAME LIKE PA0001-SNAME,
       END OF IT_PLANS,
       BEGIN OF IT_SOBID OCCURS 0,
       SOBID LIKE HRP1001-SOBID,
       END OF IT_SOBID,
       BEGIN OF IT_SNAME OCCURS 0,
       PERNR LIKE PA0001-PERNR,
       SNAME LIKE PA0001-SNAME,
       END OF IT_SNAME.
DATA: P_ENDDA LIKE PA0001-ENDDA.
           P_ENDDA = SY-DATUM.
PARAMETER : P_PERNR LIKE PA0001-PERNR.
START-OF-SELECTION.
REFRESH  : IT_PLANS,
           IT_SOBID,
           IT_SNAME.
SELECT SINGLE PERNR
               PLANS
               SNAME
          FROM PA0001
          INTO IT_PLANS
         WHERE PERNR EQ P_PERNR
           AND ENDDA GE P_ENDDA.
IF SY-SUBRC <> 0.
WRITE:/ 'THERE IS NO PERSON FOR THIS INPUT'.
ELSE.
WRITE:/
                IT_PLANS-PERNR,
                IT_PLANS-SNAME.
ENDIF.
IF IT_PLANS IS NOT INITIAL.
*loop at it_plans.
SELECT SINGLE SOBID
          FROM HRP1001
          INTO IT_SOBID
         WHERE OBJID EQ IT_PLANS-PLANS
           AND OTYPE EQ 'S'
           AND PLVAR EQ '01'
           AND RSIGN EQ 'A'
           AND RELAT EQ '002'
           AND ENDDA GE P_ENDDA.
*append it_sobid.
*endloop.
IF SY-SUBRC <> 0.
WRITE:/ 'THE POSITION IS NOT MATCHING TO ANY OBJECT ID'.
ELSE.
ENDIF.
IF IT_SOBID IS NOT INITIAL.
SELECT  SINGLE PERNR
               SNAME
          FROM PA0001
          INTO IT_SNAME
         WHERE PLANS EQ IT_SOBID-SOBID
           AND ENDDA GE P_ENDDA.
IF SY-SUBRC <> 0.
WRITE:/ 'THERE IS NO MANGER FOR THIS PERSON'.
ELSE.
*loop at it_sNAME.
WRITE: IT_SNAME-PERNR,
       IT_SNAME-SNAME.
*endloop.
ENDIF.
ENDIF.
ENDIF.
Rewards if helpful,
Surender.