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'. "灰掉，只输出……