内表与结构体基本类似,它同样是程序运行中被临时创建的一个存储空间,它是一个可包含多条记录的数据表。
内表共有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