PO Header text and item text

DATA: BEGIN OF LTEXT OCCURS 50.
        INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.

DATA: NAME TYPE THEAD-TDNAME.
DATA: LINE TYPE STANDARD TABLE OF TLINE.

TYPES: BEGIN OF ST_2,
        JK(1),
        TJ(1),
        TENDERID TYPE TDLINE,
      END OF ST_2.

DATA: IT TYPE STANDARD TABLE OF ST_2.
DATA: WA_2 LIKE LINE OF IT.



LOOP AT ITAB_PO INTO WA_PO.
  NAME = WA_PO-EBELN.
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT   = SY-MANDT
      ID       = 'F17'
      LANGUAGE = 'E'
      NAME     = NAME
      OBJECT   = 'EKKO'
    TABLES
      LINES    = LINE
    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 EQ 0.
    READ TABLE line INDEX 1 INTO WA_2.
    WA_PO-TENDERID = WA_2-TENDERID.
    MODIFY ITAB_PO FROM WA_PO.
  ENDIF.
  CLEAR: WA, WA_2.
ENDLOOP.