*测试clear ,REFRESH ,free,
DATA r_bukrs TYPE RANGE OF t001-bukrs . "不带工作区" 可用WITH HEADER LINE, 可在SE24类里定义
RANGES r_bukrs_wa FOR t001-bukrs."带工作区" 不可在SE24类里定义
r_bukrs = VALUE #( sign = 'I' option = 'EQ' ( low = '1000' ) ( low = '2000' ) ).
r_bukrs = VALUE #( sign = 'I' option = 'EQ' ( low = '2000' ) )."会覆盖上一句内容"
r_bukrs_wa = VALUE #( sign = 'I' option = 'EQ' low = '1000' ).
APPEND r_bukrs_wa.
r_bukrs_wa = VALUE #( sign = 'I' option = 'EQ' low = '2000' ).
APPEND r_bukrs_wa.
""初始状态
1.1
"内表不带工作区时,清除内表 / 带工作区时,清除工作区
CLEAR: r_bukrs,r_bukrs_wa.
1.2
"带[ ]内表时,清除内表"
CLEAR r_bukrs_wa[].
2.
"只清除内表,不清除工作区 ||
会清除已经使用的内存,不会清除分配的内存( 声明的内表,存在基础占用内存,不会被清除)"
REFRESH: r_bukrs,r_bukrs_wa.
3.
"只清除内表,不清除工作区 ||
会清除所有内存,为0 (已使用,已分配,以及声明内表占用内存)"
FREE: r_bukrs,r_bukrs_wa.