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.

[Ripper87]

Prueba con la condición: WHERE name CP 'lartprc*'.

[ximena251]

Prueba con la condición: WHERE name CP 'lartprc*'.

Pero eso solo me trae el primer archivo que encuentra, por ejemplo solo el lartpra
el lartprb , lartprc no los trae.

[Ripper87]

Pues me parece extraño porque con el comportamiento del CP (Contain Pattern) debería funcionar tal cual como te digo.. de hecho hice un programita para probar y funciona bien.

[jlholguins]

Prueba

Tal vez sea porque estas usando la misma tabla.

Si pruebas de esta manera.

data: it_dir_list TYPE STANDARD TABLE OF epsfili.

LOOP at lit_dir_list INTO wa_dir_list.

find 'lartprc' in wa_dir_list-name.
if sy-subrc = 0.
APPEND wa_dir_list to it_dir_list.
endif.
ENDLOOP.