O commando FIELD-SYMBOLS é usada para declarar uma referência à uma área de memória.
A declaração dessas refência pode ou não ter um tipo definido. Você pode declarar um field-symbol type ANY, ou type ANY TABLE, indicando que ele estará pronto para referênciar qualquer tipo de variável ou tabela.
Para associar uma área de memória à um field-symbol, utilizando o comando ASSIGN.
Exemplos de Declaração:
REPORT zteste.
FIELD-SYMBOLS: <fs_any> TYPE ANY, "Qualquer coisa menos tabelas
<fs_table> TYPE ANY TABLE, "Qualquer tabela
<fs_vbak> TYPE SPFLI. "Tipo definido
Após dar um ASSIGN, você pode mudar o valor da variável X diretamente pelo Field-Symbol isto é muito útil quando se quer mudar valores de campo em tela ou variáveis em um programa standard por exemplo é sempre bom validar se a variável esta referenciado verificando se ela IS ASSIGNED para evitar Dump por falta de referência, como no exemplo abaixo:
REPORT zteste.
* Declaração dos Field-Symbols
*-----------------------------------
FIELD-SYMBOLS: <fs_teste> TYPE any.
* Variável Qualquer
*-----------------------------------
DATA: v_teste TYPE char30.
" RECEBENDO O VALOR NA VARIAVEL
v_teste = 'TESTE'.
* Cria a referência da área de memória no Field-Symbol. Note que
* é necessário colocar o nome da variável entre ( ), além de o nome
* estar em letras maíusculas.
ASSIGN ('V_TESTE') TO <fs_teste>.
"MODIFICANDO O VALOR DO ENDEREÇO DE MEMORIA
IF <fs_teste> IS ASSIGNED.
<fs_teste> = 'TESTE MEMORIA'.
ENDIF.
WRITE v_teste.
- ASSIGN de variáveis de outros programas: Você pode associar a memória não só do seu programa, mas de qualquer outro programa carregado na memória da execução. Isso é muito usado em EXITs, BADIs e Enhancement Points, para a leitura de dados que nem sempre estão disponíveis na interface do FORM, Função ou método, ou seja, você consegue alterar variáveis de outros programas na memória se souber usar este recurso:
REPORT zteste.
FIELD-SYMBOLS <fs_tabela> TYPE ANY TABLE. "Qualquer tabela
* Um exemplo simples de cada capturar valores de outros programas
* carregados na memória.
* Neste caso, estou capturando o valor de uma tabela que está declarada no
* programa SAPMV45A e associando a referência no field-symbol.
ASSIGN ('(SAPMV45A)XVBAP') TO <fs_tabela>.
* Note que você pode usar as dicas do tópico do Novo Debugger * para navegar entre a pilha de programas carregados e verificar
*as variáveis que estão na memória.
0 comentários:
Postar um comentário