选择屏幕的元素模式(Screen -- input/invisible/active)

REPORT z_barry_test_screen_loop .

PARAMETERS: p_str0(10) type c ,
            p_str1(10) TYPE c ,
            p_str2(10) TYPE c .

AT SELECTION-SCREEN OUTPUT.
  PERFORM setscreen .
*---------------------------------------------------------------------*
*       FORM setscreen                                                *
*---------------------------------------------------------------------*
FORM setscreen .
  LOOP AT SCREEN.
    IF screen-name = 'P_STR0' .
      screen-input = '0'.     "灰掉，只输出
    ENDIF.
    IF screen-name = 'P_STR1'.
      screen-invisible = '1'. "*做掩码，适合输入密码
    ENDIF.
    IF screen-name = 'P_STR2'.
      screen-active = '0'.    "不显示
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM .