ABAP Keyword Documentation → ABAP − Reference → SAP GUI User Dialogs → General Dynpros → Screen and Screen Elements → Screen Elements - Examples
Dynpros, Status Icons
This example illustrates how status icons are used on dynpros.
Other versions: 7.31 | 7.40 | 7.54
Source Code
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(sabapdemos) WITH text-004.
WHEN 2.
MESSAGE e888(sabapdemos) WITH text-005.
WHEN 3.
MESSAGE e888(sabapdemos) 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.
Description
The static next dynpro number of dynpro 100 is 100. It is a status field called status_icon
with a visible length of 16 and a defined length of 26. The status icon and the space for the text are represented by placeholders in Screen Painter. The screen flow logic is as follows:
PROCESS BEFORE OUTPUT.
MODULE set_icon.
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
MODULE change.
Depending on the local value
field in the program, the dialog module
set_icon passes different values to the function module ICON_CREATE.
The status field status_icon
is filled with the contents of the export parameter
result
of the function module. This displays the corresponding icon including
the text and tooltip on the screen. When the user chooses Continue, the
contents of the field value
are changed in the PAI, and consequently a new icon is defined in the PBO event.