read_text完整示例

read_text完整示例
*REPORT ytest3 line-size 180 line-count 50(1).
"报表宽度180，每页显示50行，其中1行为页脚

*本程序以读取VL03N中的交货单号、凭证日期和长文本为示例

DATA : BEGIN OF t_likp OCCURS 0,
         vbeln TYPE likp-vbeln,
         bldat TYPE likp-bldat,
         tdline TYPE tline-tdline,
       END OF t_likp.

DATA: il_tline LIKE tline OCCURS 0 WITH HEADER LINE.

SELECT
  vbeln  "交货单号
  bldat  "凭证日期
  INTO CORRESPONDING FIELDS OF TABLE t_likp
  FROM likp
  up to 20 rows.

DATA : vl_tdname LIKE thead-tdname.

LOOP AT t_likp.

  vl_tdname = t_likp-vbeln.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                  = sy-mandt
      id                      = 'Z006'
      language                = '1'
      name                    = vl_tdname
      object                  = 'VBBK'
    TABLES
      lines                   = il_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.

  ELSE.

    LOOP AT il_tline.
      CONCATENATE t_likp-tdline il_tline-tdline INTO t_likp-tdline.
    ENDLOOP.
    MODIFY t_likp.

  ENDIF.

ENDLOOP.

SORT t_likp BY vbeln.

LOOP AT t_likp.
  WRITE : / t_likp-vbeln,t_likp-bldat,t_likp-tdline.
ENDLOOP.