I was surprised not to find any examples on how to modify the start and/or end dates of PA infotypes using the decoupled framework. Typically the start and end dates are part of the key identifying the record. Unless you know what you are doing, you will most likely get a CX_HRPA_INVALID_PARAMETER exception with the parameter PRIMARY_RECORD-PSKEY. Important here is to have the existing record, create a new one (with new values) and refer the old record when calling the MODIFY method.
All the code was copied and adapted from the standard function module HR_CONTROL_INFTY_OPERATION, the decoupled framework parts of it.
method change_begda_endda.
data lr_message_list type ref to cl_hrpa_message_list.
data lr_masterdata_bl type ref to if_hrpa_masterdata_bl.
data container type ref to if_hrpa_infty_container.
data old_container type ref to cl_hrpa_infotype_container.
data new_container type ref to if_hrpa_infty_container.
data new_infotype_container type ref to cl_hrpa_infotype_container.
data infotype_ref type ref to data.
data lv_is_ok type boole_d.
data lv_dummy type string.
data ls_msg type symsg.
data container_tab type hrpad_infty_container_tab.
data container_if type hrpad_infty_container_ref.
data t777d type t777d.
data lv_has_error type boole_d.
data lv_count type i.
field-symbols <pshdr> type pshdr.
field-symbols <pnnnn> type any.
field-symbols <pskey> type pskey.
field-symbols <record> type any.
field-symbols <pxxxx> type any.
create object lr_message_list.
call method cl_hrpa_masterdata_factory=>get_business_logic
importing
business_logic = lr_masterdata_bl.
check lr_masterdata_bl is bound.
call method lr_masterdata_bl->read
exporting
tclas = iv_tclas
pernr = iv_pernr
infty = iv_infty
subty = iv_subty
objps = iv_objps
sprps = iv_sprps
begda = iv_begda
endda = iv_endda
seqnr = iv_seqnr
mode = if_hrpa_masterdata_bl=>exact_matching_record
no_auth_check = abap_true
message_handler = lr_message_list
importing
container_tab = container_tab
is_ok = lv_is_ok.
if lv_is_ok eq abap_true.
describe table container_tab lines lv_count.
if lv_count gt 1.
lv_is_ok = abap_false.
message e016(pg) with 'Multiple records found, limit to exactly one' into lv_dummy.
move-corresponding sy to ls_msg.
call method lr_message_list->if_hrpa_message_handler~add_message
exporting
message = ls_msg
cause = lr_message_list->if_hrpa_message_handler~infotype_generic.
elseif lv_count eq 0.
lv_is_ok = abap_false.
message e009(pg) with iv_infty into lv_dummy.
move-corresponding sy to ls_msg.
call method lr_message_list->if_hrpa_message_handler~add_message
exporting
message = ls_msg
cause = lr_message_list->if_hrpa_message_handler~infotype_generic.
else.
read table container_tab into container index 1.
endif.
endif.
if lv_is_ok = abap_false.
call method lr_message_list->get_abend_list
importing
messages = et_messages.
if et_messages is initial.
call method lr_message_list->get_error_list
importing
messages = et_messages.
endif.
return.
endif.
old_container ?= container.
try.
call method old_container->if_hrpa_infty_container_data~primary_record_ref
importing
pnnnn_ref = infotype_ref.
catch cx_hrpa_violated_assertion .
endtry.
assign infotype_ref->* to <pxxxx>.
t777d = cl_hr_t777d=>read( infty = iv_infty ).
create data infotype_ref type (t777d-ppnnn).
assign infotype_ref->* to <pnnnn> casting like <pxxxx>.
<pnnnn> = <pxxxx>.
assign <pnnnn> to <pshdr> casting.
<pshdr>-infty = iv_infty.
assign infotype_ref->* to <record> casting like <pxxxx>.
assign component 'PSKEY' of structure <record> to <pskey>.
call method lr_masterdata_bl->get_infty_container
exporting
tclas = 'A'
pskey = <pskey>
no_auth_check = abap_true
message_handler = lr_message_list
importing
container = container_if.
new_infotype_container ?= container_if.
<pskey>-endda = iv_endda_new.
<pskey>-begda = iv_begda_new.
new_infotype_container ?= new_infotype_container->modify_key( <pskey> ).
new_infotype_container ?= new_infotype_container->modify_primary_record( <record> ).
new_container ?= new_infotype_container.
if iv_test_mode eq abap_false.
call method lr_masterdata_bl->modify
exporting
old_container = old_container
message_handler = lr_message_list
importing
is_ok = lv_is_ok
changing
container = new_container.
if lr_message_list->has_error( ) = abap_true or
lr_message_list->has_abend( ) = abap_true.
lv_has_error = abap_true.
else.
lv_has_error = abap_false.
endif.
if lv_has_error = abap_true.
call method lr_message_list->get_abend_list
importing
messages = et_messages.
if et_messages[] is initial.
call method lr_message_list->get_error_list
importing
messages = et_messages.
endif.
call method lr_masterdata_bl->if_hrpa_buffer_control~initialize.
else.
call method lr_masterdata_bl->flush
exporting
no_commit = ' '.
endif.
endif.
endmethod.
This would change the start date of infotype 0002 for employee 12345678 from 12/01/2000 to 12/01/2010.
I'm sure there are many situations where the code will break. For example, I didn't bother with secondary records and the code handles only one record at a time. In addition the code should check that the decoupled framework can actually be used for the infotype in question. Nevertheless, I thought I'd share this as it may help folks out there.
