选择屏幕 子屏幕

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

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