Logic Required in HR ABAP Program

Question

Hi,
First i have to check the Change Date on Infotype 0000 Actions infotype (P0000-AEDTM).  If the change date falls within the Period Selection date specified then i have to include the employee in the report.
the included fields are:
P0000-AEDTM,P0001-BUKRS,PERNR,ENAME,P0000-MASSN,P0000-MASSG,P0000-BEGDA,P0001-ORGEH,P0001-PLANS,P0001-STELLP0001-ABKRS,P0001-WERKS,P0001-BTRTL,Q0001-MSTBR,Q0001-ENAME(supervisor name)
If the change date (P0000-AEDTM) does not fall within the Period Selection Date, i have to check the Change Date in Infotype 0001 Organization Assignment infotype (P0001-AEDTM). If the change date falls within the Period Selection date specified then i have to include the employee in the report. Include in report only that information which has been changed from the previous Infotype 0001 record, except for Change Date, Company Code, Personnel Number and Name, which must always be included in the report.
For this requirement i have written the below code:
LOOP AT p0000 WHERE aedtm >= pn-begda AND
                      aedtm <= pn-endda.
   wa_final-massn = p0000-massn.
    wa_final-pernr = p0000-pernr.
    wa_final-aedtm = p0000-aedtm.
    wa_final-massg = p0000-massg.
    wa_final-begda = p0000-begda.
    wa_final-begda = p0000-begda.
    rp-provide-from-last p0001 space  p0000-begda p0000-endda.
    wa_final-bukrs = p0001-bukrs.
    wa_final-kostl = p0001-kostl.
    wa_final-mstbr = p0001-mstbr.
    wa_final-ename = p0001-ename.
    APPEND wa_final TO it_final.
    CLEAR wa_final.
ENDLOOP.
if sy-subrc ne 0.
LOOP AT p0001 WHERE aedtm >= pn-begda AND
                        aedtm <= pn-endda.
      lv_endda = p0001-begda - 1.
      READ TABLE p0001 WITH KEY pernr = p0001-pernr endda = lv_endda INTO w0001.
      IF sy-subrc = 0.
      if p0001-kostl ne w0001-kostl.
        wa_final-kostl = p0001-kostl.
      endif.
     if p0001-mstbr ne w0001-mstbr.
        wa_final-mstbr = p0001-mstbr.
     endif.
      wa_final-pernr = p0001-pernr.
      wa_final-aedtm = p0001-aedtm.
      wa_final-bukrs = p0001-bukrs.
      wa_final-ename = p0001-ename.
       APPEND wa_final TO it_final.
       CLEAR wa_final.
      Endif.
Endif..
is this code correct? or do i have to do any modifications?

Answer 1

This is like retro payroll run see the payroll program.
RPCUCALC00 and you will find the logic over there how it will run retroactive payroll
Best Regards