*SUBMIT 传值(基本)
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr . "供应商
RANGES: r_ebeln FOR ekko-ebeln.
r_ebeln-sign = 'I'.
r_ebeln-option = 'EQ'.
r_ebeln-low = '123456789'.
APPEND r_ebeln.
CLEAR r_ebeln.
r_ebeln-sign = 'I'.
r_ebeln-option = 'BT'.
r_ebeln-low = '100000001'.
r_ebeln-high = '100000009'.
APPEND r_ebeln.
SUBMIT zmmfr012 "调用程序名
WITH p_werks = '2010' "parameters 用 = 传值
WITH s_lifnr IN s_lifnr "select options 用in传值,不能用=
WITH s_ebeln IN r_ebeln "select options 也可以用 ranges传值
VIA SELECTION-SCREEN "停留在选择界面
AND RETURN. "执行完毕后返回当前程序
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr . "供应商
RANGES: r_ebeln FOR ekko-ebeln.
r_ebeln-sign = 'I'.
r_ebeln-option = 'EQ'.
r_ebeln-low = '123456789'.
APPEND r_ebeln.
CLEAR r_ebeln.
r_ebeln-sign = 'I'.
r_ebeln-option = 'BT'.
r_ebeln-low = '100000001'.
r_ebeln-high = '100000009'.
APPEND r_ebeln.
SUBMIT zmmfr012 "调用程序名
WITH p_werks = '2010' "parameters 用 = 传值
WITH s_lifnr IN s_lifnr "select options 用in传值,不能用=
WITH s_ebeln IN r_ebeln "select options 也可以用 ranges传值
VIA SELECTION-SCREEN "停留在选择界面
AND RETURN. "执行完毕后返回当前程序