关于ICON的显示和输出

1、定义字段
data: status_icon type icons-text.

2、创建屏幕&＃xff0c;并在屏幕定义创建一个"Status Icon"控件 ,命名为:status_icon

3、利用ICON_CREATE函数在输出是设置ICON。
  call function &＃39;ICON_CREATE&＃39;
       exporting
            name                  &＃61; &＃39;ICON_GREEN_LIGHT&＃39;
            text                       &＃61; &＃39;图标后面显示的文本&＃39;
            info                      &＃61; &＃39;提示&＃39;
            add_stdinf            &＃61; &＃39;X&＃39;
       importing
            result                &＃61; status_icon
       exceptions
            icon_not_found        &＃61; 1
            outputfield_too_short &＃61; 2
            others                &＃61; 3.

4、sap的图标可以使用ICON_SHOW函数显示列出
call function &＃39;ICON_SHOW&＃39; exporting onlydisplay &＃61; &＃39;X&＃39;
                          exceptions no_object_found &＃61; 1
                                     no_icon_selected &＃61; 2.

5、关于图标的样例可参见sap的演示代码&＃xff1a;DEMO_DYNPRO_STATUS_ICONS

REPORT demo_dynpro_status_icons.

DATA value TYPE i VALUE 1.

DATA: status_icon TYPE icons-text,
      icon_name(20) TYPE c,
      icon_text(10) TYPE c.

CALL SCREEN 100.

MODULE set_icon OUTPUT.

  SET PF-STATUS &＃39;SCREEN_100&＃39;.

  CASE value.
    WHEN 1.
      icon_name &＃61; &＃39;ICON_GREEN_LIGHT&＃39;.
      icon_text &＃61;  text-003.
    WHEN 2.
      icon_name &＃61; &＃39;ICON_YELLOW_LIGHT&＃39;.
      icon_text &＃61;  text-002.
    WHEN 3.
      icon_name &＃61; &＃39;ICON_RED_LIGHT&＃39;.
      icon_text &＃61;  text-001.
  ENDCASE.

  CALL FUNCTION &＃39;ICON_CREATE&＃39;
       EXPORTING
            name                  &＃61; icon_name
            text                  &＃61; icon_text
            info                  &＃61; &＃39;Status&＃39;
            add_stdinf            &＃61; &＃39;X&＃39;
       IMPORTING
            result                &＃61; status_icon
       EXCEPTIONS
            icon_not_found        &＃61; 1
            outputfield_too_short &＃61; 2
            OTHERS                &＃61; 3.

  CASE sy-subrc.
    WHEN 1.
      MESSAGE e888(sabapdocu) WITH text-004.
    WHEN 2.
      MESSAGE e888(sabapdocu) WITH text-005.
    WHEN 3.
      MESSAGE e888(sabapdocu) WITH text-006.
  ENDCASE.

ENDMODULE.

MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE change.
  CASE value.
    WHEN 1.
      value &＃61; 2.
    WHEN 2.
      value &＃61; 3.
    WHEN 3.
      value &＃61; 1.
  ENDCASE.
ENDMODULE.