WRITE:/,/,/.
* ------------------------ DYNAMIC ASSIGN ---------------------------- *
* En este ejemplo la asignación se hace en función del nombre del campo.
* Ejemplo de bucle para mostrar todas las variables con un prefijo común
* El nombre de la variable se actualiza con el paso del bucle.
* -------------------------------------------------------------------- *
DATA: A1(10) , A2(10) , A3(10).
DATA NAME(10) TYPE C.
A1 = 'aaaaaaaaaa'. A2 = 'bbbbbbbbbb'. A3 = 'cccccccccc'.
NAME = 'A'.
FIELD-SYMBOLS: <FS1>.
DATA INDICE(1) TYPE C.
DO 3 TIMES.
INDICE = SY-INDEX.
CONCATENATE 'A' INDICE INTO NAME.
WRITE:/ NAME. "Escribe el nombre de la variable
ASSIGN (NAME) TO <FS1>.
WRITE: <FS1>. "Escribe el contenido de la variable
ENDDO.
WRITE:/,/,/.