Program using GET PAYROLL Event

TABLES: pernr, pyorgscreen, pytimescreen.

NODES: payroll TYPE pay99_result.

INFOTYPES: 0001.                       "Organizational Assignment

DATA: rt_line TYPE LINE OF hrpay99_rt.

GET pernr.
  rp_provide_from_last p0001 space pn-begps pn-endps.
  WRITE: / p0001-pernr, pernr-ename.

GET payroll.
  WRITE: / 'For-period:'(001),
             15 payroll-inter-versc-fpper,
         / 'In-Period:'(002),
             15 payroll-inter-versc-inper.

  SKIP 1.


  LOOP AT payroll-inter-rt INTO rt_line.
    WRITE: / rt_line-lgart,
           rt_line-betrg CURRENCY rt_line-amt_curr.
  ENDLOOP.
  SKIP.