（轉）螢幕輸入輸出的一些屬性

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 .