anchor.diff:      DATA:
         lt_objects TYPE sotr_objects,
         ls_paket   TYPE sotr_pack,
  +      lv_alias   TYPE sotr_head-alias_name,
         lv_object  LIKE LINE OF lt_objects.
   
       FIELD-SYMBOLS: <ls_sotr> LIKE LINE OF it_sotr.
  
positive.code:       RETURN.
      ENDIF.
  
      CLEAR: ls_header-paket,
             ls_header-crea_name,
             ls_header-crea_tstut,
  
negative.code: 
        ls_paket-paket = iv_package.
  
        " Replace package in alias with new package
        lv_alias = <ls_sotr>-header-alias_name.
        IF lv_alias CS '/'.
          lv_alias = iv_package && lv_alias+sy-fdpos(*).
        ENDIF.
  
        CALL FUNCTION 'SOTR_CREATE_CONCEPT'
          EXPORTING
            paket                         = ls_paket
            crea_lan                      = <ls_sotr>-header-crea_lan
            alias_name                    = lv_alias
            object                        = lv_object
            entries                       = <ls_sotr>-entries
            concept_default               = <ls_sotr>-header-concept
  