转帖自:http://blog.csdn.net/animalbe/article/details/5514490
用自定义关键字读取单行
要从有自定义关键字的内表中读取单行,请使用READ语句的WITH KEY选项,用法如下:
语法
READ TABLE <itab> [INTO <wa>] WITH KEY <key> [BINARY SEARCH].
用 INTO 选项可以指定目标区域 。如果表格有表头行,则可以忽略 INTO 选项。这样,表格工作区域就成了目标区域。
系统读取 <itab> 中匹配 <key> 中所定义的关键字的第一个条目。关于二分法搜索选项的详细信息,参见二分法搜索。
如果找到有适当关键字的条目,则将系统字段 SY-SUBRC设置为0,并且SY-TABIX包含该行的索引。否则,将 SY-SUBRC设置为非0值 。
如下所述,可以定义多个关键字 <key>:
定义一系列关键字段
要定义自己的一系列关 键字段,请使用 WITH KEY 选项,用法如下:
语法
....WITH KEY <k1> = <f1> ... <kn> = <fn> ...
自定义关键字包含表格组件 <k1>...<kn>。字段 <f1>...<fn> 是关键字段的内容必须匹配的值。
如果 <fi> 的数据类型与数据类型 <ki> 不兼容,则 <fi> 转换为类型 <ki>。
可以用 (<ni>) 代替 <ki> 来实时设置关键字段。关键字段是字段 <ni> 的内容。如果在运行时 <ni> 为空,则系统忽略该关键字段。如果 <ni> 包含无效的组件名称,则发生实时错误。
用户可以为任何在关键字中使用的组件指定偏移量和长度(参见指定数据对象的偏移量)。
将整行定义为关键字
通过使用 WITH KEY 选项可将内表整行定义为其关键字 ,如下所示 :
语法
....WITH KEY = <value> ...
如果 <value> 的数据类型与表格行的数据类型不兼容,则将 <value> 转换为表格 行的数据类 型。
对于此类关键字,也可以选择由某个基本数据类型或内表直接定义的,而不是由 段串直接定义的特定内表行。
将行首定义为关键字
要将内表的行首定义为关键字,请使用 WITH KEY 选项,用法如下:
语法
....WITH KEY <k> ...
系统将(左 对齐)的行首与 <k> 进行比较。 <k> 不能包含内表或包含内表的结构。与上面两个选项不同之处在于用 <k> 的数据类型进行比较。
示例:
DATA: BEGIN OF LINE,
COL1 TYPE C,
COL2 TYPE P DECIMALS 5,
COL3 TYPE I,
COL4 TYPE I,
END OF LINE.
DATA ITAB LIKE LINE OCCURS 10.
DO 10 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SQRT( SY-INDEX ).
LINE-COL3 = SY-INDEX ** 2.
LINE-COL4 = SY-INDEX ** 3.
APPEND LINE TO ITAB.
ENDDO.
READ TABLE ITAB INTO LINE WITH KEY COL3 = 9 COL4 = 36.
WRITE: / SY-SUBRC, SY-TABIX.
READ TABLE ITAB INTO LINE WITH KEY COL3 = 9 COL4 = 27.
WRITE: / SY-SUBRC, SY-TABIX.
READ TABLE ITAB INTO LINE WITH KEY '2'.
WRITE: / SY-SUBRC, SY-TABIX.
其输出为:
4 0
0 3
0 2
在此,创建包含四列的内表。对表格的10行进行填充之后,用自定义关键字读取单行。有关键字段 COL3、COL4 的自定义序列的第一个 READ 语句失败,第二个 READ 语句找到索引为 3 的行。第三 个 READ 语句搜索以 “2”开始的表格行并找到索引为 2的行。下图显示主要步骤:
示例:
DATA ITAB TYPE I OCCURS 10,
DATA SQUARE TYPE I.
DO 30 TIMES.
SQUARE = SY-INDEX ** 2.
APPEND SQUARE TO ITAB.
ENDDO.
READ TABLE ITAB INTO SQUARE WITH KEY = 25.
WRITE: SY-SUBRC, SY-TABIX.
其输出为:
0 5
在此创建包含基本类型 I 行的内表。 填充完表格之后,读取值为 25 且索引为 5 的行。
二分法搜索
用关键字读取单行时,可以执行二分法搜索以代替标准顺序搜索。为此,请使用READ语句的二分法搜索选项。
语法
READ TABLE <itab> ..... BINARY SEARCH.
如果使用二分法搜索选项,则必须按关键字 中指定的次 序对内表进 行排序。
如果系统找 到匹配指定 关键字的多 行,则读取 索引最低的 行。
二分法搜索 比线性搜索 要快。因此 ,应尽可能 将内表排序 并且使用 二分法搜索 选项。
指定数据对象的偏移量
在 ABAP/4 中,可以在 所有处理数 据对象的语句中指定基本数据对象的偏移量值 。
为此,请在语句中指定 数据对象名称,如下所 示:
语法
<f>[+<o>][(<l>)]
对字段 <f> 中从 <o>+1 开始且长度 <l> 的部分执行该语句的操作。
如果未指定长度 <l>,则 对该字段 <o> 和结尾之间的所有位置进行处理。