anchor.diff:  
     set parameter id 'ZMOCKUP_LOADER_STYPE' field l_stype.
   
  -endform.                    "set_stype
  +endform.
   
   *&---------------------------------------------------------------------*
   *&      Form  get_stype
   *&---------------------------------------------------------------------*
   form get_stype.
  -  data: l_stype type char4,
  -        l_smime type char128,
  -        l_spath type char128.
  +
  +  data:
  +    l_stype type ty_source_type,
  +    l_smime type w3objid,
  +    l_spath type char255.
   
     get parameter id 'ZMOCKUP_LOADER_STYPE' field l_stype.
     get parameter id 'ZMOCKUP_LOADER_SPATH' field l_spath.
     get parameter id 'ZMOCKUP_LOADER_SMIME' field l_smime.
  -  clear: p_fpath, p_mpath.
  +  clear: p_fpath, p_mpath, p_undef, p_file, p_mime.
   
     case l_stype.
       when 'FILE'.
  
positive.code:   txt_mp   = 'MIME object'.                                 "#EC NOTEXT
    txt_mp2  = '(to redirect)'.                               "#EC NOTEXT
  
    sscrfields-functxt_01 = 'Get SU3 value'.                  "#EC NOTEXT
    sscrfields-functxt_02 = 'Upload to MIME'.                 "#EC NOTEXT
  
    perform get_stype.
  
  
negative.code: 
      rv_yes = boolc( sy-subrc = 0 ).
  
    endmethod.
  
    method get_object_info.
  
  