关键字RANGES创建一个结构为选择表并且带有工作区的内表。如果不指定OCCURS的值,那么初始内存n会自动的被设置为10。它在类中是不被允许使用的。TYPE|LIKE RANGE OF语句声明的RANGE表是不带工作区的。RANGES声明的内表通常是在SQL查询中使用。
基本语法:
RANGES rtab FOR dobj [OCCURS n].
它等价于下面的语序序列:
DATA: BEGIN OF rtab OCCURS {10|N},
SIGN TYPE C LENGTH 1,
OPTION TYPE C LENGTH 2,
LOW LIKE DOBJ,
HIGH LIKE DOBJ,
END OF rtab.
示例:
DEFINE INITIAL_RANGE_TAB. " 宏
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'. " Include 包含
R_MATNR-OPTION = 'EQ'. " Equal 等于
R_MATNR-LOW = &1.
APPEND R_MATNR.
END-OF-DEFINITION.
TABLES ZFIR001P.
RANGES R_MATNR FOR ZFIR001P-MATNR OCCURS 10. " 带工作区的RANGE表
" RANGE 表的初始化
INITIAL_RANGE_TAB 'BBAA00004'.
INITIAL_RANGE_TAB 'R0001AA0001'.
INITIAL_RANGE_TAB 'R000002087'.
SELECT MATNR,MAKTX,ZUTOT FROM ZFIR001P
INTO TABLE @DATA(GT_MATRN)
WHERE MATNR IN @R_MATNR
ORDER BY MATNR ASCENDING. " 根据RANGE表的物料号进行筛选