结构体
什么是结构体
ABAP 中可以定义结构来包含多个基本类型，便于整理及操作；
结构体不属于数据字典对象（数据字典中可以定义结构体，但不能存储数据），在程序运行时会被作为临时对象存储在内存空间；
在创建内表时，可参考直接定义的结构体作为内表结构。
结构体的定义，可以通过两种方式实现：
1.第一种方式
语法：
如：
TABLES: TABNA.
DATA: BEGIN OF ADDRESS,
FLAG TYPE C,
ID LIKE TABNA-ID,
NAME1 LIKE TABNA-NAME1,
CITY LIKE TABNA-CITY,
END OF ADDRESS.
* 为结构体字段赋值
MOVE 'X' TO ADDRESS-FLAG.
MOVE '0001' TO ADDRESS-ID.
MOVE 'Smith' TO ADDRESS-NAME1.
MOVE 'Philadelphia' TO ADDRESS-CITY.
WRITE ADDRESS.
ABAP TABLES的意思
比如tables: mseg.就创建了一个跟表MSEG类型一样的工作区。还可以创建一个一模一样的工作区tables: *mseg。
tables的最源大好处是取单条数据的时候，可以不加加into语句zd，如：
select single * from mseg.
select single * from *mseg.
如果没有tables语句，则不加into会报错
结构体与内表的区别
结构体也就是工作区，结构体是由几个字段组成的一个结构，相当于内表的一行数据。内表是内存中的表可以有多行数据。
WHERE 查询
TABLES KNA1.
SELECT SINGLE LAND1 ORT01
INTO (KNA1-LAND1, KNA1-ORT01)
FROM KNA1
WHERE LAND1 = 'FR' AND ORT01 = 'PARIS'.
IF SY-SUBRC = 0.
WRITE: KNA1-LAND1, KNA1-ORT01.
ENDIF.
SY-SUBRC = 0 代表成功。
INTO和corresponding
TYPES: BEGIN OF TY_KNA1, "定义结构体 TY_KNA1
KUNNR TYPE KNA1-KUNNR,
LAND1 TYPE KNA1-LAND1,
NAME1 TYPE KNA1-NAME1,
ORT01 TYPE KNA1-ORT01,
STRAS TYPE KNA1-STRAS,
END OF TY_KNA1.
DATA GT_KNA1 TYPE TABLE OF TY_KNA1. "定义内表，可存放个数据。
DATA GS_KNA1 TYPE TY_KNA1. "定义结构体 只存放一个数据.
SELECT KUNNR LAND1 NAME1 NAME2 ORT01 STRAS INTO CORRESPONDING FIELDS OF TABLE GT_KNA1
FROM KNA1 WHERE LAND1 = 'CN'.
CL_DEMO_OUTPUT=>DISPLAY( GT_KNA1 ).
其中corresponding表示将查询出来的字段装进表kna1和内表GT_KNA1 共有的字段到内表GT_KNA1
CL_DEMO_OUTPUT=>DISPLAY( GT_KNA1 ). 输出
LOOP循环
LOOP AT 表名 INTO 结构名
CLEAR 结构名
ENDLOOP
TYPES: BEGIN OF TY_KNA1, "定义结构体 TY_KNA1
KUNNR TYPE KNA1-KUNNR,
LAND1 TYPE KNA1-LAND1,
NAME1 TYPE KNA1-NAME1,
ORT01 TYPE KNA1-ORT01,
STRAS TYPE KNA1-STRAS,
END OF TY_KNA1.
DATA GT_KNA1 TYPE TABLE OF TY_KNA1. "定义内表，可存放个数据。
DATA GS_KNA1 TYPE TY_KNA1. "定义结构体 只存放一个数据.
SELECT KUNNR LAND1 NAME1 NAME2 ORT01 STRAS INTO CORRESPONDING FIELDS OF TABLE GT_KNA1
FROM KNA1 WHERE LAND1 = 'CN'.
LOOP AT GT_KNA1 INTO GS_KNA1.
*READ TABLE GT_KNA1 INTO GS_KNA1 INDEX 1.
WRITE GS_KNA1.
CLEAR GS_KNA1. "释放
ENDLOOP.
append
APPEND 结构体 TO 表名. (向内表的最后一行插入一行，APPEND只能用于标准表中)
*新建一个type为gy_member的表
DATA:gt_table TYPE TABLE OF gy_member.
*声明一个变量
DATA:gs_member TYPE gy_member.
*先给结构体赋值
gs_member-id = 1.
gs_member-name = '张三'.
gs_member-age = 18.
gs_member-sex = '男'.
*向table中插入数据
APPEND gs_member TO gt_table. "gs_member是结构体，gt_table是表名
APPEND LINES OF表2 FROM 1 TO 3 TO 表1.（向内表1插入内表2中的n行）
*新建一个gy_member类型的表
DATA:gt_table2 TYPE TABLE OF gy_member.
*先实例化DATA
DATA:gs_member1 TYPE gy_member.
*赋值
gs_member1-id = 1.
gs_member1-name = '张三'.
gs_member1-age = 18.
gs_member1-sex = '男'.
*向gt_table2中插入数据，此时gt_table2中有5条数据
APPEND gs_member1 TO gt_table2.
APPEND gs_member1 TO gt_table2.
APPEND gs_member1 TO gt_table2.
APPEND gs_member1 TO gt_table2.
APPEND gs_member1 TO gt_table2.
*向gt_table中插入gt_table2的1到3行数据
APPEND LINES OF gt_table2 FROM 1 TO 3 TO gt_table.
insert
INSERT 结构体 INTO 表名 INDEX 索引.（向内表insert数据到指定index,如果不指定插入到的index则功能和APPEND一样）
*声明要插入的变量
gs_member-id = 5.
gs_member-name = '王五'.
gs_member-age = 19.
gs_member-sex = '女'.
*向gt_table中INSERT数据到index为1的地方
INSERT gs_member INTO gt_table INDEX 1.
*声明要插入的变量
gs_member-id = 5.
gs_member-name = '王五'.
gs_member-age = 19.
gs_member-sex = '女'.
*不指定index和APPEND一样的效果
INSERT gs_member INTO TABLE gt_table.
INSERT LINES OF 表 FROM 1 TO 3 INTO TABLE 表1.
*INSERT表1中的某几行到表2
INSERT LINES OF gt_table2 FROM 1 TO 3 INTO TABLE gt_table.
read
READ TABLE 表名 INTO 结构体 INDEX 索引.（在结构体中读一个表）
*新建一个结构体
DATA:gs_member_read TYPE gy_member.
*在gs_member_read结构体中读一个表gt_table
READ TABLE gt_table INTO gs_member_read INDEX 2.
*如果程序执行成功打印gs_member_read
IF sy-subrc = 0.
WRITE: / gs_member_read-id ,/ gs_member_read-name,/ gs_member_read-age,/ gs_member_read-sex.
ENDIF.
READ TABLE 表名 WITH TABLE KEY 条件 INTO 结构体.（通过KEY向结构体中读取表数据）
