Problema al traer el nombre de un archivo.

[ximena251]

Buenos días /tardes. Mi problema es el siguiente. En una tabla interna quiero guardar el nombre de un archivo, hasta la función todo va bien me trae más de 3000 archivos de la ruta que le estoy dando, pero, yo solo quiero guardar los que sean lartprc...todos son distintos. Es decir lartprc.dat, lartprcaa, lartprcab y me tiene que traer todos ellos... pero no logro guardarlos...si no pongo lartprc.dat, no me trae nada, ni el resto.
Aquí les dejo lo que tengo.

DATA: lit_dir_list TYPE STANDARD TABLE OF epsfili,
wa_dir_list TYPE epsfili. "Files Table
DATA: lv_dir_name TYPE epsf-epsdirnam. "Directory Name

FIELD-SYMBOLS <fs_epsfili> like LINE OF lit_dir_list.



lv_dir_name = '/interfase/mer/temp'.


CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
EXPORTING
dir_name = lv_dir_name
TABLES
dir_list = lit_dir_list
EXCEPTIONS
invalid_eps_subdir = 1
sapgparam_failed = 2
build_directory_failed = 3
no_authorization = 4
read_directory_failed = 5
too_many_read_errors = 6
empty_directory_list = 7
OTHERS = 8.

" REFRESH lit_dir_list.

LOOP at lit_dir_list INTO wa_dir_list WHERE name = 'lartprc.dat'.

APPEND wa_dir_list to lit_dir_list.


IF sy-subrc <> 0.
io_ok = true.
ENDIF.

ENDLOOP.