GIVE ME A SAMPLE PGM

[Former Member]

HI ALL

GIVE ME A SAMPLE PGM ON TABSTRIP

[Former Member]

demo_dynpro_tabstrip_local

demo_dynpro_tabstrip_server

demo_sel_screen_in_tabstrip

demo_sel_screen_with_tabstrip

[Former Member]

Hello check out these,

refer this code to create your program.

<b>Please reward all usefull answers</b>

Regards,

Rakesh.

ALL PBOs

MODULE status_9100 OUTPUT.
  SET PF-STATUS '100'.
  SET TITLEBAR '100'.
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                        = 'ICON_RED_LIGHT'
*     TEXT                        = ' '
*     INFO                        = ' '
*     ADD_STDINF                  = 'X'
   IMPORTING
     RESULT                      = ICON1
*   EXCEPTIONS
*     ICON_NOT_FOUND              = 1
*     OUTPUTFIELD_TOO_SHORT       = 2
*     OTHERS                      = 3
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDMODULE.                 " STATUS_9100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9200 OUTPUT.
  SET PF-STATUS '200'.
  SET TITLEBAR '200' WITH zsrsflight-carrid zsrsflight-connid zsrsflight-fldate.

ENDMODULE.                 " STATUS_9200  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9300  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9300 OUTPUT.
  SET PF-STATUS '300'.
  SET TITLEBAR '300' WITH zsrsflight-carrid zsrsflight-connid zsrsflight-fldate.

ENDMODULE.                 " STATUS_9300  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  movedata  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE movedata OUTPUT.
  MOVE-CORRESPONDING wa_sbook1 TO zsrsbook1.
ENDMODULE.                 " movedata  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  change_tbctrl  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE change_tbctrl OUTPUT.
  LOOP AT SCREEN.
    CHECK screen-name = 'ZSRSBOOK1-CANCELLED'.
    CHECK ( NOT zsrsbook1-cancelled IS INITIAL ) .

    screen-input = 0.
    MODIFY SCREEN.
  ENDLOOP.


ENDMODULE.                 " change_tbctrl  OUTPUT







































ALL PAIs

*----------------------------------------------------------------------*
***INCLUDE MZSR_03_I01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9100 INPUT.
  CASE ok_code.

    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.

      CLEAR ok_code.
      LEAVE PROGRAM.

    WHEN 'CRT'.              "Selecting all the details for display only.

      IF zsrsflight-carrid IS INITIAL OR
           zsrsflight-connid IS INITIAL OR
           zsrsflight-fldate IS INITIAL.
        MESSAGE i014.
      ELSE.
        SELECT SINGLE * FROM zsrsflight WHERE carrid = zsrsflight-carrid
                                        AND   connid = zsrsflight-connid
                                        AND   fldate = zsrsflight-fldate.

        SELECT SINGLE * FROM zsrspfli WHERE carrid = zsrsflight-carrid
                                        AND connid = zsrsflight-connid.


*      SELECT single forcuram into zsrsbook1-forcuram FROM zsrsbook1
*                                     WHERE  carrid = zsrsflight-carrid
*                                      AND   connid = zsrsflight-connid
*                                      AND   fldate = zsrsflight-fldate.

        zsrsbook1-forcuram  =  zsrsflight-price.
        zsrsbook1-forcurkey =  zsrsflight-currency.

        zsrsbook1-order_date = sy-datum. "Assigning todays date.

        arg1 = 'Booking'.
        CLEAR ok_code.
        LEAVE TO SCREEN '9200'.
      ENDIF.

    WHEN 'CAN'.

      IF zsrsflight-carrid IS INITIAL OR
         zsrsflight-connid IS INITIAL OR
         zsrsflight-fldate IS INITIAL.
        MESSAGE i014.
      ELSE.

        SELECT SINGLE * FROM zsrsflight WHERE carrid = zsrsflight-carrid
                                         AND   connid = zsrsflight-connid
                                         AND   fldate = zsrsflight-fldate.

        SELECT SINGLE * FROM zsrsbook1   WHERE carrid = zsrsflight-carrid
                                         AND   connid = zsrsflight-connid
                                         AND   fldate = zsrsflight-fldate.

        SELECT SINGLE * FROM zsrspfli WHERE carrid = zsrsflight-carrid
                                        AND connid = zsrsflight-connid.

*      inserting to itab for table control display
        SELECT * FROM zsrsbook1 INTO TABLE it_sbook
                       WHERE carrid = zsrsflight-carrid
                       AND   connid = zsrsflight-connid
                       AND   fldate = zsrsflight-fldate.

        DESCRIBE TABLE it_sbook LINES cn_tbctrl1-lines.

        CLEAR ok_code.
        LEAVE TO SCREEN '9300'.
      ENDIF.

  ENDCASE.

