*----------------------------------------------------------------------*
* 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.
