Item text needed in Smartform for Purchase Order

Question

Dear Friends
i am creaing a smartform form for a Purchase Order , where i am to show item text , & material po text
also but i am not getting how to show them , i have tried with Function Module Read_ text but if for any item text is not maintained it throw a error     text xxxxxxxxxx code f01 not found in language en .
kindly somebody help me with the elaborated steps
regards
digvijay rai

Answer 1

Requirement : Need to display the item text in the scripts Tcode me23n.
problem: the below subroutine program which i wrote reads the entire paragraph but when the values transfered to the script, the script variable accepts only one line. can you please help to pass  the entire value to scripts.
Actual output
th respect to the materials. The only warranties for SAP Group products and services are those that are set forth in the exchoose warranty statements accompanying such products and services, if any. Nothing herein should be construed as constituting an additional warranty.D
Displayed  output
      th respect to the materials. The only warranties for SAP Group products and s
code written in scripts :
DEFINE &VALUE& TYPE STRING(500)
PERFORM ITEMTEXT IN PROGRAM ZDISPLAYINGITEMTEXT
USING &EKKO-EBELN&
USING &EKPO-EBELP&
CHANGING &VALUE&
ENDPERFORM
Item Text : &VALUE&
REPORT  ZDISPLAYINGITEMTEXT.
DATA : name type thead-tdname,
       p_ebeln TYPE ekko-ebeln,            "  Purchase order Number
       p_ebelp TYPE ekpo-ebelp.
types :strin(450).
data : p_valu type strin.
   data : p_valu1 type strin.
data: lines type table of tline with header line.
   data: IT_LINE LIKE STANDARD TABLE OF itcsy INITIAL SIZE 0 WITH HEADER LINE,
IT_TEXT1 LIKE STANDARD TABLE OF itcsy INITIAL SIZE 0 WITH HEADER LINE,
W_LINE LIKE IT_LINE.
Types : stri(450).
data f_name type stri.
FORM itemtext TABLES i_intab STRUCTURE itcsy
                       i_outab STRUCTURE itcsy.
*BREAK-POINT.
    READ TABLE i_intab INDEX 1.
  MOVE i_intab-value TO p_ebeln.
  READ TABLE i_intab INDEX 2.
  MOVE i_intab-value TO  p_ebelp.
*parameters: p_ebeln type ekko-ebeln,
           p_ebelp type ekpo-ebelp.
concatenate p_ebeln p_ebelp into name.
call function 'READ_TEXT'
     exporting
          id                      = 'F01'
          language                = sy-langu
          name                    = name
          object                  = 'EKPO'
     tables
          lines                   = lines
     exceptions
          id                      = 1
          language                = 2
          name                    = 3
          not_found               = 4
          object                  = 5
          reference_check         = 6
          wrong_access_to_archive = 7
          others                  = 8.
loop at lines.  "   INTO w_line.
BREAK-POINT.
*move w_line to it_text1.
*append it_text1.
*write:/ it_line.
*p_valu = f_name.
*p_valu1 = w_line.
concatenate p_valu lines-tdline into p_valu.
*p_valu = f_name.
endloop.
message p_valu type 'I'.
READ TABLE i_outab INDEX 1.
    MOVE p_valu TO i_outab-value.
    MODIFY i_outab INDEX sy-tabix.
*loop at lines.
write:/ f_name.
*endloop.
*READ TABLE i_outab INDEX 1.
   MOVE lines TO i_outab-value.
   MODIFY i_outab INDEX sy-tabix.
endform.