透過單選按鈕控制編輯框的狀態

可以通過單選按鈕的選擇控制編輯框的INPUT/OUTPUT屬性。

[@more@]

*----------------------------------------------------------------------------------------*
* Program name : ZBC_RADIOBUTTON_INTERACTIVE
* Description : Through radiobutton to control input & output property of edit box
*----------------------------------------------------------------------------------------*

REPORT ZBC_RADIOBUTTON_INTERACTIVE.

PARAMETERS: ID(10) TYPE C MODIF ID MA,

NAME(20) TYPE C MODIF ID MB ,

RB_ID RADIOBUTTON GROUP USER USER-COMMAND RAD_CLICK,

RB_NAME RADIOBUTTON GROUP USER DEFAULT 'X'.

AT SELECTION-SCREEN OUTPUT.

* according to user's selection,make input filed readonly or editable

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'MA' AND RB_ID = SPACE.

SCREEN-INPUT = SPACE.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'MB' AND RB_NAME = SPACE.

SCREEN-INPUT = SPACE.

MODIFY SCREEN.

ENDIF.

ENDLOOP.