HR ABAP Alternate manager

Question

Hi ,
I have a requirement to find the alternate manager of an employee ,the requirement is as follows :
Get the position number from  PA0001-PLANS  (record w/ENDDA=12/31/9999). This i am doing by
RP-PROVIDE-FROM-LAST P0001 SPACE PNPBEGDA PNPENDDA.
IF PNP-SW-FOUND = '1'.
Position_number = P0001-PLANS.
ENDIF.
Then i need to look for position in HRP001  the field sobid OTYPE=S, OBJID=position number). Look for RSIGN=A and RELAT=CCA, and ENDDA=12/31/9999.
IF found then in the report i should populate 'YES' in the report
else.
Get SOBID. Look up that position in HRP1001. Repeat steps in 1) above. Continue until either Alt Manager is found, or no Reports To relationship is found (this should be the CEO's position which will not have an alt manager or a Reports To position)
       c) If no alt manager is found, input "No" in this field (without quotes)
How will i code this .
can any body provide their inputs?
regards
Prasun

Answer 1

I think you already have all the logic required, so you should only dress it in ABAP code.
It should go more or less like this
"alterative manager position
data l_alter_pos type plans.
"related position
data l_position type plans.
RP-PROVIDE-FROM-LAST P0001 SPACE PNPBEGDA PNPENDDA.
IF PNP-SW-FOUND = '1'.
   l_position  = P0001-PLANS.
ENDIF.
while l_alter_pos is inital.
call function 'RH_READ_INFTY_1001'
        exporting
          plvar            = '01'
          otype            = 'S'
          objid            = l_position
          istat            = '1'
          begda            = sy-datum
          endda            = '99991231'
          subty            = 'ACCA'
        tables
          i1001            = lt_1001
        exceptions
          nothing_found    = 1
          wrong_condition  = 2
          wrong_parameters = 3
          others           = 4.
      if lt_1001 is not initial.
           "related position found
           read table lt_1001 assigning <wa_1001> index 1.
           if sy-subrc = 0.
              l_alter_pos = <wa_1001>-sobid.
              exit.  "don't look further
           endif.
      else.
           "no position found, look other relationship
            "here I don't know how you want to pass SOBID, of which object?
            l_position = ....-sobid,
           "check new position to be found (go at the beginnig of the loop)
      endif.              
endwhile.
write: 'Alternative manager position' , l_alter_pos.
The only confusing thing in your logic is this point
else.
Get SOBID. Look up that position in HRP1001.
Which means if you don't find any relation to current position, look up for this position relationship? This does not make sense for me. So if you clarify more, we could help more.
Regards
Marcin