No inserta registro en infotipo

[vlg1971]

Hola ,

He creado un nuevo infotipo de PA (9004), lo que quiero realizar es una rutina que carge la misma cantidad de registros que existen en el infotipo 0001 en el 9004, el codigo que utilizo es el siguiente:

CLEAR p9004.
MOVE-CORRESPONDING p0001 TO p9004.
p9004-objid = gt_data-servi.
p9004-descripcion = gt_data-sertx.

" llamamos a la funcion que bloquea al empleado para poder guardar los datos
"en el infotipo 9006
CALL FUNCTION 'ENQUEUE_EPPRELE'
EXPORTING
pernr = p0001-pernr
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
"llamamos a la funcion que realiza la operacion de insertar datos en el infotipo
CLEAR i_return.



CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '9004'
number = p9004-pernr
subtype = p0001-subty
objectid = p0001-objps
lockindicator = p0001-sprps
validityend = p9004-endda
validitybegin = p9004-begda
recordnumber = p0001-seqnr
record =p9004
operation = 'INS'
tclas = 'A'
dialog_mode = '0'
IMPORTING
return = i_return
key = l_key.


"llamamos a la funcion que desbloquea al empleado
CALL FUNCTION 'DEQUEUE_EPPRELE'
EXPORTING
pernr = p0001-pernr.
"si la tabla de retorno no devuelve ningun mensaje tipo 'E' mensaje de todo OK
IF i_return-type EQ 'E'.
CLEAR l_err .
CONCATENATE i_return-message ' EMPLEADO-> ' p0001-pernr
INTO l_err SEPARATED BY space.
WRITE l_err.
"si hay algun mensaje 'E' lanzamos un mensaje informando del empleado con el
"que se ha producido el error.
ENDIF.


El problema es que al ejecutar la funcion 'HR_INFOTYPE_OPERATION' da la sensacion que entra en bucle infinito y no crea el registro

¿cualquier ayuda sera agradecida?

Gracias