Reading Text in the PO line item

Question

Hi,
I need to retrieve the Line item Text in the PO (Material PO text). Can anyone Provide me a sample code? i need to display this in a script.
I could not retrive it from the Function Module READ_TEXT.
Can any one help me regarding this?
Regards,
Navaneeth.

Answer 1

DATA: BEGIN OF T_DET OCCURS 0,
       QMNUM LIKE QMEL-QMNUM,
       MBLNR LIKE QMEL-MBLNR,
       LOSMENGE LIKE QALS-LOSMENGE,
      END OF T_DET.
DATA:F_TDOBJECT LIKE THEAD-TDOBJECT,
     F_TDNAME   LIKE THEAD-TDNAME,
     F_TDID     LIKE THEAD-TDID,
     ITAB_LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF ITAB OCCURS 10,
      DESC(72),
     END OF ITAB.
  SELECT QMNUM REFNUM QMDAT QMTXT OBJNR QMGRP QMCOD FROM QMEL
    INTO CORRESPONDING FIELDS OF TABLE T_DET
                              WHERE QMNUM IN S_QMNUM AND
                                    QMART IN S_QMART AND
                                    QMDAT IN S_QMDAT.
LOOP AT T_DET.
   F_TDID     = 'LTQM'.
    F_TDNAME   = T_DET-QMNUM.
    F_TDOBJECT = 'QMEL'.
    F_TDID     = 'LTQM'.
    F_TDNAME   = T_DET-QMNUM.
    F_TDOBJECT = 'QMEL'.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                  = SY-MANDT
        ID                      = F_TDID
        LANGUAGE                = SY-LANGU
        NAME                    = F_TDNAME
        OBJECT                  = F_TDOBJECT
      TABLES
        LINES                   = ITAB_LINES
      EXCEPTIONS
        ID                      = 1
        LANGUAGE                = 2
        NAME                    = 3
        NOT_FOUND               = 4
        OBJECT                  = 5
        REFERENCE_CHECK         = 6
        WRONG_ACCESS_TO_ARCHIVE = 7
        OTHERS                  = 8.
    DESCRIBE TABLE ITAB_LINES LINES SY-TFILL.
    IF SY-TFILL > 0.
      LOOP AT ITAB_LINES.
        ITAB-QMNUM = T_DET-QMNUM.
        ITAB-DESC = ITAB_LINES-TDLINE.
        APPEND ITAB.
        CLEAR ITAB.
      ENDLOOP.
    ENDIF.
ENDLOOP.