zoukankan      html  css  js  c++  java
  • 取长文本 READ_TEXT

    ****取长文本
     FORM GET_TEXT USING TDID TDNAME.

      SELECT SINGLE mandt tdobject tdname tdid tdspras
       INTO  (l_mandt,l_tdobject,l_tdname,l_tdid,l_tdspras)
       FROM stxh
       CLIENT SPECIFIED
       WHERE  mandt sy-mandt
              AND tdid TDID
              AND tdname TDNAME.
      if sy-subrc 0.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            client                        sy-mandt
            id                            l_tdid
            language                      l_tdspras
            name                          l_tdname
            object                        l_tdobject
    *      ARCHIVE_HANDLE                = 0
    *      LOCAL_CAT                     = ' '
    *    IMPORTING
    *      HEADER                        =
          TABLES
            lines                         i_tline
         EXCEPTIONS
           id                            1
           language                      2
           name                          3
           not_found                     4
           object                        5
           reference_check               6
           wrong_access_to_archive       7
           OTHERS                        8.

        LOOP AT i_tline.
    *      IF sy-tabix = 1.
            if TDID 'MKO'.
              CONCATENATE GT_OUTPUT-STKTXL i_tline-tdline into GT_OUTPUT-STKTXL.
              CONDENSE GT_OUTPUT-STKTXL.
    *          GT_OUTPUT-STKTXL = i_tline-tdline.
            else.
              CONCATENATE GT_OUTPUT-POTXL i_tline-tdline into GT_OUTPUT-POTXL.
              CONDENSE GT_OUTPUT-POTXL.
    *          GT_OUTPUT-POTXL = i_tline-tdline.
            endif.
    *      ENDIF.
        ENDLOOP.
      endif.
    ENDFORM.

  • 相关阅读:
    bzoj 2002: [Hnoi2010]Bounce 弹飞绵羊
    1691: [Usaco2007 Dec]挑剔的美食家
    CF809E Surprise me!
    「总结」狄利克雷卷积,莫比乌斯反演和杜教筛
    AT3611 Tree MST
    AT2134 Zigzag MST
    CF891C Envy
    【HNOI2018】游戏
    【HNOI2016】树
    【HNOI2016】网络
  • 原文地址:https://www.cnblogs.com/rockyzjut/p/3171447.html
Copyright © 2011-2022 走看看