anchor.diff:    PUBLIC SECTION.
       INTERFACES lif_object.
   
  +
     PRIVATE SECTION.
       DATA: mo_persistence       TYPE REF TO if_wb_object_persist,
             mo_apc_appl_obj_data TYPE REF TO if_wb_object_data_model.
   
       METHODS:
  -      get_data_object
  -        RETURNING
  -          value(ro_apc_appl_obj_data) TYPE REF TO if_wb_object_data_model
  -        RAISING
  -          lcx_exception,
  -
  -      get_persistence
  -        RETURNING
  -          value(ro_persistence) TYPE REF TO if_wb_object_persist
  +      create_apc_objects
           RAISING
             lcx_exception,
   
  
positive.code:                    <ls_header>  TYPE any,
                     <changed_by> TYPE any.
  
      TRY.
          CREATE DATA lr_data TYPE ('APC_APPLICATION_COMPLETE').
          ASSIGN lr_data->* TO <ls_data>.
  
negative.code:     IF lif_object~exists( ) = abap_true.
        lif_object~delete( ).
      ENDIF.
  
      TRY.
          lock( ).
  