SAP READ_TEXT 读取物料长描述

DATA : lv_name TYPE thead-tdname. "类型必须用thead-tdname
DATA: lt_tline TYPE TABLE OF tline,
ls_tline TYPE tline,
l_tdname TYPE thead-tdname,
l_tdfuser TYPE stxh-tdfuser.

SELECT mara~mandt
mara~matnr
mara~meins
mara~laeda
mara~matkl
marc~werks
marc~ekgrp
marc~lgpro "库存地点

  makt~maktg

 FROM mara  INNER JOIN marc ON mara~matnr = marc~matnr
            INNER JOIN makt ON mara~matnr = makt~matnr
        
  INTO CORRESPONDING FIELDS OF TABLE gt_mara
 WHERE mara~mandt = mandt
  AND mara~matnr = matnr
  AND marc~werks = werks    .

LV_NAME = ALV_OUT-MATNR.
CLEAR LT_TLINE. REFRESH LT_TLINE.
CALL FUNCTION ‘READ_TEXT’
EXPORTING
ID = ‘GRUN’
LANGUAGE = ‘1’
NAME = LV_NAME
OBJECT = ‘MATERIAL’
TABLES
LINES = LT_TLINE
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.
CLEAR LS_ITEM-TXZ01.
LOOP AT LT_TLINE.
CONCATENATE LS_ITEM-TXZ01 LT_TLINE-TDLINE INTO LS_ITEM-TXZ01.
ENDLOOP.
ENDIF.