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?‘SCREEN_100‘.
? ?
??CASE?value.
????WHEN?1.
??????icon_name?=?‘ICON_GREEN_LIGHT‘.
??????icon_text?=??text-003.
????WHEN?2.
??????icon_name?=?‘ICON_YELLOW_LIGHT‘.
??????icon_text?=??text-002.
????WHEN?3.
??????icon_name?=?‘ICON_RED_LIGHT‘.
??????icon_text?=??text-001.
??ENDCASE.
? ?
??CALL?FUNCTION?‘ICON_CREATE‘
???????EXPORTING
????????????name??????????????????=?icon_name
????????????text??????????????????=?icon_text
????????????info??????????????????=?‘Status‘
????????????add_stdinf????????????=?‘X‘
???????IMPORTING
????????????result????????????????=?status_icon
???????EXCEPTIONS
????????????icon_not_found????????=?1
????????????outputfield_too_short?=?2
????????????OTHERS????????????????=?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?=?2.
????WHEN?2.
??????value?=?3.
????WHEN?3.
??????value?=?1.
??ENDCASE.
ENDMODULE.
原文：http://www.cnblogs.com/rootbin/p/4463288.html