Code: Alles auswählen.
* Tabla de usuarios
DATA: BEGIN OF ti_archivo OCCURS 0, <-- Tabelle mit Kopfzeile
dni(8) TYPE c,"DNI"
...
IF ti_archivo IS INITIAL.
* El archivo de entrada no contiene registros
MESSAGE s019(Z_PRUEBA).
ENDIF.
IF ti_archivo[] IS INITIAL.
Code: Alles auswählen.
...
PARAMETERS: p_path LIKE rlgrap-filename.
START-OF-SELECTION. " <-- move up to this line
* Abrir ventana de archivoss
PERFORM abrir_ventana_archivos.
* START-OF-SELECTION. " <--- move this line upwards to stand before the first PERFORM
* Levanto el archivo de entrada
PERFORM levantar_archivo_entrada.
...