anchor.diff:      ls_tr_key-sub_type = 'CUAD'.
       ls_tr_key-sub_name = iv_program_name.
   
  +
  +    ls_adm = is_cua-adm.
  +    auto_correct_cua_adm( EXPORTING is_cua = is_cua CHANGING cs_adm = ls_adm ).
  +
       sy-tcode = 'SE41' ##write_ok. " evil hack, workaround to handle fixes in note 2159455
       CALL FUNCTION 'RS_CUA_INTERNAL_WRITE'
         EXPORTING
           program   = iv_program_name
           language  = mv_language
           tr_key    = ls_tr_key
  -        adm       = is_cua-adm
  +        adm       = ls_adm
           state     = 'I'
         TABLES
           sta       = is_cua-sta
  
positive.code: 
    METHOD deserialize_cua.
  
      DATA: ls_tr_key TYPE trkey.
  
  
      IF lines( is_cua-sta ) = 0
  
negative.code:                   it_spaces      TYPE ty_spaces_tt
          RETURNING VALUE(rt_flow) TYPE swydyflow.
  
      CLASS-METHODS auto_correct_cua_adm
        IMPORTING
          is_cua TYPE zcl_abapgit_objects_program=>ty_cua
        CHANGING
          cs_adm TYPE rsmpe_adm.
  
  
  ENDCLASS.
  
  