锁定屏幕输入框

SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:S_WERKS1 LIKE VBAP-WERKS DEFAULT 9000 OBLIGATORY.
SELECT-OPTIONS:S_VBELN FOR VBAK-VBELN,
                S_ERDAT FOR VBAK-ERDAT OBLIGATORY.
SELECTION-SCREEN:END OF BLOCK B1.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
      G_REPID LIKE SY-REPID.
  DATA:WADAT_IST LIKE LIKP-WADAT_IST.
INITIALIZATION.
LOOP AT SCREEN.
  IF screen-name = 'S_WERKS1'.
    screen-input = '0'.
*    screen-invisible = '0'.
  ENDIF.
MODIFY SCREEN.
ENDLOOP.