abpa 设置选择屏幕的元素不可编辑

由于客户特殊的需求，在选择屏幕的界面会要求某些查询条件设置为默认值，并且不可输入，效果如下所示：

实现有三个步骤 ：
1）在选择屏幕设定默认值
如： PARAMETERS :     P_WERKS LIKE  AUFK-WERKS DEFAULT  '1300' .               "工厂
2） 设置屏幕元素不可编辑
如：
*---------------------------------------------------------------------*
*   FRM_SET_NEDIT.
*   设置屏幕的元素不能编辑
*
*---------------------------------------------------------------------*
FORM  FRM_SET_NEDIT.
LOOP  AT  SCREEN .
IF  SCREEN -NAME EQ  'P_WERKS' .
SCREEN -INPUT  = '0' .
MODIFY  SCREEN .
ENDIF .
ENDLOOP .
ENDFORM .     
3） 在选择屏幕的初始化时调用子例程
INITIALIZATION .
PERFORM  FRM_SET_NEDIT.                     "设置工厂不能编辑