|
Utilizas tabla con cabecera,
es obligatorio?
Esto es un ejemplo de tabla sin cabecera.
* Tipo línea para crear estructuras
TYPES: BEGIN OF ty_tyl_resimp,
keycto TYPE char6,
textcto TYPE char50,
impuesto TYPE char50, "LIKE ZPSCD_VLRSATRIB-VALOR,
restaimp TYPE char50, "LIKE ZPSCD_VLRSATRIB-VALOR,
indcto TYPE char1,
END OF ty_tyl_resimp.
* Tipo línea para crear tablas
TYPES: ty_tab_resimp TYPE STANDARD TABLE OF ty_tyl_resimp.
* Tabla
DATA: t_resimp TYPE ty_tab_resimp.
* Estructura
DATA: w_resimp TYPE ty_tyl_resimp.
* Field-Symbols
FIELD-SYMBOLS: <fs_resimp> TYPE ty_tyl_resimp.
CLEAR: w_resimp.
w_resimp-keycto = '111111'.
w_resimp-textcto = 'uno'.
APPEND w_resimp TO t_resimp.
READ TABLE t_resimp ASSIGNING <fs_resimp> WITH KEY keycto = '111111'.
IF sy-subrc = 0.
<fs_resimp>-textcto = 'dos'.
ENDIF.
READ TABLE t_resimp ASSIGNING <fs_resimp> WITH KEY keycto = '111111'.
IF sy-subrc = 0.
<fs_resimp>-textcto = 'tres'.
ENDIF.
|