ABAP一次读取多条长文本记录

 

    LOOP AT lt_lips INTO DATA(ls_lips).
      APPEND VALUE #( sign = 'I' option = 'EQ' low = ls_lips-vbeln_dn ) TO lt_name_ranges.
    ENDLOOP.
    SORT lt_name_ranges.
    DELETE ADJACENT DUPLICATES FROM lt_name_ranges
      COMPARING ALL FIELDS.

    APPEND VALUE #( sign = 'I' option = 'EQ' low = 'Z001' ) TO lt_id_ranges.
    APPEND VALUE #( sign = 'I' option = 'EQ' low = 1 )      TO lt_language_ranges.
    APPEND VALUE #( sign = 'I' option = 'EQ' low = 'VBBK' ) TO lt_object_ranges.

    CALL FUNCTION 'READ_MULTIPLE_TEXTS'
      EXPORTING
        client                  = sy-mandt
*       NAME                    = '*'
*       OBJECT                  = '*'
*       ID                      = '*'
*       LANGUAGE                = '*'
        name_ranges             = lt_name_ranges
        object_ranges           = lt_object_ranges
        id_ranges               = lt_id_ranges
        language_ranges         = lt_language_ranges
*       ARCHIVE_HANDLE          = 0
*       LOCAL_CAT               = ' '
*       WILDCARD_PLUS           = ' '
      IMPORTING
        text_table              = lt_text_table
        error_table             = lt_error_table
      EXCEPTIONS
        wrong_access_to_archive = 1.

LOOP AT lt_text_table INTO DATA(ls_text_table) WHERE header-tdname = ls_lips-vbeln_dn.
    LOOP AT ls_text_table-lines INTO DATA(ls_lines).
        IF lt_field-zbz_dn IS INITIAL.
          lt_field-zbz_dn = ls_lines-tdline.
        ELSE.
          lt_field-zbz_dn = lt_field-zbz_dn && ls_lines-tdline.
        ENDIF.
     ENDLOOP.
ENDLOOP.