TABLES : pernr.
INFOTYPES : 0021,0106.
DATA : rec_p0021 TYPE p0021 ,
rec_q0106 TYPE q0106 ,
rec_p0106 TYPE p0106 .
DATA w_return TYPE bapireturn1.
START-OF-SELECTION.
GET pernr.
READ TABLE p0106 INDEX 1.
rec_p0106 = p0106.
rec_p0106-stras = '2235 Burns Rd'. "Sokak ve konut numarası
READ TABLE p0021 INDEX 1.
rec_p0021 = p0021.
rec_p0021-favor = 'test-639111'. "adı
* Enqueue personnel number
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = pernr-pernr
IMPORTING
return = w_return.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '0021'
number = pernr-pernr
subtype = '2'
record = rec_p0021
validityend = p0021-endda
validitybegin = p0021-begda
operation = 'MOD'
dialog_mode = '2'
view_identifier = '07'
secondary_record = rec_p0106
IMPORTING
return = w_return.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = pernr-pernr.
END-OF-SELECTION.
IF sy-subrc NE 0.
WRITE:/ 'Infotype 0106 ve 0021 Bilgi Tipi Güncellendi'.
ENDIF.