READ_TEXT_TABLE

最新推荐文章于 2026-06-21 15:14:42 发布

原创最新推荐文章于 2026-06-21 15:14:42 发布 · 544 阅读

本内容遵循CC 4.0 BY-SA版权协议

标签

#运维 #服务器 #c语言

    DATA:ls_text_table TYPE itclh,
         lt_text_table LIKE TABLE OF ls_text_table.

    DATA:ls_tline TYPE tline,
         lt_tline LIKE TABLE OF ls_tline.

    DATA:text_headers     LIKE  thead   OCCURS 0 WITH HEADER LINE.
    DATA:client_specified TYPE  abap_bool.

    client_specified      = sy-mandt.

    REFRESH text_headers.
    text_headers-tdobject = 'EKKO'.
    text_headers-tdname   = it_result-ebeln.
    text_headers-tdid     = 'F01'.
    APPEND text_headers.

    text_headers-tdid     = 'F02'.
    APPEND text_headers.

    text_headers-tdid     = 'F03'.
    APPEND text_headers.
    CLEAR  text_headers.

    REFRESH lt_text_table.
    CALL FUNCTION 'READ_TEXT_TABLE'
      EXPORTING
        client_specified        = client_specified
        archive_handle          = 0
        local_cat               = ' '
      IMPORTING
        text_table              = lt_text_table
      TABLES
        text_headers            = text_headers
      EXCEPTIONS
        wrong_access_to_archive = 1
        OTHERS                  = 2.

    LOOP AT lt_text_table INTO ls_text_table.
      MOVE-CORRESPONDING ls_text_table-lines TO lt_tline.
      IF   ls_text_table-header-tdid = 'F01'.
        LOOP AT lt_tline INTO ls_tline .
          it_result-f01 = it_result-f01 && ls_tline-tdline.
        ENDLOOP.
      ENDIF.
      IF   ls_text_table-header-tdid = 'F02'.
        LOOP AT lt_tline INTO ls_tline.
          it_result-f02 = it_result-f02 && ls_tline-tdline.
        ENDLOOP.
      ENDIF.
      IF   ls_text_table-header-tdid = 'F03'.
        LOOP AT lt_tline INTO ls_tline.
          it_result-f03 = it_result-f03 && ls_tline-tdline.
        ENDLOOP.
      ENDIF.
    ENDLOOP.