dynamisch funktionsbausteine generieren

Code: Alles auswählen.

data ls_tfdir type tfdir.
data lv_incname type tfdir-pname.

data:
EXCEPTION_LIST   type  table of RSEXC WITH HEADER LINE,
EXPORT_PARAMETER type  table of RSEXP WITH HEADER LINE,
IMPORT_PARAMETER type  table of RSIMP WITH HEADER LINE,
PARAMETER_DOCU type  table of RSFDO WITH HEADER LINE,
TABLES_PARAMETER type  table of RSTBL WITH HEADER LINE.

IMPORT_PARAMETER-PARAMETER = 'T1'.
IMPORT_PARAMETER-TYP = 'C'.
append IMPORT_PARAMETER.

CALL FUNCTION 'FUNCTION_CREATE'
  EXPORTING
*   CORRNUM                       = ' '
    funcname                      = 'ZXYZJENS'
    function_pool                 = 'ZTEST'
*   INTERFACE_GLOBAL              = ' '
*   REMOTE_CALL                   = ' '
    short_text                    = 'Auto created'
*   SUPPRESS_CORR_CHECK           = 'X'
*   UPDATE_TASK                   = ' '
*   NAMESPACE                     = ' '
*   SUPPRESS_ENQUEUE              = ' '
*   SAVE_ACTIVE                   = 'X'
*   EXCEPTION_CLASS               = ' '
* IMPORTING
*   FUNCTION_INCLUDE              =
  tables
    exception_list                = EXCEPTION_LIST
    export_parameter              = EXPORT_PARAMETER
    import_parameter              = IMPORT_PARAMETER
    parameter_docu                = PARAMETER_DOCU
    tables_parameter              = TABLES_PARAMETER
*   CHANGING_PARAMETER            =
 EXCEPTIONS
   DOUBLE_TASK                   = 1
   ERROR_MESSAGE                 = 2
   FUNCTION_ALREADY_EXISTS       = 3
   INVALID_FUNCTION_POOL         = 4
   INVALID_NAME                  = 5
   TOO_MANY_FUNCTIONS            = 6
   OTHERS                        = 7.

IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

select single * from tfdir into ls_tfdir
where funcname =  'ZABCZJENS2'.

* Includenamen zum neuen FUB ermitteln für das Coding
concatenate ls_tfdir-pname+3 'U' ls_tfdir-include
into lv_incname.