function does not return leadership objid

[Former Member]

Let me know what is the error in the following code

.sy-subrc returns 1.

DATA: DATE type p0001-pernr.

LOOP AT T_FINAL INTO WA_FINAL .

if sy-tabix EQ 1.

X_PLANS = WA_FINAL-EMPNO.

WRITE WA_FINAL-BEGDA MMDDYY to DATE.

else .

exit.

ENDIF.

ENDLOOP.

CALL FUNCTION 'RH_GET_LEADING_POSITION'

EXPORTING

PLVAR = C_01

OTYPE = 'S'

SOBID = X_PLANS

DATE = DATE

TABLES

LEADING_POS = T_LEADERS

EXCEPTIONS

NO_LEAD_POS_FOUND = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

WRITE:/ 'ERROR MSG' , sy-subrc.

ENDIF.

[Former Member]

helpful

[Former Member]

IF u have specified object id as personnel no .i.e in above case if u have specified the x_plans to personnel no then u should specify the relationship type as 'P'

So in the following case OTYPE Should be:-

PLVAR = C_01

OTYPE = 'P'

SOBID = X_PLANS