LOOP AT gt_archivos INTO wa_archivos WHERE name CP 'lartprc#a+*'.
CLEAR gt_archivos.
APPEND wa_archivos-name TO gt_archivos.
IF sy-subrc <> 0.
io_ok = true.
ENDIF.
ENDLOOP.
gt_archivos intuyo que es una interna sin header line no?
Hay algunas cosillas que cambiar.
LOOP AT gt_archivos INTO wa_archivos WHERE name EQ 'lartprc#a+*'.
CLEAR gt_archivos[].
APPEND wa_archivos-name TO gt_archivos-name.
IF sy-subrc EQ 0.
io_ok = true.
ENDIF.
prueba así y nos cuentas
|