Tab strip - handling event of button on one of tabs

Question

Hallo,
I used wizard for creating tab strip. I put button on certain tab. I'd like to change screen of current tab after click on this button. I'm not interested in change whole screen, but screen of mentioned tab in tab strip (tab strip is always visible, only tab subscreen is changing).
Can anybody help me?
Best regards,
Josef Motl

Answer 1

Ok, I just tested it.  You can modify the subscreen by using the LOOP at SCREEN procedure in the PBO of the subscreen.  Look at the following example.  main screen is 100, the tabstrip subscreens are 101, 102, 103. I have one field PTEST1 on subscreen 101.  I am making it output.
report zrich_0002.
start-of-selection.
  call screen 100.
*&      Module  STATUS_0100  OUTPUT
*       text
module status_0100 output.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
endmodule.                
* FUNCTION CODES FOR TABSTRIP 'TAB1'
constants: begin of c_tab1,
             tab1 like sy-ucomm value 'TAB1_FC1',
             tab2 like sy-ucomm value 'TAB1_FC2',
             tab3 like sy-ucomm value 'TAB1_FC3',
           end of c_tab1.
* DATA FOR TABSTRIP 'TAB1'
controls:  tab1 type tabstrip.
data:      begin of g_tab1,
             subscreen   like sy-dynnr,
             prog        like sy-repid value 'ZRICH_0002',
             pressed_tab like sy-ucomm value c_tab1-tab1,
           end of g_tab1.
data:      ok_code like sy-ucomm.
* OUTPUT MODULE FOR TABSTRIP 'TAB1': SETS ACTIVE TAB
module tab1_active_tab_set output.
  tab1-activetab = g_tab1-pressed_tab.
  case g_tab1-pressed_tab.
    when c_tab1-tab1.
      g_tab1-subscreen = '0101'.
    when c_tab1-tab2.
      g_tab1-subscreen = '0102'.
    when c_tab1-tab3.
      g_tab1-subscreen = '0103'.
    when others.
*      DO NOTHING
  endcase.
endmodule.
* INPUT MODULE FOR TABSTRIP 'TAB1': GETS ACTIVE TAB
module tab1_active_tab_get input.
  ok_code = sy-ucomm.
  case ok_code.
    when c_tab1-tab1.
      g_tab1-pressed_tab = c_tab1-tab1.
    when c_tab1-tab2.
      g_tab1-pressed_tab = c_tab1-tab2.
    when c_tab1-tab3.
      g_tab1-pressed_tab = c_tab1-tab3.
    when others.
*      DO NOTHING
  endcase.
endmodule.
*&      Module  STATUS_0110  OUTPUT
*       text
module status_0110 output.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
<b>  loop at screen.
    if screen-name = 'PTEST1'.
      screen-input = '0'.
      modify screen.
    endif.
  endloop.</b>
endmodule.                
Regards,
Rich Heilman