anchor.diff:          _raise 'Error from RPY_FUNCTIONMODULE_READ_NEW'.
         ENDIF.
   
  -      CREATE OBJECT lo_xml.
  -      lo_xml->add( iv_name = 'GLOBAL_FLAG'
  -                   ig_data = lv_global_flag ).
  -      lo_xml->add( iv_name = 'REMOTE_CALL'
  -                   ig_data = lv_remote_call ).
  -      lo_xml->add( iv_name = 'UPDATE_TASK'
  -                   ig_data = lv_update_task ).
  -      lo_xml->add( iv_name = 'SHORT_TEXT'
  -                   ig_data = lv_short_text ).
  -      lo_xml->add( iv_name = 'REMOTE_BASXML'
  -                   ig_data = lv_remote_basxml ).
  -
  -      lo_xml->add( ig_data = lt_import
  -                   iv_name = 'IMPORT' ).
  -      lo_xml->add( ig_data = lt_changing
  -                   iv_name = 'CHANGING' ).
  -      lo_xml->add( ig_data = lt_export
  -                   iv_name = 'EXPORT' ).
  -      lo_xml->add( ig_data = lt_tables
  -                   iv_name = 'TABLES' ).
  -      lo_xml->add( ig_data = lt_exception
  -                   iv_name = 'EXCEPTION' ).
  -      lo_xml->add( ig_data = lt_documentation
  -                   iv_name = 'DOCUMENTATION' ).
  -
  -      mo_files->add_xml( iv_extra = <ls_func>-funcname
  -                         io_xml   = lo_xml ).
  -
         IF NOT lt_new_source IS INITIAL.
           mo_files->add_abap( iv_extra = <ls_func>-funcname
                               it_abap  = lt_new_source ).
  
positive.code:   PRIVATE SECTION.
      TYPES: ty_rs38l_incl_tt TYPE STANDARD TABLE OF rs38l_incl WITH DEFAULT KEY.
  
      METHODS main_name
        RETURNING VALUE(rv_program) TYPE program
        RAISING   lcx_exception.
  
negative.code: 
        CALL FUNCTION 'RS_FUNCTIONMODULE_INSERT'
          EXPORTING
            funcname                = <ls_func>-funcname
            function_pool           = lv_area
            interface_global        = <ls_func>-global_flag
            remote_call             = <ls_func>-remote_call
            short_text              = <ls_func>-short_text
  *         NAMESPACE               = ' ' todo
            remote_basxml_supported = <ls_func>-remote_basxml
          IMPORTING
            function_include        = <ls_func>-include
          TABLES
            import_parameter        = <ls_func>-import
            export_parameter        = <ls_func>-export
            tables_parameter        = <ls_func>-tables
            changing_parameter      = <ls_func>-changing
            exception_list          = <ls_func>-exception
            parameter_docu          = <ls_func>-documentation
          EXCEPTIONS
            double_task             = 1
            error_message           = 2
  