SAP ASSIGN COMPONENT动态获取内表值

使用分配指针的方式动态获取内表中的字段的值。
例子如下：

TYPES: BEGIN OF TY_OUT,
         HSL01 TYPE I,
         HSL02 TYPE I,
         HSL03 TYPE I,
         HSL04 TYPE I,
         HSL05 TYPE I,
       END OF TY_OUT.


DATA: GT_OUT TYPE TABLE OF TY_OUT.
DATA: GS_OUT TYPE TY_OUT.

GS_OUT-HSL01 = 1.
GS_OUT-HSL02 = 1.
GS_OUT-HSL03 = 1.
GS_OUT-HSL04 = 1.
GS_OUT-HSL05 = 1.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

GS_OUT-HSL01 = 2.
GS_OUT-HSL02 = 2.
GS_OUT-HSL03 = 2.
GS_OUT-HSL04 = 2.
GS_OUT-HSL05 = 2.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

GS_OUT-HSL01 = 3.
GS_OUT-HSL02 = 3.
GS_OUT-HSL03 = 3.
GS_OUT-HSL04 = 3.
GS_OUT-HSL05 = 3.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

GS_OUT-HSL01 = 4.
GS_OUT-HSL02 = 4.
GS_OUT-HSL03 = 4.
GS_OUT-HSL04 = 4.
GS_OUT-HSL05 = 4.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

GS_OUT-HSL01 = 5.
GS_OUT-HSL02 = 5.
GS_OUT-HSL03 = 5.
GS_OUT-HSL04 = 5.
GS_OUT-HSL05 = 5.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

FIELD-SYMBOLS: <FS> TYPE ANY.
FIELD-SYMBOLS: <VALUE>.
DATA: LV_NUM TYPE C.
DATA: LV_FIELD TYPE CHAR12.
DATA: LV_VALUE TYPE I.


LOOP AT GT_OUT ASSIGNING <FS>.
  LV_NUM = LV_NUM + 1.
  CONCATENATE 'HSL0' LV_NUM INTO LV_FIELD.
  UNASSIGN <VALUE>.
  ASSIGN COMPONENT LV_FIELD OF STRUCTURE <FS> TO <VALUE>.
  LV_VALUE = <VALUE>.
  WRITE: / LV_VALUE.
ENDLOOP.

OVER…