Selection screen

[Former Member]

i want to add a information button in selection screen

and want to fire some piece of code through that button.

please suggest the way

[FredericGirod]

HELP -> PUSHBUTTON

Fred

[Former Member]

hi Praveen ...

Use FM ICON_CREATE for details check...

[Former Member]

Hi,

use below logic

report ztest.

TABLES SSCRFIELDS.

SELECTION-SCREEN BEGIN OF BLOCK TT WITH FRAME TITLE TEXT-004.

PARAMETERS : X(15) TYPE C DEFAULT 'HI SAPERS'.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(70) TEXT-000.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN ULINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN PUSHBUTTON 1(10) TEXT-001 USER-COMMAND PB01.

SELECTION-SCREEN PUSHBUTTON 20(10) TEXT-002 USER-COMMAND PB02.

SELECTION-SCREEN END OF BLOCK TT.

*DATA: OK_CODE LIKE SY-UCOMM.

AT SELECTION-SCREEN.

CASE SSCRFIELDS-UCOMM.

WHEN 'PB01'.

LEAVE TO LIST-PROCESSING.

WRITE:/ 'hello'.

WRITE : / 'STRING ENTERED IS :', X.

WHEN 'PB02'.

LEAVE PROGRAM.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

ENDCASE.

WRITE : / '!! AFTER EVENT !!'.

Regards

amole

[Former Member]

Check this code it may help u.

TABLES sscrfields.

DATA flag(1) TYPE c.

SELECTION-SCREEN:

BEGIN OF SCREEN 500 AS WINDOW TITLE tit,

BEGIN OF LINE,

PUSHBUTTON 2(10) but1 USER-COMMAND cli1,

PUSHBUTTON 12(10) text-020 USER-COMMAND cli2,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(10) but3 USER-COMMAND cli3,

PUSHBUTTON 12(10) text-040 USER-COMMAND cli4,

END OF LINE,

END OF SCREEN 500.

AT SELECTION-SCREEN.

CASE sscrfields.

WHEN 'CLI1'.

flag = '1'.

WHEN 'CLI2'.

flag = '2'.

WHEN 'CLI3'.

flag = '3'.

WHEN 'CLI4'.

flag = '4'.

ENDCASE.

START-OF-SELECTION.

tit = 'Four Buttons'.

but1 = 'Button 1'.

but3 = 'Button 3'.

CALL SELECTION-SCREEN 500 STARTING AT 10 10.

CASE flag.

WHEN '1'.

WRITE / 'Button 1 was clicked'.

WHEN '2'.

WRITE / 'Button 2 was clicked'.

WHEN '3'.

WRITE / 'Button 3 was clicked'.

WHEN '4'.

WRITE / 'Button 4 was clicked'.

WHEN OTHERS.

WRITE / 'No Button was clicked'.

ENDCASE.

Regards

[Former Member]

Hi,

also check ABAPDOCU for sample program

demo_dynpro_push_button

Regards

amole

[Former Member]

Hi

U have two ways:

A)

TABLES SSCRFIELDS.

SELECTION-SCREEN PUSHBUTTON 4(10) BUT1 USER-COMMAND AAAA.

INITIALIZATION.

BUT1 = 'My button'.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'AAAA'.

MESSAGE I208(00) WITH 'My button'.

ENDIF.

B)

REPORT ZSSSS .

TABLES SSCRFIELDS.

PARAMETERS: .....

SELECTION-SCREEN FUNCTION KEY 1.

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'My button'.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'FC01'.

MESSAGE I208(00) WITH 'My button'.

ENDIF.

Max

[Former Member]

Please try this:

selection-screen pushbutton /1(15) fmt user-command abc.

at selection-screen.
   if sy-ucomm = 'ABC'.
*** Piece of code
   endif.

initialization.

  move text-001 to fmt.

Declare text element 001 as "<b>@0S@ Action</b>"

Kind Regards

Eswar

[Former Member]

Hi,

Check the program <b>DEMO_SEL_SCREEN_FUNCTION_KEY</b>

You can get the buttons on application toolbar.

Regards,

Sailaja.