New Infotype Framework

Question

Hello!
I'm just going to implement a new Infotype that should use the Data Sharing functionality for Concurrent Employment. I've read a document about the implementation of the "new" Infotype Framework, but I haven't found an example how to use it for my needs. Is there an example for the use of the Infotype Framework (e.g. Classes CL_HRPA_DATA_SHARING, CL_HRPA_INFOTYPE_FACTORY, ...).
Has anyone ever used the framework to insert/modify an IT-record?
Thanks in advance!

Answer 1

Hi Juergen,
I know i am too late in replying to your question.
However, better to be late than naver, I thought I will share with you how i achieved it in my last project.
You can refrer to the below example code ( Logic for inserting record in infotype 0015).
Note: Structure wa0015 type PA0015 contains the data which you want to
        update in infotype 0015.
  FIELD-SYMBOLS: <ls_pnnnn> TYPE p0015.
  ASSIGN p0015 TO <ls_pnnnn> .
create instance
  CALL METHOD cl_hrpa_masterdata_bl=>get_instance
    IMPORTING
      masterdata_bl = g_masterdata_bl.
  CREATE OBJECT g_message_handler.
  MOVE-CORRESPONDING wa0015 TO <ls_pnnnn>.
  <ls_pnnnn>-infty = ‘0015’.
start trial
    CLEAR g_magic_cookie.
  CALL METHOD g_masterdata_bl->start_trial
    IMPORTING
      magic_cookie = g_magic_cookie.
create infotye container
  CLEAR g_is_ok.
  CALL METHOD g_masterdata_bl->get_infty_container
    EXPORTING
      tclas           = c_tclas
      pskey           = <ls_pnnnn>-pskey
      message_handler = g_message_handler
    IMPORTING
      container       = g_container.
  <ls_pnnnn>-pskey     = g_container->a_pskey.
  g_container_nnnn ?= g_container.
  g_container      ?= g_container_nnnn->modify_primary_record( <ls_pnnnn> ).
insert record in infotype
  DATA: ls_bapiret1 TYPE bapiret1.
  CLEAR g_is_ok.
  CALL METHOD g_masterdata_bl->insert
    EXPORTING
      message_handler = g_message_handler
    IMPORTING
      is_ok           = g_is_ok
    CHANGING
      container       = g_container.
success
  IF g_is_ok = c_true.
  CALL METHOD g_masterdata_bl->approve_trial
    EXPORTING
      magic_cookie = g_magic_cookie.
commit work
  CALL METHOD g_masterdata_bl->flush
    EXPORTING
      no_commit = space.
error
  IF g_is_ok IS INITIAL.
discard trial
  CALL METHOD g_masterdata_bl->discard_trial
    EXPORTING
      magic_cookie = g_magic_cookie.
append errors
  DATA: lt_msg TYPE hrpad_message_tab,
        ls_msg LIKE LINE OF lt_msg,
        ps_return TYPE bapiret1.
  IF g_message_handler->has_abend( ) = 'X'.
    CALL METHOD g_message_handler->get_abend_list
      IMPORTING
        messages = lt_msg.
  ELSEIF g_message_handler->has_error( ) = 'X'.
    CALL METHOD g_message_handler->get_error_list
      IMPORTING
        messages = lt_msg.
  ELSE.
    EXIT.
  ENDIF.
  LOOP AT lt_msg INTO ls_msg.
    CALL FUNCTION 'BALW_BAPIRETURN_GET1'
      EXPORTING
        type       = ls_msg-msgty
        cl         = ls_msg-msgid
        number     = ls_msg-msgno
        par1       = ls_msg-msgv1
        par2       = ls_msg-msgv2
        par3       = ls_msg-msgv3
        par4       = ls_msg-msgv4
      IMPORTING
        bapireturn = ps_return.
    APPEND ps_return TO pt_return.
  ENDLOOP.
  ENDIF.
Regards,
Dinesh Pandey