How to create a selection screen with two tab strips

Question

Hi Experts,
I need to craete a selection screen '100' with two tab strips, in the 1st tab strip i need create some select options as subscreen and in other tabstrip i need to call the subscren '4000' of the program 'SAPLCTMS' . i need to call this screen as selection screen from the zprogram. please help me out.
Thanks in advance...
Sarath...J

Answer 1

Hi,
I have developed some code.
It just displays a table control and after entering the values init, upon hitting the return button, the values will be put into table itab. Have a look and make necessary changes as you see fit.
*& Report  ZMADHU_TBCNTL
REPORT  zmadhu_tbcntl.
DATA: BEGIN OF itab OCCURS 0,
     sel TYPE s_flag,
     matnr TYPE matnr,
     ersda TYPE ersda,
     ernam TYPE ernam,
  END OF itab.
CONTROLS: tab_cntl TYPE TABLEVIEW USING SCREEN 100.
*START-OF-SELECTION.
CALL SCREEN 100.
*END-OF-SELECTION.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'TABCNTL'.   "pf status
SET TITLEBAR 'xxx'.
  CASE sy-ucomm.
    WHEN 'BACK' OR
         'CANCEL' OR
         'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  ITAB_MODIFY  INPUT
      text
MODULE itab_modify INPUT.
  CASE sy-ucomm .
    WHEN ' '.        " When pressed enter
if itab-sel = 'X'.
      MODIFY itab INDEX tab_cntl-current_line.
      APPEND itab.    " append lines to internal table
      CLEAR itab.
*endif.
  ENDCASE.
ENDMODULE.                 " ITAB_MODIFY  INPUT
*Screen 100 flow logic.
PROCESS BEFORE OUTPUT.
  MODULE status_0100.
  LOOP AT itab WITH CONTROL tab_cntl CURSOR
  tab_cntl-current_line..
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE select_data.
  LOOP .
    CHAIN.
      FIELD itab-matnr.
      FIELD itab-ersda.
      FIELD itab-ernam.
      MODULE itab_modify ON CHAIN-REQUEST.
    ENDCHAIN.
  ENDLOOP.
MODULE USER_COMMAND_0100.
Hope it will helps to u.
Thanks,
Shankar