Ayuda limpiar variable

[minerva0112]

Tengo el siguiente codigo:


rp_provide_from_last p0001 space p_fecha_ini p_fecha_fin.

IF pnp-sw-found = '1'.
ti_personal-pernr = p0001-pernr.
ti_personal-kostl1 = p0001-kostl.
ENDIF.

CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = pernr-pernr
infty = '0001'
begda = p_fecha_ini
endda = p_fecha_fin
IMPORTING
subrc = cod_retorno
TABLES
infty_tab = t_p0001.

LOOP AT t_p0001 WHERE endda <> '99991231' .
ti_personal-kostl2 = t_p0001-kostl.
ti_personal-fecha_ceco2 = t_p0001-endda.
ENDLOOP.
APPEND TI_PERSONAL.


trae los registros correctos pero tambien trae los siguientes con informacion del anterior, coloco el clear antes del append pero no funciona

please me pueden ayudar
gracias