[ABAP] Auslesen der Schnittstelle eines Funktionsbausteins

PARAMETERS: lv_func TYPE rs38l-name DEFAULT 'READ_TEXT'.

TYPES: ty_it_exeptions TYPE STANDARD TABLE OF rsexc WITH DEFAULT KEY.
TYPES: ty_it_exporting TYPE STANDARD TABLE OF rsexp WITH DEFAULT KEY.
TYPES: ty_it_importing TYPE STANDARD TABLE OF rsimp WITH DEFAULT KEY.
TYPES: ty_it_changing TYPE STANDARD TABLE OF rscha WITH DEFAULT KEY.
TYPES: ty_it_tables TYPE STANDARD TABLE OF rstbl WITH DEFAULT KEY.
TYPES: ty_it_p_docu TYPE STANDARD TABLE OF rsfdo WITH DEFAULT KEY.

DATA(lv_global_flag) = VALUE rs38l-global( ).
DATA(lv_remote_call) = VALUE rs38l-remote( ).
DATA(lv_update_task) = VALUE rs38l-utask( ).

DATA(it_exeptions) = VALUE ty_it_exeptions( ).
DATA(it_exporting) = VALUE ty_it_exporting( ).
DATA(it_importing) = VALUE ty_it_importing( ).
DATA(it_changing) = VALUE ty_it_changing( ).
DATA(it_tables) = VALUE ty_it_tables( ).
DATA(it_p_docu) = VALUE ty_it_p_docu( ).

* Bereitstellung der Schnittstelle eines Funktionsbausteins
CALL FUNCTION 'FUNCTION_IMPORT_INTERFACE'
  EXPORTING
    funcname           = lv_func
  IMPORTING
    global_flag        = lv_global_flag
    remote_call        = lv_remote_call
    update_task        = lv_update_task
  TABLES
    exception_list     = it_exeptions
    export_parameter   = it_exporting
    import_parameter   = it_importing
    changing_parameter = it_changing
    tables_parameter   = it_tables
    p_docu             = it_p_docu
  EXCEPTIONS
    error_message      = 1
    function_not_found = 2
    invalid_name       = 3
    OTHERS             = 4.

IF sy-subrc = 0.
  cl_demo_output=>write_data( lv_global_flag ).
  cl_demo_output=>write_data( lv_remote_call ).
  cl_demo_output=>write_data( lv_update_task ).
  cl_demo_output=>write_data( it_exeptions ).
  cl_demo_output=>write_data( it_exporting ).
  cl_demo_output=>write_data( it_importing ).
  cl_demo_output=>write_data( it_changing ).
  cl_demo_output=>write_data( it_tables ).
  cl_demo_output=>write_data( it_p_docu ).
  cl_demo_output=>display( ).
ENDIF.