selection screen 界面点击checkbox解锁本文库

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS:P_CBOX2 AS CHECKBOX USER-COMMAND SINGLECLICK,
  FULLPATH TYPE STRING.
SELECTION-SCREEN END OF BLOCK B3 .

AT SELECTION-SCREEN OUTPUT.
  IF P_CBOX2 = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'FULLPATH'.
        SCREEN-INPUT = 1.
*        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'FULLPATH'.
        SCREEN-INPUT = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.