ENDMODULE.                    "user_command_9100 INPUT
*&---------------------------------------------------------------------*
*&      Module  user_command_9200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9200 INPUT.

*  ok_code = sy-ucomm.



  CASE ok_code.

    WHEN 'BACK'.
      CLEAR ok_code.
      LEAVE TO SCREEN '9100'.

    WHEN 'TB1'.

      cn_tbstr1-activetab = 'TB1'.
      wa_screen = '9201'.
      CLEAR ok_code.

    WHEN 'TB2'.

      cn_tbstr1-activetab = 'TB2'.
      wa_screen = '9202'.
      CLEAR ok_code.

    WHEN 'TB3'.

      cn_tbstr1-activetab = 'TB3'.
      wa_screen = '9203'.
      CLEAR ok_code.

  ENDCASE.
ENDMODULE.                 " user_command_9200  INPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9201  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9201 INPUT.


  CASE ok_code.

    WHEN 'SAVE'.
      IF zsrsbook1-bookid IS INITIAL.
        MESSAGE i013.

      ELSE.

        SELECT bookid FROM zsrsbook1 INTO TABLE it_zsrsbook1
                                      WHERE carrid = zsrsflight-carrid
                                      AND   connid = zsrsflight-connid
                                      AND   fldate = zsrsflight-fldate.

        SEARCH it_zsrsbook1 FOR zsrsbook1-bookid. "Check for existence of bookid.

        IF sy-subrc EQ 0.
          MESSAGE i007.

        ELSE.
          PERFORM save_booking.              "Saving the booking

        ENDIF.

*      updating flights tab in the screen
        SELECT SINGLE * FROM zsrsflight WHERE carrid = zsrsflight-carrid
                                        AND   connid = zsrsflight-connid
                                        AND   fldate = zsrsflight-fldate.
        DESCRIBE TABLE it_sbook LINES cn_tbctrl1-lines.
        CLEAR ok_code.

      ENDIF.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9201  INPUT

*&---------------------------------------------------------------------*
*&      Form  save_booking
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM save_booking .

  zsrsbook1-carrid = zsrsflight-carrid.
  zsrsbook1-connid = zsrsflight-connid.
  zsrsbook1-fldate = zsrsflight-fldate.

  INSERT INTO zsrsbook1 VALUES zsrsbook1.

  IF sy-subrc EQ 0.
    UPDATE zsrsflight SET seatsocc = seatsocc + 1
                      WHERE carrid = zsrsflight-carrid
                      AND   connid = zsrsflight-connid
                      AND   fldate = zsrsflight-fldate.


    IF sy-subrc NE 0 OR zsrsflight-seatsmax LE zsrsflight-seatsocc.
      MESSAGE a010.
    ELSE.
      MESSAGE s008.
    ENDIF.

  ELSE.
    MESSAGE i009.
  ENDIF.

ENDFORM.                    " save_booking
*&---------------------------------------------------------------------*
*&      Module  user_command_9300  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9300 INPUT.
*  ok_code = sy-ucomm.

  CASE ok_code.

    WHEN 'BACK'.

      CLEAR ok_code.
      LEAVE TO SCREEN '9100'.

    WHEN 'SAVE'.            "Cancellation
      PERFORM save_cancellation.

*      updating flights tab in the screen
      SELECT SINGLE * FROM zsrsflight WHERE carrid = zsrsflight-carrid
                                      AND   connid = zsrsflight-connid
                                      AND   fldate = zsrsflight-fldate.
      CLEAR ok_code.

*    WHEN OTHERS.
*      LEAVE TO SCREEN '9300'.

  ENDCASE.

ENDMODULE.                 " user_command_9300  INPUT
*&---------------------------------------------------------------------*
*&      Module  modify_it_sbook  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE modify_it_sbook INPUT.
  MOVE-CORRESPONDING zsrsbook1 TO wa_sbook.
  MODIFY it_sbook FROM wa_sbook
                  INDEX cn_tbctrl1-current_line.
ENDMODULE.                 " modify_it_sbook  INPUT
*&---------------------------------------------------------------------*
*&      Form  save_cancellation
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM save_cancellation .
  UPDATE zsrsbook1 FROM TABLE it_sbook.
  IF sy-subrc EQ 0 AND zsrsflight-seatsocc GT 0.
    UPDATE zsrsflight SET seatsocc = seatsocc - 1.
    IF sy-subrc EQ 0.
      CLEAR ok_code.
      MESSAGE s011.
    ELSE.
      MESSAGE a012.
    ENDIF.
  ELSE.
    MESSAGE a012.
  ENDIF.

ENDFORM.                    " save_cancellation

<b></b>

[Former Member]

DATA: BEGIN OF FS_SPFLI,

MANDT TYPE SPFLI-MANDT,

CARRID TYPE SPFLI-CARRID,

CONNID TYPE SPFLI-CONNID,

