锁定屏幕输入框

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 .