FUNCTION Z_ESCRIBIR_EN_TABLA.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     VALUE(KUNNR) TYPE  CHAR10
*"     VALUE(NOMBRES) TYPE  CHAR30
*"     VALUE(TELEFONO) TYPE  CHAR30
*"  EXPORTING
*"     VALUE(RETORNO) TYPE  CHAR32
*"  TABLES
*"      ZPRU STRUCTURE  ZTABLA_ABRAHAM
*"  EXCEPTIONS
*"      SYSTEM_FAILURE
*"      COMMUNICATION_FAILURE
*"----------------------------------------------------------------------
CLEAR ZPRU.

*DATA LINEA LIKE ZPRU.
DATA wa_linea type ZTABLA_ABRAHAM

*data itab LIKE SORTED TABLE OF linea WITH NON-UNIQUE KEY
*      kunnr nombres telf.

wa_LINEA-KUNNR = KUNNR.
wa_LINEA-ZNOMBRE_EJEC = NOMBRES.
wa_LINEA-ZTEL_EJEC = TELEFONO.

INSERT ZTABLA_ABRAHAM from wa_linea.

ENDFUNCTION.