Dynamic Settings Screen icon

Report? demo_dynpro_status_icons.

??

Data?value? Type?i? VALUE? 1.

??

DATA:? Status_icon? TYPE? icons-text,

?????? Icon_name()? Type?c,

?????? Icon_text(ten)? Type?c.

??

Call? Screen? .

??

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.

Dynamic Settings Screen icon