ABAP Range Table：RANGES的使用

Range Table

1、Range Table 概述
RANGE TABLE为 SAP R/3系统标准内表的一种，结构与 Selection Table 一致，
由 SIGN, OPTION, LOW 和 HIGH字段组成；

可以通过 TYPE RANGE OF 语句或 RANGES 关键字定义 Range Table。
Range Table 常用于Open SQL语句中的条件筛选，可以优化取数效率与程序性能。
2.定义Range Table
可以通过两种方式定义：

TYPE RANGE OF…
DATA rtab {TYPE RANGE OF type}|{LIKE RANGE OF dobj}
[INITIAL SIZE n]
[WITH HEADER LINE]
[VALUE IS INITIAL]
[READ-ONLY].
RANGES
语法：
RANGES rtab FOR dobj [OCCURS n].

在程序上右击，点击“New ABAP Program“：
在这里插入图片描述
输入程序名和描述，点击下一步：

选择一个请求号，点击完成：
在这里插入图片描述

RANGE

使用... TYPE RANGE OF ...来定义一个range

DATA gt_marc TYPE TABLE OF marc.
DATA: gr_werks TYPE RANGE OF werks_d,"WERKS_D是一个数据元素gw_werks LIKE LINE OF gr_werks.
"这里需要注意，For后面字段必须为参考表的字段，不能使用 Data Element 来定义，否则系统会报出错误。
"宏定义
DEFINE set_range_werks.gw_werks-sign = 'I'.gw_werks-option = 'EQ'.gw_werks-low = &1.APPEND gw_werks TO gr_werks.
END-OF-DEFINITION.SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE gt_marc
WHERE werks IN gr_werksAND ekgrp IN gr_ekgrpAND beskz IN gr_beskz.

在这里插入图片描述

RANGES

使用RANGES来定义一个RANGE TABLE

*-------------------------------------------
* 通过 RANGES 定义
*-------------------------------------------TABLES:marc.
RANGES: gr_ekgrp FOR marc-ekgrp.
DATA gw_ekgrp LIKE LINE OF gr_ekgrp.
RANGES: gr_bwtty FOR marc-bwtty.
RANGES: gr_beskz FOR marc-beskz.

有时候我们取值不是一个定值，而是一个范围，这个时候就需要我们用ranges去定义：
在这里插入图片描述

运行结果：
在这里插入图片描述

RANGE的四个参数

SIGN

• SIGN 可以取以下两种值：INCLUED 和 EXCLUDE
sign = ‘I’ ‘I’ 表示包含（INCLUDE）：LOW 、HIGH的值
sign = ‘E’ ‘E’ 表示排除（EXCLUDE）：LOW、HIGH的值

OPTION

• OPTION 运算符可以取以下值：
‘EQ’ , ‘NE’ "等于，不等于 Equal ，Not Equal
‘GT’ , ‘LT’ "大于，小于 Greater Than ，Less Than
‘GE’ , ‘LE’ "大于等于，小于等于 Greater Than or Equal ，Less Than or Equal
‘CP’ , ‘NP’ “参考判断格式，如"ABC*”,NP排除参考格式
‘BT’ , ‘NB’ "位于，不位于，功能与 Between 和 Not Between 一样。

LOW

• LOW 是指当前值，或区间最小值（操作符是范围的话）
LOW：LOW的数据类型与数据库表的列类型相同，该表与选择标准相连接。
如果 Option 运算符不为 ‘BT’ 或 ‘NB’，LOW的内容定义单值选择，它与OPTION中的运算符相结合，为数据库选择指定了条件。
如果 Option 运算符为 ‘BT’ 或 ‘NB’，并且 HIGH 不为空， LOW和HIGH中的内容为间隔选择指定上界和下界，与OPTION中的运算符相结合，该间隔为数据库选择指定了条件。

HIGH

• HIGH 是指区间最大值
如果 Option 运算符为 ‘BT’ 或 ‘NB’，HIGH 的值才会生效，运算符不是Between 和 Not Between 时，high有值也不会参与计算

s_KVGR1-sign = 'I'.
s_KVGR1-option = 'EQ'.   "包括 等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].   "输出结果003s_KVGR1-sign = 'E'.
s_KVGR1-option = 'EQ'.   "排除 等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果除003外所有s_KVGR1-sign = 'I'.
s_KVGR1-option = 'NE'.   "包括 不等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果除003外所有s_KVGR1-sign = 'E'.
s_KVGR1-option = 'NE'.  "排除 不等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].   "输出结果003s_KVGR1-sign = 'E'.
s_KVGR1-option = 'GT'.  "排除 大于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果001、003  2条记录（应该是3条，数据表没有002这条记录）s_KVGR1-sign = 'E'.
s_KVGR1-option = 'LT'.   "排除 小于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].   "输出结果003、004……  等21条记录s_KVGR1-sign = 'E'.
s_KVGR1-option = 'GE'.  "排除 大于等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果001  1条记录（应该是2条，数据表没有002这条记录）s_KVGR1-sign = 'E'.
s_KVGR1-option = 'LE'.   "排除 小于等于 003 的记录
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].   "输出结果004、005……  等20条记录"这两个测试不出来，每次出来都是全部或者空，先不管它们
"'CP' , 'NP'   "参考判断格式，如"ABC*",NP排除参考格式s_KVGR1-sign = 'I'.
s_KVGR1-option = 'BT'.   "包含 位于 003 到 007 的记录，闭区间
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果003、004……007  5条记录s_KVGR1-sign = 'E'.
s_KVGR1-option = 'BT'.  "排除 位于 003 到 007 的记录，闭区间
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].   "输出结果001、008、009……   等17条记录s_KVGR1-sign = 'I'.
s_KVGR1-option = 'NB'.   "包含 不位于 003 到 007 的记录，闭区间
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果001、008、009……   等17条记录s_KVGR1-sign = 'E'.
s_KVGR1-option = 'NB'.  "排除 不位于 003 到 007 的记录，闭区间
s_KVGR1-low = '003'.
s_KVGR1-high = '007'.
APPEND s_KVGR1 TO s_KVGR1[].  "输出结果003、004……007  5条记录SELECT * FROM tvv1t INTO CORRESPONDING FIELDS OF TABLEit_tvv1t WHERE spras = '1' AND kvgr1 IN s_KVGR1.

示例程序

TABLES:marc.
RANGES: gr_ekgrp FOR marc-ekgrp.
DATA gw_ekgrp LIKE LINE OF gr_ekgrp.
RANGES: gr_bwtty FOR marc-bwtty.
RANGES: gr_beskz FOR marc-beskz.gr_beskz-sign = 'E'. "在区间外
gr_beskz-option = 'BT'. "在什么之间
gr_beskz-low = 'F'.
gr_beskz-high = 'X'.
APPEND gr_beskz TO gr_beskz[].  "将数据插入gr_beskz[] SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE gt_marc
WHERE werks IN gr_werksAND ekgrp IN gr_ekgrpAND beskz IN gr_beskz.