|
Que tal budista1.
Aqui te dejo un ejemplo sencillo de field symbols. LLevalo a tu ambiente de desarrollo y lo ejecutas. Tal vez no le veas la utilidad al algoritmo pero la idea es que veas como funciona. Te recomiendo que actives el modo debugging y observes cada asignación paso a paso, seguro lo entenderás.
Espero te sea útil.
*****INICIO DEL EJEMPLO ************
REPORT ZFBRAZON_4 MESSAGE-ID zfi01. .
DATA: w_num LIKE bkpf-monat,
w_monto LIKE bsis-dmbtr,
str_sem(20) TYPE C.
DATA: BEGIN OF reg_imp OCCURS 0,
NUM LIKE BKPF-MONAT,
semana01 LIKE bsis-dmbtr,
semana02 LIKE bsis-dmbtr,
semana03 LIKE bsis-dmbtr,
semana04 LIKE bsis-dmbtr,
semana05 LIKE bsis-dmbtr,
END OF reg_imp.
FIELD-SYMBOLS: <semana>, <col>.
reg_imp-semana01 = 100.
reg_imp-semana02 = 350.
reg_imp-semana03 = 420.
reg_imp-semana04 = 530.
reg_imp-semana05 = 750.
reg_imp-num = 0.
DO 6 times.
reg_imp-num = reg_imp-num + 1.
CONCATENATE 'reg_imp-semana' reg_imp-num INTO str_sem.
ASSIGN (str_sem) TO <semana>.
w_monto = <semana>.
ENDDO.
****** FIN DEL EJEMPLO ********
|