获取长文本

长文本的获取：要求产品建一个长文本，根据时间，创建人等相关信息去STXH表内查找

FUNCTION 'READ_TEXT' 内参数的值

参数的值如果是抬头文本可以到表STXH查看,如果是项目文本可以到STXL查看

 

PERFORM frm_read_text USING gs_alv-ebeln gs_alv-ebelp 'F01' 'EKPO' CHANGING gs_alv-zxmwb. "项目文本

FORM frm_read_text  USING    p_vbeln

                             p_posnr

                             p_id

                             p_object

                    CHANGING p_beizu.

  DATA: lt_tdline LIKE TABLE OF tline,

        ls_tdline TYPE tline,

        lv_tdname TYPE thead-tdname.

  CLEAR:lt_tdline.

  lv_tdname = p_vbeln && p_posnr.

  CALL FUNCTION 'READ_TEXT'

    EXPORTING

      client                  = sy-mandt

      id                      = p_id

      language                = sy-langu

      name                    = lv_tdname

      object                  = p_object

    TABLES

      lines                   = lt_tdline

    EXCEPTIONS

      id                      = 01

      language                = 02

      name                    = 03

      not_found               = 04

      object                  = 05

      reference_check         = 06

      wrong_access_to_archive = 07.

  IF lt_tdline IS NOT INITIAL.

    LOOP AT lt_tdline INTO ls_tdline.

      CONCATENATE p_beizu ls_tdline-tdline INTO p_beizu.

    ENDLOOP.

  ENDIF.

ENDFORM.