選択画面項目を入力不可にする

PARAMETERS: P_AA TYPE TEKITOH MODIF ID sc1.

*&---------------------------------------------------------------------*
*&    INITIALIZATION
*&---------------------------------------------------------------------*
INITIALIZATION.

  LOOP AT SCREEN.
    IF screen-group1 = 'SC1'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*&---------------------------------------------------------------------*
*&    AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF screen-group1 = 'SC1'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

---------------------------------------------------------------------------------

2,

*&---------------------------------------------------------------------*
*&    AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

CASE 'X'

  WHEN RB_A 　　”ラジオボタンA

　　lv_INPUT = 0.

 WHEN RB_B       "ラジオボタンB

　　lv_input = 1.

 ENDCASE

 

LOOP AT SCREEN.

  IF SCREEN-NAME = 'P_A'　OR　選択画面A

　　SCREEN-NAME =　’P_B'      選択画面B

　　SCREEN-INPUT =　lv_INPUT.

  ENDIF.

ENDLOOP.