Fieldsymbols – Uso simple en T16FS

Caso: se desea acceder a cada campo donde se encuentran los códigos de liberación de la tabla T16FS (Estrategias de liberación).

Solución: usamos fieldsymbols para dinámicamente acceder a cada campo numerado del 1 al 8.

FIELD-SYMBOLS: <fs>.
 
DATA: lw_t16fs       type t16fs,
      lc_cant        TYPE c,
      lc_variable    TYPE string.
 
SELECT SINGLE * INTO lw_t16fs FROM t16fs
  WHERE frggr = lw_ekko-frggr   " Grupo de liberación
    AND frgsx = lw_ekko-frgsx.  " Estrategia liberación
 
DO 8 TIMES.
  WRITE sy-index TO lc_cant.
  CONCATENATE 'LW_T16FS-FRGC' lc_cant INTO lc_variable.
  ASSIGN (lc_variable) TO <fs>.
 
  WRITE /: 'Código de liberación:', lc_cant, '-', lc_variable, '. Valor:', <fs>.
 
ENDDO.

Anuncios