*&---------------------------------------------------------------------*
" Tem uma maneira muito interessante pra quem gosta de resolver as coisas
" de uma forma mais rápida é usando o 'Field-Symbol' que serve como um link
" com algum objeto ou area de memória, mostrarei uma jeito legal pra aplicar
" o 'field-Symbol'.
" Irei mostrar como modificar dados de uma tabela interna da forma tradici-
" onal e da forma rápida (dinâmica).
REPORT z_field_symbol.
" Declaração da tabela interna e da estrutura.
DATA : it_spfli TYPE TABLE OF spfli,
st_spfli TYPE spfli
.
" Alimenta a tabela interna .
SELECT *
FROM spfli
INTO TABLE it_spfli
.
" Aqui está a forma tradicional, muito eficaz, mas normal rsrsrs
LOOP AT it_spfli INTO st_spfli.
st_spfli-fltype = 'X'.
modify it_spfli from st_spfli.
ENDLOOP.
" Aqui da forma mais rápida e dinâmica.
" Declaração dos fields symbols.
FIELD-SYMBOLS : <fs2> type spfli.
BREAK-POINT .
** Altera dinamicamente os dados da tabela interna.
LOOP AT it_spfli ASSIGNING <fs2>.
<fs2>-fltype = 'X'.
" Reparem bem que não existe nenhum modify.
ENDLOOP.