ABAP开发基础知识：5) 内表(Internal Table)-阿里云开发者社区

相关文章推荐

腼腆的绿豆 · laravel join 子查询 ...· 20 小时前 ·

心软的鼠标 · ClickHouse查询语句详解_click ...· 2 天前 ·

文雅的小蝌蚪 · Maximum capacity ...· 4 天前 ·

着急的毛巾 · Row version change ...· 1 周前 ·

文雅的煎饼果子 · 如何使用python中的sqlalchemy ...· 2 周前 ·

英勇无比的跑步鞋 · minio的访问权限 - CSDN文库· 1 月前 ·

仗义的登山鞋 · 如何在VBA中强制更新剪贴板？· 3 月前 ·

神勇威武的灌汤包 · C#NPOI操作EXCEL-设置密码及设置只 ...· 7 月前 ·

聪明的领带 · 生肉中英文字幕《泰坦尼克号沉没之谜 ...· 8 月前 ·

没人理的人字拖 · 有没有办法用selenium关闭选择文件窗口 ...· 12 月前 ·

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。本篇文件将重点介绍Standart型内表的定义及功能 1.内表的定义通过关键字DATA对内表进行创建，内一的定义可以直接参考结构体或者其它内表及透明表，也可以直接定义字段，其中关键字如下： UNIQUE|NON-UNIQUE：指定关键字，只能应用于排序表或者哈希表。

本篇文件将重点介绍Standart型内表的定义及功能

1.内表的定义

通过关键字DATA对内表进行创建，内一的定义可以直接参考结构体或者其它内表及透明表，也可以直接定义字段，其中关键字如下：

UNIQUE|NON-UNIQUE ：指定关键字，只能应用于排序表或者哈希表。

INITIAL SIZE n：指定初始化内表大小。

WITH HEADER LINE ：定义内表是否有表头。

具体定义有以下几种方式：

DATA <内表名> TYPE <结构类型> WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE]。

DATA <内表名> LIKE TABLE OF <内表或者透明表> WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE]。

DATA BEGIN OF itab OCCURS n,

......

END OF itab [VALID BETWEEN f1 AND f2]。

FOR EXAMPLE:

TABLES:USER21. “参考某一透明表时，必须先引用定义。类型于C#的USING。

TYPES:BEGIN OF EMP,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF EMP。

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

DATA:EMPTAB TYPE STANDARD TABLE OF EMP INITIAL SIZE 10 WITH HEADER LINE.

*参考上例已建立内表，重新定义大小为20并且没有HEADER LINE的内表

DATA:EMPTAB2 LIKE STANDARD TABLE OF TMPTAB INITIAL SIZE 20.

*该方法定义初始化值为10，并有HEADER LINE的内表

DATA:EMPTAB3 LIKE EMPTAB OCCURS10.

*定义一个排序表，以NAME为关键字，该内表中NAME字段数据不能重复

DATA:EMPTAB4 LIKE SORTED TABLE OF EMPTAB WITH UNIQUE KEY NAME INITIAL SIZE 10 WITH HEADER LINE.

*定义一个初始化大小为0的哈希表

DATA:EMPTAB5 LIKE HASHED TABLE OF EMPTAB WITH UNIQYE KEY NAME WITH HEADER LINE.

通过第三种方式定义的内表可指定具体字段及初始化大小，默认内表存在HEADER LINE。

TABLES:USER21.

TYPES:BEGIN OF EMP OCCURS 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF EMP.

2.内表的赋值

上面曾介绍过，内表分为有无HEADER LINE两种。对于有HEADER LINE的内表，可以通过填充HEADER LINE数据后或通过外部的Work Area向内表存储空间中追加数据，相关语法如下：

APPEND (<work area> into) <ITAB>.

FOR EXAMPLE:

TABLES:USER21.

DATA:BEGIN OF EMP OCCURES 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF EMP.

EMP-NAME='JERY'.

EMP-TELNUM='010-123888'.

EMP-ADDR='BEIJING'.

