设置选择屏幕不可输入

AT SELECTION-SCREEN OUTPUT.
  PERFORM frm_modify_screen.


  "灰掉选择屏幕
FORM frm_modify_screen.
  LOOP AT SCREEN.
    IF screen-name EQ 'P_HKONT' OR screen-name EQ 'S_HKONT-LOW'
        OR screen-name EQ 'S_HKONT-HIGH'.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM.