topic Re: selection-screen in Application Development and Automation Discussions

selection-screen

Former Member — Mon, 05 Apr 2010 06:01:17 GMT

Hi,

I wrote the following code in my program , but not able to get the code written in flag ie .

WHEN '1'.

WRITE / 'Button 1 was clicked'.

WHEN '2'.

WRITE / 'Button 2 was clicked'.

WHEN OTHERS.

plz help me in this .

Thanks.

REPORT ZPROGRAM1.

TABLES sscrfields.

DATA flag(1) TYPE c.

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE tit .

SELECTION-SCREEN PUSHBUTTON 2(10) text-001 USER-COMMAND cli1.

SELECTION-SCREEN PUSHBUTTON 12(10) text-002 USER-COMMAND cli2.

SELECTION-SCREEN END OF BLOCK BLK1.

AT SELECTION-SCREEN.

CASE sscrfields-ucomm.

WHEN 'CLI1'.

flag = '1'.

WHEN 'CLI2'.

flag = '2'.

ENDCASE.

CASE flag.

WHEN '1'.

WRITE / 'Button 1 was clicked'.

WHEN '2'.

WRITE / 'Button 2 was clicked'.

WHEN OTHERS.

WRITE / 'No Button was clicked'.

ENDCASE.

Re: selection-screen

Former Member — Mon, 05 Apr 2010 06:05:19 GMT

Hello


REPORT ZPROGRAM1.
TABLES sscrfields.
DATA flag(1) TYPE c.

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE tit .
SELECTION-SCREEN PUSHBUTTON 2(10) text-001 USER-COMMAND cli1.
SELECTION-SCREEN PUSHBUTTON 12(10) text-002 USER-COMMAND cli2.
SELECTION-SCREEN END OF BLOCK BLK1.

AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'CLI1'.
flag = '1'.
WHEN 'CLI2'.
flag = '2'.
ENDCASE.

start-of-selection. "<- add this
CASE flag.
WHEN '1'.
WRITE / 'Button 1 was clicked'.
WHEN '2'.
WRITE / 'Button 2 was clicked'.
WHEN OTHERS.
WRITE / 'No Button was clicked'.
ENDCASE.

Re: selection-screen

GauthamV — Mon, 05 Apr 2010 06:06:57 GMT

Add start-of-selection before CASE flag.

Re: selection-screen

Former Member — Mon, 05 Apr 2010 06:06:58 GMT

Hi,

try this,

TABLES SSCRFIELDS.
DATA FLAG.
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.

rgrds,

Nikhil.