screen에서 버튼에 function code 추고

user_command에서 function code에 따라 코딩해주면 될것같은데요 ^^

 참고하시면 될듯합니다.  수고하세여

REPORT demo_sel_screen_pushbutton.

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.

  MESSAGE i888(sabapdocu) WITH text-001 sscrfields-ucomm.
  CASE sscrfields-ucomm.
    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.

죄송합니다. 제가 말을 잘못 전했군요.. 그냥 버튼이 아니라 라디오 버튼입니다.

라디오 버튼 클릭시 프로그램이 실행되기를 원하는게 아니라 화면에 필드 값에 값이 들어가기를 원하는거죠

SELECTION-SCREEN BEGIN OF BLOCK fram1 WITH FRAME TITLE text-0f1.
PARAMETERS : p_r1 RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND ucom.

PARAMETERS: p_r2 RADIOBUTTON GROUP rad1.

PARAMETERS: p_r3 RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK fram1.

AT SELECTION-SCREEN OUTPUT.
  => 필드1 에 원하시는 값을 넣어주세요.