Doubt in tabstrip creation.

Question

hi friends,
while creating tabstrip,there occurs a problem.so if possible send me the procedure how to poerform tabstrip function.please send me the synyax also.
thanks
revathy.

Answer 1

Hi,
Pls find the below code..
*&  Include           MZDS_CRTSCREENI01
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
  WHEN 'BACK'.
    LEAVE TO SCREEN 0.
  WHEN 'SPFLI' OR 'SBOOK'.
     TAB1-ACTIVETAB = OK_CODE.
  WHEN 'EXIT'.
    LEAVE PROGRAM.
  WHEN 'CANCEL'.
    LEAVE TO SCREEN 100.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&  Include           MZDS_CRTSCREENO01
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'BASE'.
  SET TITLEBAR 'TITLE'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  CLEAR_OKCODE  OUTPUT
*       text
MODULE CLEAR_OKCODE OUTPUT.
CLEAR OK_CODE.
ENDMODULE.                 " CLEAR_OKCODE  OUTPUT
MODULE DISPLAY_DATA OUTPUT.
CASE 'X' .
   WHEN RBT-SPFLI.
    SELECT CITYFROM AIRPFROM CITYTO AIRPTO FROM SPFLI
    INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    WHERE CARRID = SPFLI-CARRID
    AND CONNID = SPFLI-CONNID.
FLDATE = ' '.
BOOKNO = ' '.
CUSTNO = ' '.
LOOP AT IT_SPFLI.
   DEP_CITY = IT_SPFLI-CITYFROM.
   DEP_AIR = IT_SPFLI-AIRPFROM.
   DES_CITY = IT_SPFLI-CITYTO.
   DES_AIR = IT_SPFLI-AIRPTO.
ENDLOOP.
  WHEN RBT-SBOOK.
    SELECT SINGLE FLDATE BOOKID CUSTOMID FROM SBOOK
    INTO CORRESPONDING FIELDS OF IT_SBOOK
    WHERE CARRID = SPFLI-CARRID
    AND CONNID = SPFLI-CONNID.
   FLDATE = IT_SBOOK-FLDATE.
   BOOKNO = IT_SBOOK-BOOKID.
   CUSTNO = IT_SBOOK-CUSTOMID.
DEP_CITY = ' '.
DEP_AIR = ' '.
DES_CITY = ' '.
DES_AIR = ' '.
ENDCASE.
ENDMODULE.
*&      Module  CALL_DYNNR  OUTPUT
*       text
MODULE CALL_DYNNR OUTPUT.
CASE TAB1-ACTIVETAB.
  WHEN 'SPFLI'.
    DYNNR = 102.
  WHEN 'SBOOK'.
    DYNNR = 103.
  WHEN OTHERS.
    TAB1-ACTIVETAB = 'SPFLI'.
    DYNNR = 102.
ENDCASE.
ENDMODULE.                 " CALL_DYNNR  OUTPUT
*&      Module  DISPLAY_SFLIGHT  OUTPUT
*       text
MODULE DISPLAY_SFLIGHT OUTPUT.
SELECT CITYFROM AIRPFROM CITYTO AIRPTO FROM SPFLI
    INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    WHERE CARRID = SPFLI-CARRID
    AND CONNID = SPFLI-CONNID.
CITY_FROM = IT_SPFLI-CITYFROM.
AIRP_FROM = IT_SPFLI-AIRPFROM.
CITY_TO = IT_SPFLI-CITYTO.
AIRP_TO = IT_SPFLI-AIRPTO.
ENDMODULE.                 " DISPLAY_SFLIGHT  OUTPUT
*&      Module  DISPLAY_SBOOK  OUTPUT
*       text
MODULE DISPLAY_SBOOK OUTPUT.
SELECT SINGLE FLDATE BOOKID CUSTOMID FROM SBOOK
    INTO CORRESPONDING FIELDS OF IT_SBOOK
    WHERE CARRID = SPFLI-CARRID
    AND CONNID = SPFLI-CONNID.
FL_DATE = IT_SBOOK-FLDATE.
BOOKID = IT_SBOOK-BOOKID.
CUSTOMID = IT_SBOOK-CUSTOMID.
ENDMODULE.                 " DISPLAY_SBOOK  OUTPUT
*& Include MZDS_CRTSCREENTOP                                 Module Pool      SAPMZDS_CRTSCREEN
PROGRAM  SAPMZDS_CRTSCREEN.
TABLES: SPFLI,SBOOK.
DATA: OK_CODE TYPE SYUCOMM.
CONTROLS TAB1 TYPE TABSTRIP.
DATA: BEGIN OF IT_SPFLI OCCURS 0,
      CITYFROM TYPE SPFLI-CITYFROM,
      AIRPFROM TYPE SPFLI-AIRPFROM,
      CITYTO TYPE SPFLI-CITYTO,
      AIRPTO TYPE SPFLI-AIRPTO,
  END OF IT_SPFLI.
DATA: IT_SBOOK TYPE SBOOK.
DATA: DYNNR TYPE SY-DYNNR.
DATA: DEP_CITY(20) TYPE C,
      DEP_AIR(20) TYPE C,
      DES_CITY(20) TYPE C,
      DES_AIR(20) TYPE C.
DATA: FLDATE(20) TYPE C,
      BOOKNO(20) TYPE C,
      CUSTNO(20) TYPE C.
DATA:CITY_FROM(20) TYPE C,
     AIRP_FROM(20) TYPE C,
     CITY_TO(20) TYPE C,
     AIRP_TO(20) TYPE C.
DATA: FL_DATE(20) TYPE C,
      BOOKID(20) TYPE C,
      CUSTOMID(20) TYPE C.
DATA: BEGIN OF RBT,
      SPFLI VALUE 'X',
      SBOOK,
      END OF RBT.
*& Module Pool       SAPMZDS_CRTSCREEN
INCLUDE MZDS_SUBSCREENTOP.
*INCLUDE MZDS_IOCHKRBTTOP.
INCLUDE MZDS_SUBSCREENO01.
*INCLUDE MZDS_IOCHKRBTO01.
INCLUDE MZDS_SUBSCREENI01.
*INCLUDE MZDS_IOCHKRBTI01.
INCLUDE MZDS_SUBSCREENF01.
*GUI Texts
* TITLE --> MODULE POOL PROGRAM BY DS
HTH
Regards,
Dhruv Shah