ABAP开发基础知识：内表(Internal Table)

http://www.cnblogs.com/foxting/archive/2012/03/19/2406830.html

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

内表共有3种类型：

1)Standard：标准表

2)Sorted：排序表

3)Hashed：哈希表，一般用的比较少

本篇文件将重点介绍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