使用分配指针的方式动态获取内表中的字段的值。
例子如下:
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…