SAP SCRIPT: Header text not printing - Custom Purchase Order.

Question

Hello Experts,
I have used the standard MEDRUCK and copied to ZMEDRUCK. I want the PO header text to print in my form.
I have used subroutine-pool and called it in the form.
Here is my subroutine
FORM fetch_table_data TABLES in_tab STRUCTURE itcsy
                             out_tab STRUCTURE itcsy.
  TABLES EKKO.
  DATA: BEGIN OF header OCCURS 0,
          ld_txt1(163),
          ld_txt2(163),
          ld_txt3(163),
        END OF header.
  DATA: li_lines LIKE STANDARD TABLE OF tline WITH HEADER LINE,
        ID like THEAD-TDID,
        TNAME LIKE THEAD-TDNAME,
        TDOBJECT like THEAD-TDOBJECT.
  DATA  HTEXT LIKE EKKO-EBELN.
*  HTEXT = EKKO-EBELN.
  READ TABLE in_tab WITH KEY EKKO-EBELN.
  if sy-subrc = 0.
  TNAME = in_tab-value.
  ENDIF.
TNAME = EKKO-EBELN.
*CONCATENATE EKPO-ebeln EKPO-ebelp INTO v_item_text.
*MOVE v_head_text to HNAME.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
*   CLIENT                        = SY-MANDT
    id                            = 'F01'
    language                      = 'E'
    name                          = TNAME
    object                        = 'EKKO'
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        = TNAME
  tables
    lines                         = li_lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
*   WRONG_ACCESS_TO_ARCHIVE       = 7
*   OTHERS                        = 8
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR out_tab.
out_tab-VALUE = TNAME.
CONDENSE out_tab-VALUE.
MODIFY out_tab TRANSPORTING VALUE WHERE NAME = 'TNAME'.
ENDFORM.
And my script in the form is
PERFORM FETCH_TABLE_DATA IN PROGRAM ZMEDRUCK_SUBP2
USING &EKKO-EBELN&
CHANGING &TNAME&
ENDPERFORMpar RECEIVED FROM M/S     &TNAME&
The header text is still not flowing in my form.
What mistake i'm I doing here ?
How can I resolve this ?
Pls help !

Answer 1

Hi,
Data is li_lines internal table. 1st you have to read the text form the internal table line by sy-tabix.
At last you have to concatenate these variable into the out tab value.
you can use the following code
ORM fetch_table_data TABLES in_tab STRUCTURE itcsy
                             out_tab STRUCTURE itcsy.
  TABLES EKKO.
  DATA: BEGIN OF header OCCURS 0,
          ld_txt1(163),
          ld_txt2(163),
          ld_txt3(163),
        END OF header.
  DATA: li_lines LIKE STANDARD TABLE OF tline WITH HEADER LINE,
        ID like THEAD-TDID,
        TNAME LIKE THEAD-TDNAME,
        TDOBJECT like THEAD-TDOBJECT.
  DATA  HTEXT LIKE EKKO-EBELN.
READ TABLE in_tab WITH KEY EKKO-EBELN.
  if sy-subrc = 0.
  TNAME = in_tab-value.
  ENDIF.
ALL FUNCTION 'READ_TEXT'
  EXPORTING
  CLIENT                        = SY-MANDT
    id                            = 'F01'
    language                      = 'E'
    name                          = TNAME
    object                        = 'EKKO'
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
IMPORTING
  HEADER                        =
  tables
    lines                         = li_lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
  WRONG_ACCESS_TO_ARCHIVE       = 7
  OTHERS                        = 8
IF sy-subrc  0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
data : f_lines TYPE i,
DESCRIBE TABLE li_lines LINES f_lines.
data: lstr type String,
      lstr1 type string,
      lstr2 type string,
      lstr3 type string,
      lstr4 type string.
read table li_lines index 1.
lstr = li_lines
condense lstr.
clear li_lines
read table li_lines index 2.
lstr1 = li_lines
condense lstr.
clear li_lines
read table li_lines index 3.
lstr2 = li_lines
condense lstr.
clear li_lines
if f_lines GT 3.
ead table li_lines index 4.
lstr3 = li_lines
condense lstr.
clear li_lines
ead table li_lines index 5.
lstr4 = li_lines
condense lstr.
clear li_lines
endif.
data : v_text type text.
concatenate  lstr1 lstr2 lstr3 lstr4 into v_text separate by ' '.
CLEAR out_tab.
READ TABLE out_tab WITH KEY name = 'TNAME'.
out_tab-value = v_text
MODIFY out_tab INDEX sy-tabix.
Regards
Nayan Kumar