anchor.diff:        ls_progdir_new-dbapl = ls_progdir-dbapl.
         ls_progdir_new-rload = ls_progdir-rload.
   
  +* todo, use new approach for activating, call method into_working_list()
         CALL FUNCTION 'UPDATE_PROGDIR'
           EXPORTING
             i_progdir    = ls_progdir_new
  
positive.code:                                 RETURNING value(rs_file) TYPE st_file
                                  RAISING lcx_exception.
  
      CLASS-METHODS: activate IMPORTING is_item TYPE st_item
                              RAISING lcx_exception.
  
      CLASS-METHODS: corr_insert IMPORTING is_item TYPE st_item
  
negative.code:         permission_failure  = 2
          unknown_objectclass = 3
          OTHERS              = 4.
      IF sy-subrc = 1.
        _raise 'Cancelled'.
      ELSEIF sy-subrc <> 0.
        _raise 'error from RS_CORR_INSERT'.
      ENDIF.
  
  