REPORT Z_WBH_2.
PARAMETERS: p_pass TYPE xuncode.
*---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'P_PASS'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*---------------------------------------------------------------------*
START-OF-SELECTION.
WRITE: / p_pass.
或者下面程序:
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 .