APPEND EMP. "数据被赋给内表HEADER LINE后再APPEND到表中最后一行。

对于没有HEADER LINE的内表，只能通表外部WORK AREA来传递数据，如下所示：

TABLES:USER21.

DATA:BEGIN OF EMPTAB,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF TMPTAB.

DATA:EMP LIKE STANDART TABLE OF EMPTAB.

EMP-NAME='JERY'.

EMP-TELNUM='010-123888'.

EMP-ADDR='BEIJING'.

APPEND EMPTAB TO EMP. ”数据被赋给WORK AREA后再APPEND到表中。

除了上述的赋值方式外，还可以通过OPEN SQL将数据表中的数据按条件查询后放入内表中，对于OPEN SQL的具体用法，将后在后面介绍。

FOR EXAMPLE:

TABLES:USER21.

DATA:BEGIN OF EMP OCCURES 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF EMP.

SELECT BNAME AS NAME PERSNUMBER AS TELNUM ADDRNUMBER AS ADDR

INTO TABLE EMP FROM USER21. "通过OPEN SQL将从数据表中抓取的数据直接复制给内表。

3.内表数据管理

1.内表的清空

对内表数据的清空共包括4种模式

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

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

REFRESH <itab> FROM TABLE <dbtab> ：清空内表存储空间，填充从数据库表所获数据。

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

FOR EXAMPLE：

TABLES:USER21.

DATA:BEGIN OF EMP OCCURS 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

ADDR LIKE USER21-ADDRNUMBER,

END OF EMP.

SELECT BNAME AS NAME PERSNUMBER AS TELNUM ADDRNUMBER AS ADDR INTOTABLE EMP FROM USER21.

USER21-BNAME='JERY'.

REFRESH EMP FROM TABLE USER21. "清除EMP的存储空间，并从USER21中查找数据填充到内表。

2.INSERT（向内表插入数据）

可以按内表的具体字段向表中插入一行或者多行数据，具体语法如下：

INSERT [wa INTO|INITIAL LINE INTO] itab [INDEX idx].

INSERT [wa INTO|INITIAL LINE INTO] TABLE itab.

INSERT LINES OF itab1 [FROM idx] [TO idx2] INTO itab2 [INDEX idx3].

FOR EXAMPLE:

TABLES:USER21.

DATA:BEGIN OF EMP OCCURS 0,

NAME LIKE USER21-BNAME,

END OF EMP.

DATA:EMPTAB1 LIKE EMP.

DATA:EMPTAB2 LIKE EMP OCCURS 10.

EMP='JERY'.

INSERT EMP INDEX 1."若内表有多行数据，该语句将新记录新增到第一行。

EMPTAB1='TOM'.

INSERT EMPTAB1 INTO TABLE EMP. “将结构体中数据新增到内表

SELECT BNAME AS NAME INTO TABLE EMPTAB2 FROM USER21.

INSERT LINES OF EMPTAB2 FROM 10 INTO EMP."将数据表EMPTAB2从第10行开始的所有数据插入到表EMP中。

3.MODIFY(直接修改内表数据)

按内表位置或者具体内表字段值相等条件修改内表数据。

MODIFY itab [FROM wa] [INDEX idx] [TRANSPORTING f1...fn] WHERE cond.

FOR EXAMPLE:

TABLES:USER21.

DATA:BEGIN OF EMP OCCURS 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

END OF EMP.

SELECT BNAME AS NAME PERSNUMBER AS TELNUM INTO TABLE EMP FROM USER21.

EMP-NAME='JERY'.

EMP-TELNUM='010-888888'.

MODIFY EMP INDEX 1."修改内表第一行数据为设定值

EMP-TELNUM='0755-888888'.

*查找内表中NAME等于TOM的数据，并按设定修改其TELNUM字段，有多行值时会同时修改。

MODIFY EMP TRANSPORTING TELNUMBER WHERE NAME='TOM'.

4.COLLECT（内表数据分类汇总）

将内表中相同的字段合并，若有类型为I的字段，则将其值加总。

COLLECT [wa INTO] itab.

