TABLES: pernr.
INFOTYPES: 0002.
DATA: return_struc TYPE bapireturn1,
record_key TYPE bapipakey.
PARAMETERS: natio_o LIKE p0002-natio DEFAULT 'DE',
natio_n LIKE p0002-natio DEFAULT 'D'.
GET pernr.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = p0002-pernr
IMPORTING
return = return_struc.
IF NOT return_struc IS INITIAL.
WRITE: / pernr-pernr, (70) return_struc-message.
REJECT.
ENDIF.
LOOP AT p0002 WHERE endda GE pn-begda
AND begda LE pn-endda
AND natio EQ natio_o.
p0002-natio = natio_n.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '0002'
number = p0002-pernr
* SUBTYPE =
* OBJECTID =
* LOCKINDICATOR =
validityend = p0002-endda
validitybegin = p0002-begda
recordnumber = p0002-seqnr
record = p0002
operation = 'MOD'
* TCLAS = 'A'
dialog_mode = '1'
* NOCOMMIT =
* VIEW_IDENTIFIER =
* SECONDARY_RECORD =
IMPORTING
return = return_struc
key = record_key.
IF NOT return_struc IS INITIAL.
WRITE: / return_struc.
ELSE.
WRITE: / 'Record '(002), record_key, 'modified'(003).
ENDIF.
ENDLOOP.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = p0002-pernr.