结构体

什么是结构体

ABAP 中可以定义结构来包含多个基本类型，便于整理及操作；

结构体不属于数据字典对象（数据字典中可以定义结构体，但不能存储数据），在程序运行时会被作为临时对象存储在内存空间；

在创建内表时，可参考直接定义的结构体作为内表结构。

结构体的定义，可以通过两种方式实现：

1.第一种方式

语法：

image.png

如：

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向结构体中读取表数据）