Crear datos en infty 2010 via User Exit
 

Hola, Estoy teniendo problemas para crear datos en el infty 2010.
Estoy usando el siguiente codigo:

FORM f_create2010 USING p_pernr p_begda p_endda p_value p_wt.
DATA: header_assob LIKE assob.
DATA: l_asshr LIKE asshr.
DATA: ls_pdsnr LIKE pdsnr.
DATA: w_pdsnr LIKE asshr-pdsnr,
w_bukrs LIKE csks-bukrs,
w_kokrs LIKE csks-kokrs,
w_gsber LIKE csks-gsber,
w_seqnr LIKE *pa2010-seqnr.

DATA: return TYPE bapireturn1.
DATA: pv_viekn LIKE pa0003-viekn.
DATA: BEGIN OF p2010 OCCURS 5. INCLUDE STRUCTURE p2010. DATA: END OF p2010.
DATA: BEGIN OF wa_infty OCCURS 1. INCLUDE STRUCTURE p2010. DATA: END OF wa_infty.

BREAK-POINT.

SELECT SINGLE viekn FROM pa0003 INTO pv_viekn WHERE pernr = p_pernr AND begda <= p_begda.

CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING number = p_pernr
IMPORTING return = return.
IF return IS INITIAL.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING *
TCLAS = 'A'
pernr = p_pernr
infty = '2010'
*BEGDA = '18000101'
*ENDDA = '99991231'
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
* IMPORTING
* SUBRC = SUBRC
TABLES infty_tab = p2010.

LOOP AT p2010 WHERE subty = p_wt. MOVE p2010 TO wa_infty. EXIT. ENDLOOP.

wa_infty-pernr = p_pernr.
wa_infty-infty = '2010'.
wa_infty-lgart = p_wt.
wa_infty-subty = p_wt.
wa_infty-stdaz = p_value.
wa_infty-begda = p_begda.
wa_infty-endda = p_endda.
wa_infty-AEDTM = sy-datum.
wa_infty-UNAME = sy-uname.


CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '2010'
number = p_pernr
subtype = p_wt
validitybegin = p_begda
record = wa_infty
operation = 'INS'
view_identifier = pv_viekn
tclas = 'A'
dialog_mode = '1'
IMPORTING
return = return.
IF NOT return IS INITIAL AND return-type EQ 'E'.
MESSAGE e000(38) WITH return-message.
ENDIF.

CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING number = p_pernr
IMPORTING return = return. ENDIF.
ENDFORM. " F_CREATE2010

Aparentemente HR_READ_INFOTYPE no funcionaria con el infty 2010.
¿Alguno tiene alguna idea?