*&---------------------------------------------------------------------*
*& Report  ZSAPRSEUH                                                   *
*&---------------------------------------------------------------------*

report  zsaprseuh.
type-pools: swbse,seox.
tables: seomtdkey,tfdir.
types: source_tab  type swbse_max_line occurs 100.
***************************************************
parameters: p_p radiobutton group radi.
parameters  name like trdir-name memory id rid.
parameters: p_f radiobutton group radi.
parameters: f_m like  tfdir-funcname.
parameters: p_c radiobutton group radi.
parameters: cls like seomtdkey-clsname.
parameters: meth like seomtdkey-mtdname.
***************************************************

* from LSEOPM01
data   new type seox_boolean.                               "#EC NEEDED
data mtdkey type seocpdkey.
data filename type progstruc.
data incname type  program.
data   _ps type progstruc.

define method_to_include.
*>&1 cpdkey compatible
*<&2 type programm
*<&3 boolean new
  clear _ps.
  system-call query method &1-cpdname of class &1-clsname
    include into _ps no dblock.
  if sy-subrc <> 0.
    &3 = seox_true.
  endif.
  &2 = _ps.
end-of-definition.

start-of-selection.
  case 'X'.
    when p_p.
      incname = name.
    when p_f.
    when p_c.
      mtdkey-clsname = cls.
      mtdkey-cpdname = meth.
      method_to_include mtdkey filename new.
      incname = filename.
  endcase.


  call function 'RS_SOURCE_STRUCTURE'
    exporting
      source          = incname
      function_module = f_m
    exceptions
      others          = 0.