* aquí hacemos que el parámetro pueda seleccionar por medio del matchcode la situación 

* del fichero de forma cómoda
at selection-screen on value-request for p_ruta.
perform get_ws_filename.

start-of-selection.

*Comprobamos que el fichero realmente existe
perform check_file_exists.
*Hacemos la carga del fichero a la tabla interna
perform subir_fichero.

*Recorremos la tabla interna para guardarla directamente en la tabla
loop at ztab into l_ztab.

insert pa0006 from l_ztab.

«Comprobamos si hay errores
if sy–subrc <> 0.
skip.
write /5 ‘ERROR, Existe un Registro Identico en la Tabla pa0006’.
endif.

endloop.

SKIP.

«escritura al finalizar el programa
WRITE: /5 ‘Carga Automatica Finalizada’.

***********************************************************************
*                                                                     *
*                            RUTINAS                                  *
*                                                                     *
***********************************************************************

*&——————————————————————–*
*&      Form  GET_WS_FILENAME                                         *
*&——————————————————————–*

form get_ws_filename.

data: l_files type filetable,
h_files type file_table,
l_rc    like sy–subrc.

call method cl_gui_frontend_services=>file_open_dialog
changing
file_table              = l_files
rc                      = l_rc
exceptions
file_open_dialog_failed = 1
cntl_error              = 2
error_no_gui            = 3
*      not_supported_by_gui    = 4
others                  = 5.
if sy–subrc <> 0 or l_rc < 0.
message id sy–msgid type sy–msgty number sy–msgno
with sy–msgv1 sy–msgv2 sy–msgv3 sy–msgv4.
else.
read table l_files index 1 into h_files.
p_ruta = h_files–filename.
endif.
endform.                               » GET_WS_FILENAME

*———————————————————————*
*         FORM CHECK_FILE_EXISTS                                      *
*                                                                     *
*      Rutina que comprueba si existe el fichero dado                 *
*———————————————————————*
form check_file_exists.

call function ‘WS_QUERY’
exporting
filename = p_ruta
query    = ‘FE’
importing
return   = q_return
exceptions
others   = 1.

if syst–subrc ne 0 or q_return ne 1.
message e001(zerrorpgc7).
endif.
endform.                    «check_file_exists

*$——————————————————————–*
*&                     Form  subir_fichero                            *
*&——————————————————————–*

form subir_fichero.

DATA: l_nombre TYPE string.

l_nombre = p_ruta.

CALL FUNCTION ‘GUI_UPLOAD’
EXPORTING
filename                      = l_nombre
*      filetype                      = ‘DAT’
has_field_separator           = ‘X’
TABLES
data_tab                      = ztab
EXCEPTIONS
file_open_error               = 1
file_read_error               = 2
no_batch                      = 3
gui_refuse_filetransfer       = 4
invalid_type                  = 5
no_authority                  = 6
unknown_error                 = 7
bad_data_format               = 8
header_not_allowed            = 9
separator_not_allowed         = 10
header_too_long               = 11
unknown_dp_error              = 12
access_denied                 = 13
dp_out_of_memory              = 14
disk_full                     = 15
dp_timeout                    = 16
OTHERS                        = 17.

IF sy–subrc <> 0.
MESSAGE ID sy–msgid TYPE sy–msgty NUMBER sy–msgno
WITH sy–msgv1 sy–msgv2 sy–msgv3 sy–msgv4.
ENDIF.

endform.