Report program

[Former Member]

Hi

I have a requirement that when I press a push button on my selection screen a pop up in form of a tabstrip should appear giveing me a choice to select one of the two options.

How can I do it?

Is their some FM that can do it or shall I call subscreens?and how do I go about doing it?

[Former Member]

Hi Mayank,

Write a code like this in AT SELECTION-SCREEN.

IF PUSSBUTTON = 'X'.

call your tabscript screen here...........

ENDIF.

Regards,

Mahi.

[Former Member]

hiii

you can write acode like below

CASE sy-ucomm.

when 'PRESS'.

CALL SCREEN 200 "This is Subscreen

ENDIF.

ENDCASE.

regards

twinkal

[Former Member]

REPORT ZALV_POPUP_TO_SELECT.
TYPE-POOLS: SLIS.
DATA: GT_OUTTAB TYPE SFLIGHT OCCURS 0,
GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,
GS_SELFIELD TYPE SLIS_SELFIELD,
G_EXIT(1) TYPE C.
PARAMETERS: P_TITLE TYPE SY-TITLE.
*
START-OF-SELECTION.
SELECT * FROM SFLIGHT INTO TABLE GT_OUTTAB UP TO 5 ROWS.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
I_TITLE = P_TITLE
* I_SELECTION = 'X'
* I_ZEBRA = ' '
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_CHECKBOX_FIELDNAME =
* I_LINEMARK_FIELDNAME =
* I_SCROLL_TO_SEL_LINE = 'X'
I_TABNAME = '1'
I_STRUCTURE_NAME = 'SFLIGHT'
* IT_FIELDCAT =
* IT_EXCLUDING =
* I_CALLBACK_PROGRAM =
* I_CALLBACK_USER_COMMAND =
IS_PRIVATE = GS_PRIVATE
IMPORTING
ES_SELFIELD = GS_SELFIELD
E_EXIT = G_EXIT
TABLES
T_OUTTAB = GT_OUTTAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE I000(0K) WITH SY-SUBRC.
ENDIF.
WRITE: / G_EXIT,
GS_SELFIELD-TABNAME,
gs_selfield-TABINDEX,
gs_selfield-SEL_TAB_FIELD,
gs_selfield-VALUE.