动态设置屏幕icon

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.