CALL METHOD cl_hrpay99_prr_4_pnp_reps=>get_instance
  EXPORTING
*    IM_PAYTY_SELOPT         =
    im_pn_begda             = begda
    im_pn_endda             = endda
    im_ipview               = 'X'
    im_molga                = '33'
*    IM_ADD_RETROES_TO_RGDIR = X_TRUE
*    IM_CURR_CONV            =
*    IM_PNPABKRS             =
*    IM_PN_PAPER             =
*    IM_PN_PERMO             =
*    IM_PAYTY                =
*    IM_PAYID                =
*    IM_BONDT                =
*    IM_OSR_DEL_OPT          = 'P'
*    IM_OCRSN_SELOPT         =
*    IM_OCCAT_SELOPT         =
*    IM_PNPDISBD             =
*    IM_ARCH_TOO             = X_FALSE
  IMPORTING
    ex_prr                  = go_prr
  EXCEPTIONS
    invalid_entries         = 1
    OTHERS                  = 2
    .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CALL METHOD go_prr->get_pernr_payr_results_allin1
    EXPORTING
      im_pernr                      = p_pernr
    IMPORTING
      ex_pernr_payroll_results      = gt_pernr_pr
    EXCEPTIONS
      country_version_not_available = 1
      no_authorization              = 2
      no_entries_found              = 3
      read_error                    = 4
      OTHERS                        = 5.
  IF sy-subrc = 0.
    LOOP AT gt_pernr_pr ASSIGNING <pernr_pr>.
      go_pernr_pr ?= <pernr_pr>.
      LOOP AT go_pernr_pr->inter-rt INTO rt_header.
      ......
      ENDLOOP.
    ENDLOOP.
  ENDIF.

case go_pernr_pr->period-srtza.
   when 'P'.
      factor = -1.
   when 'A'.
      factor = 1.
   when others.
      ...
endcase.

move-corresponding rt_header into x_rt.
...
x_rt-betrg = factor * x_rt-betrg.
...
collect x_rt.