如何在screen中加入select-options screen

2007年01月12日 10:59:00

1 、定义select-options screen 和事件处理于一个单元
data: number(4) type n value '1100'.
selection-screen begin of screen 1100 as subscreen.
selection-screen begin of block block_0 with frame title text-000.
selection-screen begin of line.
selection-screen comment 1(8) text-002.
selection-screen position pos_low.
parameters: p_date1 type dats default sy-datum obligatory.
selection-screen comment pos_high(8) text-003.
parameters: p_date2 type dats default sy-datum obligatory.
selection-screen end of line.
select-options s_pq for zjw_bs_jg-zjgid_c no intervals .
select-options s_psz for zjw_bs_jg-zjgid_c no intervals.
select-options s_tjid for zjw_xq_swtj-zswtjid_c.
parameters: p_con radiobutton group sc2.
parameters: p_fy radiobutton group sc2 default 'X'.
parameters: p_blank radiobutton group sc2.
selection-screen end of block block_0.
selection-screen end of screen 1100.
at selection-screen on value-request for s_psz-low.
perform help_psz using 'low' '1100'.

2、定义屏幕100
在屏幕100加入一个子屏幕sub_screen

3、定义屏幕100 BPO
PROCESS BEFORE OUTPUT.
MODULE show_logonscreen. " 调用登录屏幕
MODULE grid_list_init. " 屏幕初始化
MODULE status_0100.
CALL SUBSCREEN sub_screen INCLUDING sy-repid number.

4定义屏幕100 PAI
PROCESS AFTER INPUT.
MODULE exec_exit_100 AT EXIT-COMMAND.
MODULE exec_before_100.
CALL SUBSCREEN sub_screen.

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1480903