anchor.diff:      lv_title = ls_tpool-entry.
   
       SELECT SINGLE progname FROM reposrc INTO lv_progname
  -      WHERE progname = is_progdir-name.                     "#EC WARNOK
  +      WHERE progname = is_progdir-name
  +      AND r3state = 'A'.
       IF sy-subrc = 0.
         lv_exists = abap_true.
       ELSE.
  
positive.code:   PUBLIC SECTION.
      CLASS-METHODS serialize
        IMPORTING is_item         TYPE st_item
        RETURNING value(rt_files) TYPE tt_files
        RAISING   lcx_exception.
  
      CLASS-METHODS deserialize
  
negative.code:       RAISING   lcx_exception.
  
      CLASS-METHODS popup_comment
        RETURNING VALUE(rs_comment) TYPE st_comment
        RAISING   lcx_exception.
  
  ENDCLASS.                    "lcl_gui DEFINITION
  