ABAP--如何使选择屏幕的初始化事件再次触发

最近一个同事有一个比较变态的用户需求,他希望每次回到选择屏幕时，选择参数是有程序控制输入的，用户客户端的输入清除。对此需求有两种处理方法：
一、在AT SELECTION-SCREEN中写赋值语句，这种方法你可能需要中间变量缓存选择条件用于查询，代码样例：
REPORT demo_write_statement.
tables vbak.
DATA: NAME(20) VALUE 'SOURCE',
SOURCE(10) VALUE 'abcd',
TARGET(10).

select-options k_kunnr for vbak-kunnr.

data: is_parent type i value 0.

INITIALIZATION.
× refresh k_kunnr.
AT SELECTION-SCREEN.
refresh k_kunnr.
MOVE: 'I' TO k_kunnr-SIGN,
'EQ' TO k_kunnr-OPTION,
'9999' TO k_kunnr-LOW.
APPEND k_kunnr.
*SYSTEM-CALL INITIALIZATION.

二、在Initialization事件中写赋值代码
在Initialization事件中写赋值代码，默认情况只有第一次会影响输入屏幕，以后将失去作用。为了使该代码起作用你必须在选择屏幕的其他事件中执行SYSTEM-CALL INITIALIZATION.这个语句。代码样例：
REPORT demo_write_statement.
tables: spfli.
DATA: tab_spfli TYPE TABLE OF spfli,
tab_sflight TYPE SORTED TABLE OF sflight
WITH UNIQUE KEY table_line,
wa LIKE LINE OF tab_sflight.
select-options s_CARRID for spfli-CARRID.

INITIALIZATION.
refresh s_CARRID.
MOVE: 'I' TO s_CARRID-SIGN,
'EQ' TO s_CARRID-OPTION,
'AZ' TO s_CARRID-LOW.
APPEND k_kunnr.

AT SELECTION-SCREEN.
start-of-SELECTION.
SELECT carrid connid
INTO CORRESPONDING FIELDS OF TABLE tab_spfli
FROM spfli
WHERE CARRID in s_CARRID .

SYSTEM-CALL INITIALIZATION.
SELECT carrid connid fldate
INTO CORRESPONDING FIELDS OF TABLE tab_sflight
FROM sflight
FOR ALL ENTRIES IN tab_spfli
WHERE carrid = tab_spfli-carrid AND
connid = tab_spfli-connid.

LOOP AT tab_sflight INTO wa.

AT NEW connid.
WRITE: / wa-carrid, wa-connid.
ENDAT.

WRITE: / wa-fldate.

ENDLOOP.

相关连接：http://blog.csdn.net/CompassButton/archive/2006/08/18/1091626.aspx