FORM DATEN_KOPIEREN_03 .
*{   INSERT         KA5K035869                                        1
*---------------------------------------------------------------------*
*       FORM - Routine User-EXIT ( Kopieren von Texten )              *
*---------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM DATEN_KOPIEREN_99                                        *
*---------------------------------------------------------------------*
*       Folgende Workareas stehen zur Verfuegung:                     *
*                                                                     *
*         FTVCOM   - KommunikationsblocK                              *
*         FXTHEAD  - Textkoepfe                                       *
*         FXVBPA   - Partner                                          *
*         REFERENZ - Workarea für zu referierenden Textbaustein       *
*                                                                     *
*       Um einen Text zu referieren, ist die Workarea REFERENZ zu     *
*       fuellen. Die Sprachherkunft des zu referierenden Textes       *
*       wird aus der TTXVR abgeleitet.                                *

*       Die Meldungen sind in Tabelle 100 der Message-ID 'VX' zuge-   *
*       ordnet.                                                       *
*---------------------------------------------------------------------*
*       Beispiel:                                                     *
*       Um den Standardtext RV_USER_EXIT_99 zu ziehen, sind folgende  *
*       Eintraege in der Workarea REFERENZ zu machen :                *
*         REFERENZ-TDID     = 'ST  '.                                 *
*         REFERENZ-TDOBJECT = 'TEXT      '.                           *
*         REFERENZ-TDNAME   = 'RV_USER_EXIT_99'.                      *
*       In der TTXVR ist die Sprachherkunft mit TTXVR-SPRAS = 'D'     *
*       anzugeben.                                                    *
*---------------------------------------------------------------------*
  type-pools: adkb.

  data: begin of i_tline occurs 1.
          include structure tline.
  data: end of i_tline.
  data: begin of i_thead occurs 1.
          include structure thead.
  data: end of i_thead.
  data: name like i_thead-tdname,
        matnr_ex(40).
  data: bestandstext type adkb_t001,
        line like line of bestandstext.
  data: save_langu like sy-langu.

* Generischen Namen für Standardtext aus Kunden-, Beleg- und
* Positionsnummer zusammenkochen
  write 'AD'         to name.
  write ftvcom-matnr to name+3(10).
  write ftvcom-kunnr to name+14(10).
  write ftvcom-vbelv to name+21(10).

* Standardtext initialisieren
  call function 'INIT_TEXT'
        exporting
            id       = 'ST'
            language = fxvbpa-spras
            name     = name
            object   = 'TEXT'
       importing
            header   = i_thead
       tables
            lines    = i_tline
*    EXCEPTIONS
*         ID       = 1
*         LANGUAGE = 2
*         NAME     = 3
*         OBJECT   = 4
*         OTHERS   = 5
            .

* Lagerbestand in i_tline holen
  move sy-langu to save_langu.
  move fxvbpa-spras to sy-langu.
  call function 'SPCKB_STOCK_INFORMATION'
       exporting
            matnr        = ftvcom-matnr
            vrkme        = ftvcom-vrkme
       importing
            bestandstext = bestandstext
       exceptions
            others       = 4.
  move save_langu to sy-langu.

  loop at bestandstext into line.
    move ' *' to i_tline-tdformat.
    move line to i_tline-tdline.
    append i_tline.
  endloop.

  call function 'SAVE_TEXT'
       exporting
           client             = sy-mandt
           header             = i_thead
       tables
           lines              = i_tline
           .

* referenz-workarea füllen
  referenz-tdid     = 'ST'.
  referenz-tdobject = 'TEXT'.
  referenz-tdname   = name.
*eject

*}   INSERT
ENDFORM.