ABAP 开发系列(05): ABAP 内表与内表结构

2.内表和内表结构

2.1  结构体(Structure)

2.1.1 结构体的定义

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

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

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

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

 

1.第一种方式

语法：

DATA:  BEGIN OF <name>

<field1> . . .

<field2> . . .

. . .

END OF <name>.

 

如：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

TABLES: TABNA.

 

DATA:BEGIN OFADDRESS,

       FLAG  TYPE C,

       ID    LIKE TABNA-ID,

       NAME1 LIKE TABNA-NAME1,

       CITY  LIKE TABNA-CITY,

      ENDOF ADDRESS.

 

* 为结构体字段赋值

  MOVE'X'            TOADDRESS-FLAG.

  MOVE'0001'         TOADDRESS-ID.

  MOVE'Smith'        TOADDRESS-NAME1.

  MOVE'Philadelphia' TOADDRESS-CITY.

 

  WRITEADDRESS.

 

2.第二种方式

语法：

TYPES: BEGIN OF <name1>,

<field1> . . . ,

<field2> . . . ,

. . .  ,

END OF <name1>.

DATA: <name2> TYPE <name1>.

如：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

TYPES:BEGIN OFADDR,

        FLAG,

        ID     LIKE EMPLOYEE-ID,

        NAME1  LIKE EMPLOYEE-NAME1,

        CITY   LIKE EMPLOYEE-CITY,

       ENDOF ADDR.

 

DATA: ADDRESSTYPE ADDR.

 

MOVE: 'X'            TO ADDRESS-FLAG,

       '00001'       TO ADDRESS-ID,

       'Smith'       TO ADDRESS-NAME1,

       'Philadelphia'TO ADDRESS-CITY.

 

WRITE ADDRESS.

 
 

2.1.2  结构体的赋值

相同结构体之间可以通过 MOVE … TO … 语句进行赋值；

如若存在类型差异的结构体，则可以通过 MOVE-CORRESSPONDING … TO … 语句将两个结构体之间相同字段自动匹配赋值:

与基本变量定义类似，结构体的初始化操作也可以通过 CLEAR 语句实现。

如：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

TABLES: employee.

 

DATA:BEGIN OFaddress,

        flag,

        id     LIKE employee-id,

        name   LIKE employee-name1,

        city   LIKE employee-city,

      ENDOF ADDRESS.

 

SELECT * FROM employee.

 

     MOVE-CORRESPONDINGemployee TO address.

 

     WRITE: / address-flag,  address-id,

            address-name, address-city.

 

     CLEARaddress.

ENDSELECT.

 
 

2.2  内表(Internal Table)

内表与结构体基本类似，同样在程序运行过程中存储在临时创建的内存空间，它是一个可以存储多条记录的数据表。

 

2.2.1 内表的定义

通过关键字DATA定义内表，可以直接参考结构体或者其他内表及透明表结构，也可以直接定义结构字段。

语法：

①.DATA <NAME> TYPE <STRUCTURE>        WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE].

②.DATA <NAME> LIKE TABLE OF <TABLE> WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE].

③.DATA: BEGIN OF itab OCCURS n,

<field>

<field>

END OF itab.

 

其中，关键字说明如下：

[UNIQUE|NON-UNIQUE]： 指定关键字，只用于排序表，使用NON-UNIQUE关键字的话，排序表数据记录允许重复关键字字段；

[INITIAL SIZE n]：指定初始化内表大小，比较少用，一般默认即可；

[WITH HEADER LINE]： 定义内表是否带表头；

 

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

*--------------------------------------------------------------------*

* 通过定义结构体并参考该结构定义内表

*--------------------------------------------------------------------*

TABLES: employee.                          "参考某一透明表，必须先引用定义

 

TYPES: BEGIN OFemp,

         id         LIKE employee-id,

         name1      LIKE employee-name1,

         country    LIKE employee-country,

        ENDOF emp.

 

*--------------------------------------------------------------------*

* 参考EMP 结构定义一个初始化大小为10，并有HEADER LINE的内表

*--------------------------------------------------------------------*

DATA: emptabTYPE STANDARDTABLE OF emp INITIAL SIZE10 WITH HEADER LINE.

 

 

*--------------------------------------------------------------------*

* 参考EMPTAB内表，重新定义没有HEADER LINE的内表

*--------------------------------------------------------------------*

DATA: emptab_nLIKE STANDARDTABLE OF emptab.

 

 

*--------------------------------------------------------------------*

* 定义一个允许重复KEY，并且没有HEADER LINE的排序表

*--------------------------------------------------------------------*

DATA: emptab_sTYPE SORTTABLE OF emp WITH NON-UNIQUEKEY id.

 

 

*--------------------------------------------------------------------*

* 通过第三种方式定义的内表，可指定具体字段，默认内表存在HEADER LINE

*--------------------------------------------------------------------*

