ABAP HR - How to insert payroll results using fm PYXX_WRITE_PAYROLL_RESULT

Question

Hi,
I have a scenario where I want to read cluster information (PCL2 RX) from system A and insert it into system B. Both systems are SAP ECC 6.0. Employee master data already exists on target system, but no payroll results yet, so this is an insert and not an update.
I am using fm PYXX_READ_PAYROLL_RESULT (I also tried with HRCM_PAYROLL_RESULTS_GET) to read the data and then calling a RFC on system B where I use fm PYXX_WRITE_PAYROLL_RESULT to write the payroll results into database. Is this fm only to use in case of update, or it should also work when inserting new lines on the cluster? Because I always get a sy-subrc=0 but nothing is created on the db. Is there any other way to this? Do you have any code samples?
Many thanks,
Miguel

Answer 1

HI Miguel:
I have succe add of new payroll records, the following reference code:
*& Report  ZTEST_BJARNE8
REPORT  ztest_bjarne8.
TABLES:pcl1,pcl2.
INCLUDE rpc2cd00.           "Cluster CD data definition
INCLUDE rpc2ca00.           "Cluster CA Data-Definition
INCLUDE pc2rxcn0.           "Cluster CN data definition
INCLUDE rpc2rx00.           "Cluster RX data definition internat. part
DATA: refvar_curr TYPE REF TO data.
DATA: refvar_prev TYPE REF TO data.
DATA: refvar_cumul TYPE REF TO data.
DATA: t52relid_header TYPE t52relid.
FIELD-SYMBOLS: <payresult_current>.
DATA: employee_number LIKE pc200-pernr,
      client           LIKE sy-mandt,
      globalmolga      TYPE T500L-MOLGA,
      cluster_id       LIKE t500l-relid,
      isocode          LIKE t500l-intca.
DATA: rgdir_entry LIKE pc261.
CALL FUNCTION 'HR_PCLX_INIT_BUFFER'.
employee_number = '81000463'.
CLEAR:rgdir.REFRESH rgdir[].
CALL FUNCTION 'CU_READ_RGDIR_NEW'
  EXPORTING
    persnr                = employee_number
    check_read_authority  = space
    imp_client            = client
  TABLES
    in_rgdir              = rgdir
  EXCEPTIONS
    no_record_found       = 1
    import_mismatch_error = 2
    no_read_authority     = 3
    OTHERS                = 4.
LOOP AT rgdir.
ENDLOOP.
cluster_id = 'CN'.
SELECT SINGLE * FROM t52relid INTO t52relid_header
                       WHERE relid = cluster_id.
CREATE DATA refvar_curr TYPE (t52relid_header-typename).
ASSIGN refvar_curr->* TO <payresult_current>.
CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'
  EXPORTING
    clusterid                    = cluster_id
    employeenumber               = employee_number
    sequencenumber               = rgdir-seqnr
    check_read_authority         = space"false "already done
    filter_cumulations           = space
  CHANGING
    payroll_result               = <payresult_current>
  EXCEPTIONS
    illegal_isocode_or_clusterid = 1
    error_generating_import      = 2
    import_mismatch_error        = 3
    subpool_dir_full             = 4
    no_read_authority            = 5
    no_record_found              = 6
    versions_do_not_match        = 7
    OTHERS                       = 8.
IF NOT <payresult_current> IS INITIAL.
  "TODO changed RT data......
  "Add new month payresult
   rgdir-seqnr = rgdir-seqnr + 1.
  CALL FUNCTION 'PYXX_WRITE_PAYROLL_RESULT'
    EXPORTING
      clusterid                          = cluster_id
      employeenumber                     = employee_number
      sequencenumber                     = rgdir-seqnr
      payroll_result                     = <payresult_current>
      CLIENT                             =
   EXCEPTIONS
     illegal_isocode_or_clusterid       = 1
     error_generating_export            = 2
     export_error                       = 3
     subpool_dir_full                   = 4
     no_update_authority                = 5
     incomplete_result_imported         = 6
     OTHERS                             = 7
  IF sy-subrc <> 0.
  ENDIF.
  APPEND rgdir.
   globalmolga = '28'.
   client = '200'.
  CALL FUNCTION 'CU_WRITE_RGDIR_NEW'
    EXPORTING
      persnr              = employee_number
      molga               = globalmolga
      imp_client          = client
    TABLES
      rgdir               = rgdir
    EXCEPTIONS
      no_update_authority = 1
      OTHERS              = 2.
  CALL FUNCTION 'HR_FLUSH_BUFFER_UPDATE_PCLX'
    EXPORTING
      test                = space
    EXCEPTIONS
      insert_error        = 1
      no_update_authority = 2
      OTHERS              = 3.
  IF sy-subrc <> 0.
    "MESSAGE e062.
  ENDIF.
ENDIF.
"INCLUDE  rpc2cd09.
*& INCLUDE
INCLUDE rpppxd00.           "Data definition buffer PCL1/PCL2
INCLUDE rpppxd10.           "Common part buffer PCL1/PCL2
INCLUDE rpppxm00.           "Buffer handling routine