ABAP-Field Symbol用法介绍
*&---------------------------------------------------------------------*
*& Report YN_FS01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YN_FS01.
DATA LV_FNAME TYPE CHAR30 .
DATA GT_VBAK TYPE TABLE OF VBAK WITH HEADER LINE .
SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_VBAK FROM VBAK UP TO 10 ROWS .
READ TABLE GT_VBAK INDEX 1 .
*声明:
*Generic Type
FIELD-SYMBOLS <FS_S01> TYPE ANY .
FIELD-SYMBOLS <FS_S03> TYPE ANY .
FIELD-SYMBOLS <FS_S05> TYPE ANY .
FIELD-SYMBOLS <FS_T01> TYPE ANY TABLE .
*Full Type
FIELD-SYMBOLS <FS_S02> LIKE LINE OF GT_VBAK[] .
FIELD-SYMBOLS <FS_S04> LIKE LINE OF GT_VBAK[] .
FIELD-SYMBOLS <FS_T02> LIKE GT_VBAK[] .
*普通分配
ASSIGN GT_VBAK TO <FS_S01> CASTING TYPE VBAK."强制类型转换
ASSIGN GT_VBAK[] TO <FS_T02> .
LOOP AT <FS_T02> ASSIGNING <FS_S02>.
<FS_S02>-ERNAM = 'Nathan'.
ENDLOOP.
READ TABLE <FS_T02> ASSIGNING <FS_S04> INDEX 1 .
*结构分配
ASSIGN COMPONENT 'ERNAM' OF STRUCTURE <FS_S04> TO <FS_S03> .
*动态结构分配
LV_FNAME = 'ERNAM'.
ASSIGN COMPONENT LV_FNAME OF STRUCTURE <FS_S04> TO <FS_S05> .
WRITE:/ '<FS_S03>:' && <FS_S03> ,/ '<FS_S05>:' && <FS_S05> .