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: 
    message 'Upload successful' type 'S'. "#EC NOTEXT
  
  endform.                    "upload_mime
  
negative.code: *&      Form  set_stype
  *&---------------------------------------------------------------------*
  form set_stype.
  
    data l_stype type ty_source_type.
  
    if p_file is not initial.
      l_stype = 'FILE'.
  