decoupled infotype framework example

*&---------------------------------------------------------------------*
*& Report ZYS_DECOUPLED2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zys_decoupled2.

DATA lo_0290_bl TYPE REF TO cl_hrpa_infotype_0290.
DATA l_infty_container TYPE hrpad_infty_container_ref.
DATA l_p0290_container TYPE REF TO cl_hrpa_infotype_container.
DATA l_msg TYPE symsg.
DATA l_hrpa_exception TYPE REF TO cx_hrpa_violated_assertion.
DATA l_is_ok TYPE boole_d.
DATA l_p0290 TYPE p0290.
DATA lw_update_mode       TYPE hrpad_update_mode.
DATA :    lr_message_list TYPE REF TO cl_hrpa_message_list.
data lw_masterdata_buffer type ref to if_hrpa_masterdata_bl.

CREATE OBJECT lr_message_list.

CREATE OBJECT lo_0290_bl
  EXPORTING
    tclas = 'A'
    infty = '0290'.

l_p0290-infty =  '0290'.
l_p0290-pernr = '00028491'.
l_p0290-begda = '20201201'.
l_p0290-endda = '99991231'.
l_p0290-subty = '26'.

CALL METHOD lo_0290_bl->if_hrpa_infty_bl~get_infty_container
  EXPORTING
    tclas           = cl_hrpa_tclas=>tclas_employee
    pskey           = l_p0290-pskey
    message_handler = lr_message_list
    no_auth_check   = ''
  IMPORTING
    container       = l_infty_container.

l_p0290_container ?= l_infty_container.
l_infty_container ?= l_p0290_container->modify_primary_record( l_p0290 ).


CALL METHOD lo_0290_bl->if_hrpa_infty_bl~insert
  EXPORTING
    message_handler = lr_message_list
    update_mode     = lw_update_mode
    massn           = ''
    massg           = ''
    no_auth_check   = ''
  IMPORTING
    is_ok           = l_is_ok
  CHANGING
    container       = l_infty_container.

  cl_hrpa_masterdata_bl=>get_instance(
                       importing
                     masterdata_bl = lw_masterdata_buffer ).

 lw_masterdata_buffer->if_hrpa_buffer_control~flush( EXPORTING no_commit = space ).
"commit work.