ZBlog学习笔记

REPORT Z_TEST_LUOLIN_002.
*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 .