TYPES: BEGIN OFemp OCCURS 0,

          id        LIKE employee-id,

          name1     LIKE employee-name1,

          country   LIKE employee-country,

        ENDOF emp.

 

2.2.2  内表有无 HEADER LINE 的区别

对于有HEADER LINE的内表，可以通过填充HEADER LINE数据后或通过 外部Work Area 向内表存储空间中追加数据。

 

对于没有HEADER LINE的内表，只能通过 外部Work Area来传递数据：

语法：

①.APPEND [<Work Area> INTO] <ITAB>.

如：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

TABLES: employee.

 

TYPES:BEGIN OFemp,

    id LIKE employee-id,

    name1  LIKE employee-name1,

    countryLIKE employee-country,

       ENDOF emp.

 

* 有 HEADER LINE 的内表

DATA: emptab TYPE STANDARDTABLE OF emp INITIAL SIZE10 WITH HEADER LINE.

 

* 没有 HEADER LINE 的内表

DATA: emptab2TYPE STANDARDTABLE OF emp INITIAL SIZE10,        

 

* Work Area

      emptab_waTYPE emp.                                                                          

 

SELECT * FROM employee.

 

    MOVE-CORRESPONDINGemployee TO emptab.

    APPENDemptab.

 

    MOVE-CORRESPONDINGemployee TO emptab_wa.

    APPENDemptab_wa TO emptab2.

 

ENDSELECT.

 

由于没有HEADER LINE的内表通过Work Area 传递数据在性能上会优于HEADER LINE直接填充HEADER LINE，

所以，一般基本都使用没有 HEADER LINE 的内表。

除非一些特殊情况，才会使用 HEADER LINE 内表。

 

 

2.2.3 内表数据处理

1. 遍历读取内表数据 (LOOP … ENDLOOP.)

01

02

03

04

05

06

07

08

09

10

11

LOOP AT emptab WHEREcountry BETWEEN‘A’ AND ‘D’.

 

     WRITE:  / emptab-country, emptab-name1, emptab-sales.

 

ENDLOOP.

 

IF sy-subrc NE 0.  

 

     WRITE: / ‘NOENTRIES’.  

 

ENDIF.

 

解析：

a.LOOP 语句后，允许使用WHERE语句筛选数据。

b.程序中，出现 sy-subrc 变量，这是系统全局变量，用于检查是否符合条件,

如若符合条件 sy-subrc 返回0 ，如果不符合，则返回4.

 

2. 读取内表数据 (READ TABLE …)

在数据内表，可以通过READ TABLE关键字根据具体行数或主键字段读取内表中的某行记录：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

TABLES: employee.

 

TYPES: BEGIN OFemp,

         country    LIKE employee-country,

         name1      LIKE employee-name1,

        ENDOF emp.

 

DATA: emptabTYPE STANDARDTABLE OF emp INITIAL SIZE10 WITH HEADER LINE.

 

SELECT * FROM EMPLOYEE.

 

    MOVE-CORRESPONDINGemployeeTO emptab.

    APPENDEMPTAB.

 

ENDSELECT.

 

READ TABLE ….

 

READ TABLE 选项：

1) READ TABLE <EMPTAB>.

2) READ TABLE <EMPTAB>  WITH KEY <k1> = <v1>…  <kn> = <vn>.

3) READ TABLE <EMPTAB>  WITH TABLE KEY <k1> = <v1> …  <kn> = <vn>.

4) READ TABLE <EMPTAB>  WITH KEY  = <value>.

5) READ TABLE <EMPTAB>  WITH KEY . . .  BINARY SEARCH.

6) READ TABLE <EMPTAB>  INDEX <i>.

7) READ TABLE <EMPTAB> COMPARING <f1> <f2> . . . .

8) READ TABLE <EMPTAB> COMPARING ALL FIELDS.

9) READ TABLE <EMPTAB> TRANSPORTING <f1> <f2> . . . .

10) READ TABLE <EMPTAB> TRANSPORTING NO FIELDS.

 

关键字说明：

[KEY|TABLE KEY]: 通过内表的主键字段查找

[BINARY SEARCH]: 二分法查找，使用该方法时，在READ TABLE之前，必须对内表排序

[INDEX]: 根据内表索引查找

[COMPARING]:只查找设置的字段

[COMPARING ALL FIELDS]:查找内表所有的字段

[TRANSPORTING]: 只输出设置的字段数据

[TRANSPORTING NO FIELDS]: 不输出任何数据

 

3. 内表排序

对内表进行排序，指定具体排序的排序字段、排序方式（升序/降序）

默认情况下，为升序。

语法：

SORT itab [BY <f1> <f2> …] [ASCENDING|DESCENDING]

 

4. 内表分类汇总（COLLECT TABLE …）

通过COLLECT TABLE关键字，可以对内表中相同记录合并，若有数字类型(I、P、F)的字段，会将其合并汇总。

语法：

