Field symbol alan ismi tekrarları

*Bu örnek'te olduğu gibi ekranda aynı türden tekrar eden 18 tane gibi alanlar varsa bunları tektek eşitleme yerine field symbol la DO içinde döndürerek dynamic olarak istediğimiz değerleri ekletebiliriz.

DATA : ls_konv LIKE konv,
         lv_str  TYPE string,
         lv_i    TYPE i.
  FIELD-SYMBOLS : <a_fs>   TYPE ANY,
                  <ak_fs>  TYPE ANY,
                  <akk_fs> TYPE ANY.
  LOOP AT gt_display.
    CLEAR ls_konv .
    SELECT SINGLE * FROM konv INTO ls_konv
       WHERE knumv EQ gt_display-knumv.
    CLEAR lv_i.
    DO 18 TIMES.
      lv_i = lv_i + 1.
      lv_str = lv_i. CONDENSE lv_str.
      CONCATENATE 'A' lv_str '_KSCHL'   INTO lv_str.
      ASSIGN (lv_str) TO <a_fs>.
      lv_str = lv_i. CONDENSE lv_str.
      CONCATENATE 'A' lv_str '_KRECH'   INTO lv_str.
      ASSIGN (lv_str) TO <ak_fs>.
      lv_str = lv_i. CONDENSE lv_str.
      CONCATENATE 'GT_DISPLAY-A' lv_str INTO lv_str.
      ASSIGN (lv_str) TO <akk_fs>.
      IF sy-subrc IS INITIAL.
        IF <a_fs> IS NOT INITIAL AND <a_fs> EQ ls_konv-kschl.
          IF <ak_fs> IS NOT INITIAL.
            IF gt_display-krech = 'A'.
              <akk_fs> = ls_konv-kwert / gt_display-menge.
            ELSE.
              <akk_fs> = ls_konv-kawrt.
            ENDIF.
          ELSE.
            <akk_fs> = ls_konv-kawrt.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDDO.

    MODIFY gt_display.
  ENDLOOP.
ENDFORM.