RANGES 语句:用与选择表相同的结构创建内表,可使用RANGES语句,如下所示:
语法:RANGESFOR.
该语句创建选择表,该表参考数据库表的列或内部字段。选择表必须在程序中填充。不必在程序中再用TABLES语句声明数据库表。
RANGES语句是下列语句的短格式:
DATA:BEGINOFOCCURS10, SIGN(1), OPTION(2) LOWLIKE, HIGHLIKE,ENDOF.
用RANGES语句创建的选择表不是选择屏幕的一部分,它们在程序中不能用于数据传递,
该程序由下列语句启动:SUBMITWITHIN

.
表可以在调用程序中用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 typeTABLEOF TVV1T."数据表一共22条记录,kvgr1 为002 的记录已删除 s_KVGR1-sign ='I'. s_KVGR1-option ='EQ'."包括 等于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO s_KVGR1[]."输出结果003 s_KVGR1-sign ='E'. s_KVGR1-option ='EQ'."排除 等于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO s_KVGR1[]."输出结果除003外所有 s_KVGR1-sign ='I'. s_KVGR1-option ='NE'."包括 不等于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO s_KVGR1[]."输出结果除003外所有 s_KVGR1-sign ='E'. s_KVGR1-option ='NE'."排除 不等于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO s_KVGR1[]."输出结果003 s_KVGR1-sign ='E'. s_KVGR1-option ='GT'."排除 大于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO 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_KVGR1TO s_KVGR1[]."输出结果003、004…… 等21条记录 s_KVGR1-sign ='E'. s_KVGR1-option ='GE'."排除 大于等于 003 的记录 s_KVGR1-low ='003'. s_KVGR1-high ='007'.APPEND s_KVGR1TO 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_KVGR1TO 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_KVGR1TO 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_KVGR1TO 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_KVGR1TO 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_KVGR1TO s_KVGR1[]."输出结果003、004……007 5条记录 select* from TVV1T intoCORRESPONDINGFIELDSOFTABLE it_tvv1t where SPRAS='1'and KVGR1 in s_KVGR1.