FOR EXAMPLE:

TYPES:BEGIN OF COMPANY,

NAME(20) TYPE C,

SALES TYPE n,

ENF OF COMPANY.

DATA:COMP TYPE COMPANY,COMPTAB TYPE COMPANY OCCURS 0.

COMP-NAME = 'MOBILE'. COMP-SALES = 10. COLLECT COMP INTO COMPTAB.

COMP-NAME = 'NOTEBOOK'. COMP-SALES = 20. COLLECT COMP INTO COMPTAB.

COMP-NAME = 'MOBILE'.COMP-SALES = 30. COLLECT COMP INTO COMPTAB.

5.SORT（内表数据排序）

对内表进行排序，可以指定具体的排序字段、排序方式(升/降),语法如下：

SORT itab [BY f2 f2...fn] [ASCENDING/DESCENDING]

6.READ(读取)

依据具体行数或字段值等条件读取某一内表的数据。

READ TABLE itab FROM wa.

READ TABLE itab WITH [TABLE] KEY k1=v1...kn=vn [BINARY SEARCH].

READ TABLE itab INDEX i.

使用READ操作的表必须的HEADER LINE作为查找出的数据存储窗口，BINARY SEARCH 可以提高内表数据查找的速度，但是使用前必须先对内表进行排序。

7.LOOP....ENDLOOP（循环读取内表数据）

循环读取内表数据，在循环中使用系统变量SY-TABIX可获取当前所执行的行数。

LOOP AT ITAB FROM n1 TO n2. ：读取内表具体行数间数据。

LOOP AT ITAB WHERE logexp. ：按具体字段条件读取内表。

FOR EXAMPLE:

TABLES:USER21.

DATA:BEGIN OF EMP OCCURS 0,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

END OF EMP.

SELECT BNAME AS NAME PERSNUMBER AS TELNUM INTO TABLE EMP FROM USER21.

*读取内表的1-10行数据。

LOOP AT EMP FROM 1 TO 10.

WRITE:EMP.

ENDLOOP.

*按NAME条件读取内表。

LOOP AT EMP WHERE NAME='JERY'.

WRITE:EMP.

ENDLOOP.

8.AT...ENDAT（设置内表循环触发条件）

该语法为事件控制函数，应用于LOOP循环语句中，用于获取内表的数据变化事件。

AT NEW f. ：当某个字段数据与上一行数据值不同时触发该事件。

AT END OF f. ：当内表中某个字段当前行值与下一行值不同时触发该事件。

AT FIRST. ：当执行内表第一行时触发该事件。

AT LAST. ：当执行内表最后一行时触发该事件。

9.AT..DELETE（删除内表数据）

DELETE TABLE itab WITH TABLE KEY k1=v1...kn=vn. ：按具体值删除。

DELETE TABLE itab [FROM wa]. ：参照其它内表值删除。

DELETE itab INDEX idx. ：删除具体行数据。

DELETE itab FROM idx1 TO idx2. ：删除具体行数范围间数据。

DELETE ADJACENT DUPLICATES FROM itab. ：删除重复数据，执行此条件前必须先排序。

10.DESCRIBE（获取内表的具体属性）

DESCRIBE TABLE itab LINES n ：获取内表当前总行数，n为整型。

DESCRIBE TABLE itab OCCURS n ：获取内表初始化行数，n为整形。

DESCRIBE TABLE itab KIND K .：获取内表类型：T：Standard,S：SORTED,H：HASHED。

FOR EXAMPLE:

DATA:N1 TYPE I,N2 TYPE I,K TYPE C.

DATA:BEGIN OF EMP OCCURS 10,

NAME LIKE USER21-BNAME,

TELNUM LIKE USER21-PERSNUMBER,

END OF EMP.

DESCRIBE TABLE EMP LINES N1. ”表中无数据，回执为0

DESCRIBE TABLE EMP OCCURS N2. “表初始化大小为10，回执为10

DESCRIBE TABLE EMP KIND K. ”默认为STANDARD表，回执为T