COUNTRYFR TYPE SPFLI-COUNTRYFR,

END OF FS_SPFLI.

DATA: BEGIN OF FS_SFLIGHT,

MANDT TYPE SFLIGHT-MANDT,

CARRID TYPE SFLIGHT-CARRID,

CONNID TYPE SFLIGHT-CONNID,

FLDATE TYPE SFLIGHT-FLDATE,

END OF FS_SFLIGHT.

data:

t_spfli like standard table of fs_spfli,

t_sflight like standard table of fs_sflight,

ok_code type sy-ucomm.

controls:

c_tabstrip type tabstrip.

select *

from spfli

into corresponding fields of table t_spfli.

select *

from sflight

into corresponding fields of table t_sflight.

call screen 101.

&----

---

*& Module STATUS_0101 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0101 OUTPUT.

SET PF-STATUS 'TABSTRIP'.

SET TITLEBAR 'TABSTRIP'.

ENDMODULE. " STATUS_0101 OUTPUT

&----

---

*& Module USER_COMMAND_0101 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0101 INPUT.

case ok_code.

when 'BACK' or 'EXIT'.

leave program.

clear ok_code.

when 'SPFLI'.

leave to list-processing.

loop at t_spfli into fs_spfli.

write:/

fs_spfli.

endloop.

clear ok_code.

when 'SFLIGHT'.

leave to list-processing.

loop at t_sflight into fs_sflight.

write:/

fs_sflight.

endloop.

clear ok_code.

endcase.

ENDMODULE. " USER_COMMAND_0101 INPUT

Before you execute this piece of code, double click on 101(i.e., on CALL SCREEN 101)

write the below piece of code and execute...

PROCESS BEFORE OUTPUT.

MODULE STATUS_0101.

call subscreen spfli_ref1 including sy-repid '102'.

call subscreen sflight_ref1 including sy-repid '103'.

*

PROCESS AFTER INPUT.

call subscreen: spfli_ref1, sflight_ref1.

MODULE USER_COMMAND_0101.

Regards,

pavan

[Pawan_Kesari]

execute transaction BIBS... you can see all possible type of screen design..

[Former Member]

Hi

below see this sample program for "TABSTRIP".

DATA: A TYPE I,

B TYPE I,

RESULT TYPE I,

R1 VALUE 'X', R2, R3, R4.

CONTROLS: TAB1 TYPE TABSTRIP.

CALL SCREEN 0002.

&----

---

*& Module USER_COMMAND_0002 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0002 INPUT.

IF SY-UCOMM = 'EX'.

LEAVE PROGRAM.

ENDIF.

ENDMODULE. " USER_COMMAND_0002 INPUT

&----

---

*& Module STATUS_0011 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0011 OUTPUT.

• SET PF-STATUS 'PFS'.

• SET TITLEBAR 'xxx'.

IF SY-UCOMM = 'OK3'.

A = ''.

B = ''.

ENDIF.

IF SY-UCOMM = 'OK1'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'A'.

SCREEN-INPUT = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

LOOP AT SCREEN.

IF SCREEN-NAME = 'B'.

SCREEN-INPUT = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " STATUS_0011 OUTPUT

&----

---

*& Module STATUS_0013 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0013 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

IF SY-UCOMM = 'OK3'.

RESULT = ''.

ENDIF.

LOOP AT SCREEN.

IF SCREEN-NAME = 'A'.

SCREEN-INPUT = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

LOOP AT SCREEN.

IF SCREEN-NAME = 'B'.

SCREEN-INPUT = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " STATUS_0013 OUTPUT

&----

---

*& Module USER_COMMAND_0012 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0012 INPUT.

IF SY-UCOMM = 'OK2'.

IF R1 = 'X'.

RESULT = A + B.

ELSEIF R2 = 'X'.

RESULT = A - B.

ELSEIF R3 = 'X'.

RESULT = A * B.

ELSEIF R4 = 'X'.

RESULT = A / B.

ENDIF.

ENDIF.

ENDMODULE. " USER_COMMAND_0012 INPUT

&----

---

*& Module STATUS_0012 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0012 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

IF SY-UCOMM = 'OK2'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'R1' OR SCREEN-NAME = 'R2' OR SCREEN-NAME =

'R3' OR SCREEN-NAME = 'R4'.

SCREEN-INPUT = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

IF SY-UCOMM = 'OK3'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'R1' AND SCREEN-NAME = 'R2' AND SCREEN-NAME =

'R3' AND SCREEN-NAME = 'R4'.

SCREEN-INPUT = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " STATUS_0012 OUTPUT

Reward if Useful,

Thanks & Regards,

S.Suresh.

[Former Member]

hi,

<u>

for examples on tab strip</u>

demo_dynpro_tabstrip_local

demo_dynpro_tabstrip_server

Rgds

Reshma