选择屏幕 子屏幕

*----------------------------------------------------------------------*

* Selection-Screen

*----------------------------------------------------------------------*

selection-screen: begin of tabbed block tab for 11 lines,

tab (20) button1 user-command push1,

tab (20) button2 user-command push2,

end of block tab.

selection-screen begin of screen 1001 as subscreen.

selection-screen begin of block bl1 with frame title text-t01.

parameters : p_file like rlgrap-filename." OBLIGATORY .

* p_mode TYPE ctu_mode OBLIGATORY DEFAULT 'N'.

selection-screen end of block bl1.

selection-screen end of screen 1001.

selection-screen begin of screen 1002 as subscreen.

selection-screen begin of block bl2 with frame title text-t01.

parameters : s_vrsio like s511-vrsio obligatory .

select-options : s_date for s511-spmon obligatory,

s_vkorg for s511-vkorg obligatory default '2230',

s_vtweg for s511-vtweg,

s_spart for s511-spart,

s_pvrtnr for s511-pvrtnr,

s_pkunag for s511-pkunag,

s_werks for s511-werks,

s_mvgr1 for s511-mvgr1,

s_matnr for s511-matnr,

s_sptag for s511-sptag.

selection-screen end of block bl2.

selection-screen end of screen 1002.

form initialize_set .

data : p_date(6) type c,

e_date(6) type c.

if tab is initial.

button1 = text-t01.

button2 = text-t02.

tab-prog = sy-repid.

tab-dynnr = 1001.

endif.

at selection-screen.

case sy-ucomm.

* CONTORL TABSTRIP

when 'PUSH1'.

tab-dynnr = 1001.

when 'PUSH2'.

tab-dynnr = 1002.

endcase.