The long text for purchase order text field in mm03

Question

Hi,
     Please provide me long text for purchase order field.in mm03 the view purchase order text having the long text for purchase order.this is enter when ever your creating the material.but we have table and field name for that and also how to handle this long text.please provide me urgently.
Thanks & Regards,
Radhakrishna.

Answer 1

Hi,
A sample code for ur requirement.
TABLES : ekko,   "Purchasing Document Header
         ekpo,   "Purchasing Document Item
         thead.  "SAPscript: Text Header
DATA: t_theads LIKE stxh  OCCURS 0 WITH HEADER LINE.
DATA: t_tlines LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: v_ebeln_ebelp(15) TYPE c.
TYPES: BEGIN OF t_download,
       ebeln LIKE ekko-ebeln,
       ebelp LIKE ekpo-ebelp,
       tdobject LIKE stxh-tdobject,
       tdid LIKE stxh-tdid,
       tdspras LIKE stxh-tdspras,
       count(4) TYPE c,
       tdformat LIKE tline-tdformat,
       tdline LIKE tline-tdline,
     END OF t_download.
TYPES: BEGIN OF t_header,
      line1(20) TYPE c,
      line2(20) TYPE c,
      line3(20) TYPE c,
      line4(10) TYPE c,
      line5(10) TYPE c,
      line6(10) TYPE c,
      line7(10) TYPE c,
      line8(10) TYPE c,
      END OF t_header.
DATA: g_filename TYPE string.
DATA: gt_header TYPE STANDARD TABLE OF t_header.
DATA: gs_header TYPE t_header.
DATA: gt_download TYPE STANDARD TABLE OF t_download.
DATA: gs_download TYPE t_download,
    gt_tlines   LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: v_subrc TYPE subrc.
DATA: v_nb_lines TYPE i.
DATA: v_ok TYPE i.
DATA: v_ko TYPE i.
DATA: v_ow TYPE i.
DATA:  p_fname TYPE string.
DATA: g_append.
                          SELECTION SCREEN                          *
SELECT-OPTIONS : s_ebeln  FOR ekko-ebeln.
PARAMETERS:
   p_filedn(132) TYPE c OBLIGATORY,
   p_file(132) TYPE c OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filedn.
  PERFORM file_f4_get CHANGING p_filedn.
START-OF-SELECTION.
*Select all the purchase order corresponding to select criteria
  CLEAR t_theads. REFRESH t_theads.
  SELECT *
  FROM ekko
  WHERE ebeln IN s_ebeln.
*Select all the text for P.O. header
    SELECT * FROM stxh
          APPENDING TABLE t_theads
          WHERE tdobject = 'EKKO'
          AND tdname      = ekko-ebeln.
*Select Item of each P.O.
    SELECT *
    FROM ekpo
    WHERE ebeln = ekko-ebeln.
      CONCATENATE ekpo-ebeln ekpo-ebelp
      INTO v_ebeln_ebelp.
*Select the text for P.O. item.
      SELECT * FROM stxh
            APPENDING TABLE t_theads
            WHERE tdobject = 'EKPO'
              AND tdname   = v_ebeln_ebelp.
    ENDSELECT.              "select ekpo
  ENDSELECT.             "select ekko
  DESCRIBE TABLE t_theads LINES v_nb_lines.
  LOOP AT t_theads.
Read the text from pool
    CLEAR thead.
    REFRESH t_tlines.
    CALL FUNCTION 'READ_TEXT'                               "#EC *
         EXPORTING
              id                      = t_theads-tdid
              language                = t_theads-tdspras
              name                    = t_theads-tdname
              object                  = t_theads-tdobject
         IMPORTING
              header                  = thead
         TABLES
              lines                   = t_tlines
         EXCEPTIONS
              id                      = 1
              language                = 2
              name                    = 3
              not_found               = 4
              object                  = 5
              reference_check         = 6
              wrong_access_to_archive = 7
              OTHERS                  = 8.
    MOVE-CORRESPONDING thead TO gs_download.
    gs_download-ebeln = thead-tdname+0(10).
    IF thead-tdobject = 'EKPO'.
      gs_download-ebelp = thead-tdname+10(5).
    ENDIF.
    gs_download-count = 0.
    LOOP AT gt_tlines.
      gs_download-tdformat = gt_tlines-tdformat.
      gs_download-tdline = gt_tlines-tdline.
      gs_download-count = gs_download-count + 1.
      APPEND gs_download TO gt_download.
    ENDLOOP.
    CLEAR gs_download.
  ENDLOOP.
END-OF-SELECTION.
Hope this helps.
please reward points if  useful.
Regards
rose