ABAP RANGE

RANGES 语句：用与选择表相同的结构创建内表，可使用RANGES语句，如下所示：

语法：RANGES <seltab> FOR <f>.     

该语句创建选择表<seltab>，该表参考数据库表的列<f>或内部字段<f>。选择表<seltab>必须在程序中填充。不必在程序中再用TABLES语句声明数据库表。

RANGES语句是下列语句的短格式：

DATA: BEGIN OF <seltab> OCCURS 10,
         SIGN(1),
         OPTION(2)
         LOW  LIKE <f>,
         HIGH LIKE <f>,
      END OF <seltab>.

用RANGES语句创建的选择表不是选择屏幕的一部分，它们在程序<prog>中不能用于数据传递，
该程序由下列语句启动：SUBMIT <prog> WITH <seltab> IN <table>.
　　　　　　　　　　 表<table>可以在调用程序中用RANGES创建。

用RANGES创建的内表与选择表结构相同，但功能不同。

***注意：sing和option的值必须是大写
下面介绍以下range中四个参数的具体取值：
　　SIGN 可以取以下两种值：INCLUED 和 EXCLUDE
　　　　sign = 'I'       'I'  表示包含：LOW 、HIGH的值
　　　　sign = 'E'     'E' 表示排除：LOW、HIGH的值

　　　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的数据类型与数据库表的列类型相同，该表与选择标准相连接。

　　　　　　如果 Option 运算符不为 'BT' 或 'NB'，LOW的内容定义单值选择，它与OPTION中的运算符相结合，为数据库选择指定了条件。

　　　　　　如果 Option 运算符为 'BT' 或 'NB'，并且 HIGH 不为空， LOW和HIGH中的内容为间隔选择指定上界和下界，与OPTION中的运算符相结合，该间隔为数据库选择指定了条件。

　　　HIGH 是指区间最大值

　　　　　如果 Option 运算符为 'BT' 或 'NB'，HIGH 的值才会生效，运算符不是Between 和 Not Between 时，high有值也不会参与计算

示例：

ranges: s_KVGR1 for tvv1t-KVGR1.
data: it_tvv1t type TABLE OF TVV1T.  "数据表一共22条记录，kvgr1 为 002 的记录已删除

    s_KVGR1-sign = 'I'.
    s_KVGR1-option = 'EQ'.   "包括 等于 003 的记录
    s_KVGR1-low = '003'.
    s_KVGR1-high = '007'.
    APPEND s_KVGR1 TO s_KVGR1[].   "输出结果003

    s_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[].   "输出结果003

    s_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 TABLE 
        it_tvv1t where SPRAS = '1' and KVGR1 in s_KVGR1.

 

原创 ：不渡之人