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 .
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/8356764/viewspace-964127/ ，如需转载，请注明出处，否则将追究法律责任。
