anchor.diff:        go_debug   TYPE REF TO zcl_alog_entry_type READ-ONLY.
       DATA:
         mv_message_type TYPE syst_msgty READ-ONLY,
  -      mv_description  TYPE string READ-ONLY.
  +      mv_description  TYPE string READ-ONLY,
  +      mv_icon         TYPE icon_d READ-ONLY.
     PROTECTED SECTION.
     PRIVATE SECTION.
       METHODS:
         constructor IMPORTING iv_message_type TYPE syst_msgty
  -                            iv_description  TYPE csequence.
  +                            iv_description  TYPE csequence
  +                            iv_icon         TYPE icon_d.
   ENDCLASS.
   
   
  
positive.code:   METHOD class_constructor.
      DEFINE init.
        &1 = NEW #( iv_message_type = &2
                    iv_description  = &3 ).
      END-OF-DEFINITION.
  
      init: go_info    'I' 'INFO',
            go_warning 'W' 'WARNING',
            go_error   'E' 'ERROR',
            go_debug   'I' 'DEBUG'.
    ENDMETHOD.
  
    METHOD from_msgty.
      CASE iv_msgty.
  
negative.code:             iv_msgty = iv_msgty.
      ENDCASE.
    ENDMETHOD.
  ENDCLASS.
  