• READ_TEXT


    【转自http://lz357502668.blog.163.com/blog/static/1649674320109119101907/】
    这里,定义ITAB内表来存储长文本,并放到内表ITAB_EKKO_EKPO中,
    注意,这里是读抬头的长文本信息,没有加项目号,
    DATA: ITAB LIKE TLINE OCCURS 0 WITH HEADER LINE.   "长文本
     
      LOOP AT ITAB_EKKO_EKPO.
     
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            CLIENT                  = SY-MANDT
            ID                      = 'F01'
            LANGUAGE                = SY-LANGU
            NAME                    = ITAB_EKKO_EKPO-EBELN
            OBJECT                  = 'EKKO'
          TABLES
            LINES                   = ITAB
          EXCEPTIONS
            ID                      = 1
            LANGUAGE                = 2
            NAME                    = 3
            NOT_FOUND               = 4
            OBJECT                  = 5
            REFERENCE_CHECK         = 6
            WRONG_ACCESS_TO_ARCHIVE = 7
            OTHERS                  = 8.
     
     
        LOOP AT ITAB.
    *      MESSAGE ITAB-TDLINE TYPE 'I' .
          IF SY-SUBRC = 0.
            ITAB_EKKO_EKPO-TDLINE = ITAB-TDLINE.
          ELSE.
            CLEAR : ITAB.
          ENDIF.
        ENDLOOP.
        MODIFY ITAB_EKKO_EKPO.
      ENDLOOP.
     
    详细见ZMMF0001_TL。
     
    读项目的长文本信息,要加项目号。
    LOOP AT ITAB.
        CONCATENATE ITAB-VBELN ITAB-POSNR INTO TEMP_NAME.
        CALL FUNCTION 'READ_TEXT'
        EXPORTING
          CLIENT                        = SY-MANDT
          ID                            = 'Z001'
          LANGUAGE                      = SY-LANGU
          NAME                          = TEMP_NAME
          OBJECT                        = 'VBBP'
         ARCHIVE_HANDLE                = 0
         LOCAL_CAT                     = ' '
    *   IMPORTING
    *     HEADER                        =
        TABLES
          LINES                         = TEXT_ITAB
       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.
    *  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
     
        LOOP AT TEXT_ITAB.
          SKIP .
          WRITE : / TEXT_ITAB-TDLINE.
        ENDLOOP.
        REFRESH TEXT_ITAB.
      ENDLOOP.
  • 相关阅读:
    Shell-01-脚本开头实现自动添加注释
    Linux中通过SHELL发送邮件
    linux服务器修改密码登录Failed to restart ssh.service: Unit ssh.service not found
    ffmpeg+java实现五秒钟剪辑80个视频
    Vue学习-watch 监听用法
    springboot添加定时任务
    Spring异常:java.lang.NoClassDefFoundError: org/springframework/core/OrderComparator$OrderSourceProvider
    多线程实战-龟兔赛跑
    Git分支管理(二)
    android studio bug : aidl is missing 解决方案
  • 原文地址:https://www.cnblogs.com/rainysblog/p/3992417.html
Copyright © 2020-2023  润新知