什么是内表:内表是内存中建立的一个临时表,你可以在程序运行时对表中的数据进行,插入,修改,删除等操作,程序跑完了,就会被释放。

定义类型:通过types开头定义

TYPES: BEGIN OF line,

field1 TYPE i,

field2 TYPE i,

END OF line.

参考类型定义结构、工作区域、变量:定义结构通过data开头定义

DATA: WA _ITAB TYPE(LIKE) line. “ 声明一个内表工作区

DATA: ITAB TYPE(LIKE) STANDARD TABLE OF line .

参考工作区域定义内表,

Data itab like table of  wa_itab

参考内表定义工作区,

Data wa_itab like lines of itab

填充内表行

append <wa> to <itab> “ 不带表头行的填充

append <itab> “ 带隐式表头行的填充

插入内表行

insert <wa> into <itab> [INDEX idx] “

insert <itab> [INDEX idx ] “ 隐式表头行插入内表

-- 如果没有指定INDEX ,则默认插入到内表最后一行

读取内表行

read <itab> into <wa> [INDEX idx]

read <itab> [INDEX IDX]

修改内表行

modify <itab> from <wa> [INDEX idx]

modify <itab> [INDEX idx]

-- read itab index 3 .

-- itab-XX = ‘xxx’ .

-- modify itab index 4 .

删除内表行

delete <itab> [INDEX idx] .

-- 带表头行和不带表头行语法一致 。

内表循环

Loop at <itab> into <wa> .

<statement block>

endloop. “ 带表头行的内表循环操作

Loop at <itab> .

<statement block>

endloop. “ 不带表头行内表操作

-- 循环体的MODIFY,DELETE等语句不必指定INDEX项,系统默认处理当前行 .

-- 如果不需要读取所有的内表行,可以使用WHERE选项进行限制

-- LOOP AT <itab> [WHERE <conditions>]

清空内表

clear <itab> . “清空不带表头行内表

clear<itab>[] . “清空带表头行内表

内表排序

SORT <itab> [ASCENDING | DESCENDING] [AS TEXT]

--ASCENDING和DESCENDING指定升序还是降序排列,如果不指定,缺省排序方式是升序

删除重复行

DELETE ADJACENT(紧接着的;相邻) DUPLICATES(副本) FROM <itab> [COMPARING <comp>].

-- 删除重复行之前须对内表进行排序

将内表中部分或全部的数据行整体插入另一内表

INSERT LINES OF <itab1> [FROM n1] [TO n2] INTO [TABLE] <itab2> [INDEX <idx>].

-- insert lines of itab1 from 1 to 100 into itab2 . “ 将内表1前100行数据附加到内表2 .

-- 两个内表必须具有相同的或可转换的行结构

将内表中部分或全部的数据行整体填充到另一内表

APPEND LINES OF <itab1> [FROM n1] [TO n2] TO <itab2>.

按照条件或者索引删除一组选定行

DELETE <itab> [FROM n1] [TO n2] [WHERE <condition>].

-- delete itab1 from 1 to 100 where age >30 . "删除内表前100行中年龄大于30 的记录 。

整体复制内表,目标内表原有内容被覆盖

MOVE <itab1> TO <itab2> 不带表头行的内表之间进行复制

MOVE <itab1>[] TO <itab2>[]. 带表头行的内表之间进行复制

MOVE <itab1> TO <itab2>[]. 不带表头行的内表复制到带表头行的内表

MOVE-CORRESPONDING <itab1> TO <itab2> 复制内表1中与内表2具有相同结构的字段进行复制,同样适用于工作区

EX.

  1. 构造一个内表BOOK,字段有BOOKNO,BOOKNAME,ZUOYE,PRICE.
  2. 输入几组数据:

BOOKNO

BOOKNAME

ZUOYE

PRICE

1

TEST

MARK

55

2

ERRO

WRITE

43

3

PRO

BACKER

67

4

中国历史

QINCHAO

88

    3、插入一个新的数据在第三行,每一列数据分别是 ‘5’,’insert’,’insert’,’36’

    4、删除第4行数据

    5、把数据复制给一个新的内表BOOK1

    6、按照价格排序BOOK

    7、修改第2条数据,把PRICE改为15.

DATA:BEGIN OF BOOK OCCURS  ,
BOOKNO() TYPE C,
BOOKNAME() TYPE C,
ZUOYE() TYPE C,
PRICE() TYPE N,
END OF BOOK. BOOK-BOOKNO = ''.
BOOK-BOOKNAME = 'TEST'.
BOOK-ZUOYE = 'MARK'.
BOOK-PRICE = ''.
APPEND BOOK.
BOOK-BOOKNO = ''.
BOOK-BOOKNAME = 'ERROR'.
BOOK-ZUOYE = 'WRITE'.
BOOK-PRICE = ''.
APPEND BOOK.
BOOK-BOOKNO = ''.
BOOK-BOOKNAME = 'PRO'.
BOOK-ZUOYE = 'BAKER'.
BOOK-PRICE = ''.
APPEND BOOK.
BOOK-BOOKNO = ''.
BOOK-BOOKNAME = '中国历史'.
BOOK-ZUOYE = 'QINCHAO'.
BOOK-PRICE = ''.
APPEND BOOK.
LOOP AT BOOK.
WRITE:/ BOOK.
ENDLOOP.
WRITE: SY-ULINE.
BOOK-BOOKNO = ''.
BOOK-BOOKNAME = 'insert'.
BOOK-ZUOYE = 'insert'.
BOOK-PRICE = ''.
INSERT BOOK INDEX .
LOOP AT BOOK.
WRITE:/ BOOK.
ENDLOOP.
WRITE:SY-ULINE.
DELETE BOOK INDEX .
LOOP AT BOOK.
WRITE:/ BOOK.
ENDLOOP.
WRITE:SY-ULINE.
DATA:BOOK1 LIKE TABLE OF BOOK WITH HEADER LINE.
MOVE BOOK[] TO BOOK1[].
LOOP AT BOOK1.
WRITE:/ BOOK1.
ENDLOOP.
WRITE:SY-ULINE.
clear book1.
book1-PRICE = ''.
modify BOOK1 INDEX TRANSPORTING price.
LOOP AT BOOK1.
WRITE:/ BOOK1.
ENDLOOP.
WRITE:sy-uline.
sort book1 by price .
LOOP AT BOOK1.
WRITE:/ BOOK1.
ENDLOOP.

Abap内表-LMLPHP

05-08 08:45