DATA:
  lt_text               TYPE STANDARD TABLE OF tline.

*Local Variables:
 DATA:
   lv_tdname_partly     TYPE thead-tdname,
   lv_tdname            TYPE thead-tdname.

*Local Constants:
 CONSTANTS:
   lc_id                TYPE thead-tdid       VALUE '0001',
   lc_object            TYPE thead-tdobject   VALUE 'DOC_ITEM'.

*Local Field Symbols:
 FIELD-SYMBOLS:
   <fs_text>            TYPE tline.

*Refreshing internal tables.
 REFRESH:
   lt_text.

*Clearing of variables.
 CLEAR:
   lv_tdname_partly,
   lv_tdname.

* Concatenate FI Document Number, Fiscal Year and the Item Number
* without space. Please note that the item number is the line item

* number.
  lv_tdname_partly = '01234567892015001'.

* Concatenate the Company Code and (FI Document Number, Fiscal Year and the Item Number)
* seperated by space.
  CONCATENATE '123'             " Company Code
              lv_tdname_partly  " Concatenated Number of 'FI Document Number', 'Fiscal Year' and 'Line Item' (without space).
         INTO lv_tdname         " Fully concatenated number
 SEPARATED BY space.            " Seperated by space.



*---------------------------------------*
*READ TEXT FUNCTION MODULE              *
*---------------------------------------*
*This function module will retreive the value of the long text
*from appropriate database tables. Please note that when retrieving
*the text, the connection language(SY-LANGU) was used. Thus, if a user
*logs in 'French', the long text value might be different for a user
*which logs in 'English'.
 CALL FUNCTION 'READ_TEXT'
   EXPORTING
     client                  = sy-mandt     "Client Number
     id                      = lc_id        "Line Item of the FI document in which the text is stored
     language                = sy-langu     "Language
     name                    = lv_tdname    "For FI: Concatenation of the company code document and the year
     object                  = lc_object    "Document item
   TABLES
     lines                   = lt_text      "The long text will be returned in the following internal table
   EXCEPTIONS
     id                      = 1
     language                = 2
     name                    = 3
     not_found               = 4
     object                  = 5
     reference_check         = 6
     wrong_access_to_archive = 7
     OTHERS                  = 8.

*If value found, proceed with populating the column.
 IF sy-subrc EQ 0.

*  Read the first line of the internal table return
*  by the function module. This internal table will
*  contains the appropriate text.
   READ TABLE lt_text
   ASSIGNING <fs_text>
   INDEX 1.

   IF sy-subrc EQ 0.

*   Write the long text.
    WRITE <fs_text>-tdline.

   ENDIF.

 ENDIF.

Serkan AKKAVAK
Computer Engineer
serkurumsal@yandex.com