How to get the report to relaionship from infotype 1001.

Question

Hi,
Could any one just let me know regarding how to get reports to relationship for the particular employee number from infotype 1001.
What exactly are the aprameters involved.
Thanks in Advance ,
Irfan Hussain

Answer 1

Hi Irfan,
SELECT abkrs
         pernr
         ename
         gsber
         begda
         persg
         persk
         werks
         btrtl
         plans
         kostl
         orgeh
     INTO TABLE it_0001
     FROM pa0001
   loop at it_0001.
    CLEAR: l_plans, l_sobid, l_sobidx, l_pernr.
    SELECT SINGLE sobid INTO l_sobid
      FROM hrp1001
     WHERE otype = 'S'
       AND objid = it_0001-plans
       AND plvar = '01'
       AND relat = '002'
       AND endda = '99991231'.
    IF sy-subrc EQ 0.
      l_plans = l_sobid.
      SELECT SINGLE sobid INTO l_sobidx
      FROM hrp1001
     WHERE otype = 'S'
       AND objid = l_plans
       AND plvar = '01'
       AND relat = '008'
       AND endda = '99991231'.
      IF sy-subrc EQ 0.
        l_pernr = l_sobidx.
        SELECT SINGLE ename INTO <b>it_0001-repto</b>
          FROM pa0001
         WHERE pernr = l_pernr.
        IF sy-subrc EQ 0.
         MODIFY it_0001 INDEX l_index TRANSPORTING repto.
        ENDIF.
      ENDIF.
    ENDIF.
   endloop.
Regards,
Raj