COLLECT [<work area> INTO] itab.

 

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

TABLES: EMPLOYEE.

 

TYPES: BEGIN OFEMP,

      COUNTRY   LIKE EMPLOYEE-COUNTRY,

      SALES     LIKE EMPLOYEE-SALES,

        ENDOF EMP.

 

DATA:  EMPTAB  TYPE STANDARDTABLE OF EMP INITIAL SIZE10 WITH HEADER LINE,

       EMPTAB_CTYPE STANDARDTABLE OF EMP INITIAL SIZE10 WITH HEADER LINE.

 

DATA:  EMPTAB_WATYPE EMP.

 

* 赋值

EMPTAB-COUNTRY ='D'.

EMPTAB-SALES         = 400.

APPEND EMPTAB.

 

EMPTAB-COUNTRY ='USA'.

EMPTAB-SALES         = 1000.

APPEND EMPTAB.

 

EMPTAB-COUNTRY ='GB'.

EMPTAB-SALES         = 500.

APPEND EMPTAB.

 

EMPTAB-COUNTRY ='D'.

EMPTAB-SALES         = 7800.

APPEND EMPTAB.

 

SORT EMPTAB BY COUNTRY.

 

LOOP EMPTAB.

      

     MOVE-CORRESPONDINGEMPTAB TO EMPTAB_WA.

 

     COLLECTEMPTAB INTO EMPTAB_C.

 

ENDLOOP.

输出结果：

D       8200

GB       500

USA    1000

 

或者直接从数据表取数汇总：

01

02

03

04

05

06

07

08

09

10

11

12

SELECT * FROM EMPLOYEE.

 

   MOVE-CORRESPONDINGEMPLOYEE TO EMPTAB.

   COLLECTEMPTAB.

 

ENDSELECT.

 

LOOP AT EMPTAB.

 

   WRITE:  / EMPTAB-COUNTRY, EMPTAB-SALES.

 

ENDLOOP.

 

5.系统字段 SY-TABIX

与前面提到的 SY-SUBRC 字段一样，SY-TABIX 也为系统的全局变量；

用于在循环遍历内表时，当前记录的索引值：

1

2

3

4

5

6

7

8

SELECT * FROM EMPLOYEE

   INTOCORRESPONDING FIELDSOF TABLE EMPTAB.

 

LOOP AT EMPTAB.

 

   WRITE:  / SY-TABIX, EMPTAB-COUNTRY, EMPTAB-NAME1.

 

ENDLOOP.

 
 

2.2.4 维护内表数据

1.通过索引值维护内表

 

语法:

INSERT   <EMPTAB> INDEX <i>.

MODIFY <EMPTAB> INDEX <i>.

DELETE   <EMPTAB> INDEX <i>.

 

说明：

INSERT： 向内表数据I处插入数据记录

MODIFY：修改内表数据I处记录

DELETE：删除内表I处数据记录

如：

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

SELECT * FROM EMPLOYEE.

   MOVE-CORRESPONDINGEMPLOYEE TO EMPTAB.

   APPENDEMPTAB.

ENDSELECT.

 

READ TABLE EMPTAB INDEX1.

MOVE 'ABC' TO EMPTAB-NAME1.

MODIFY EMPTAB INDEX SY-TABIX.

 

* 每次执行完之后，判断SY-SUBRC是否为0

IF SY-SUBRC NE 0.

 

   WRITE:  / ‘Attemptto modify failed.’.

 

ELSE.

 

  WRITE:  / EMPTAB-COUNTRY, EMPTAB-NAME1.

 

ENDIF.

 

INSERT EMPTAB INDEX 1.

DELETE EMPTAB INDEX SY-TABIX.

 

2. 维护没有HEADER LINE的内表

 

APPEND <work area> TO <internal table>.

COLLECT <work area> INTO <internal table>.

INSERT <work area> INTO <internal table>.

MODIFY <internal table> FROM <work area>.

READ TABLE <internal table> INTO <work area>.

LOOP AT <internal table> INTO <work area>.

 

说明：

APPEND： 向内表追加数据

COLLECT：内表数据分类汇总

INSERT：向内表插入数据

MODIFY：修改内表数据

READ TABLE：读取内表数据

LOOP AT：遍历内表数据

 

3. 清空内表

清空内表有4种方式：

CLEAR <internal table>：仅清空HEADER LINE，对内表数据存储空间不影响

REFRESH <internal table>：清空内表数据存储空间，对HEADER LINE不影响

FREE <internal table>：清空内表数据存储空间，对HEADER LINE不影响

 

4.获取内表信息

可以通过 DESCRIBE 关键字获取内表的相关信息。

语法：

DESCRIBE TABLE <internal table> [LINES <var1>] [OCCURS <var2>].

 

说明：

LINES: 获取内表存储记录数

OCCURS：获取内表存储空间大小

原著地址：http://www.sapjx.com/abap-internal-table-and-data-structure.html