IF IM_UDATE1 <> IM_UDATE2."get data from bw
    CLEAR IT_SEL_TAB.
    IT_SEL_TAB = '( /BIC/Z01CH0184 >= '''.
    IT_SEL_TAB+20(1) = ''''.
    IT_SEL_TAB+21(8) = IM_UDATE1.
    IT_SEL_TAB+29(1) = ''''.
    IT_SEL_TAB+30(24) = ' AND /BIC/Z01CH0184 <= '''.
    IT_SEL_TAB+54(8) = IM_UDATE2.
    IT_SEL_TAB+62(1) = ''''.
    IT_SEL_TAB+63(2) = ' )'.
    APPEND IT_SEL_TAB.
  ELSE.
    CLEAR IT_SEL_TAB.
    IT_SEL_TAB = '( /BIC/Z01CH0184 = '''.
    IT_SEL_TAB+20(8) = IM_UDATE1.
    IT_SEL_TAB+28(1) = ''''.
    IT_SEL_TAB+29(2) = ' )'.
    APPEND IT_SEL_TAB.

ENDIF.
*--------------------OPTIONS(WHERE)----------------------*

*-------------------get field catalog--------------------*
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0165'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0173'.
  APPEND NAMETAB1.

NAMETAB1-FIELDNAME = '/BIC/Z01CH0174'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0175'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0183'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0184'.
  APPEND NAMETAB1.
*-------------------get field catalog--------------------*

*-------------------get data from BW---------------------*
  CALL FUNCTION 'RFC_READ_TABLE'
*    DESTINATION LS_DESTINATIN
    DESTINATION 'BWPCLNT001'  "BW SYSTEM
    EXPORTING
      QUERY_TABLE                = '/BIC/AZ01CM00400' "The table from BW system
*    DELIMITER                  = ' '
*    NO_DATA                    = ' '
*    ROWSKIPS                   = 0
*    ROWCOUNT                   = 0
    TABLES
      OPTIONS                    = IT_SEL_TAB[]
      FIELDS                     = NAMETAB1[]
      DATA                       = LT_DATA[]
   EXCEPTIONS
     TABLE_NOT_AVAILABLE        = 1
     TABLE_WITHOUT_DATA         = 2
     OPTION_NOT_VALID           = 3
     FIELD_NOT_VALID            = 4
     NOT_AUTHORIZED             = 5
     DATA_BUFFER_EXCEEDED       = 6
     OTHERS                     = 7
            .

IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
      WHEN 1.
        E_MSGTY = 'E'.
        E_ERMSG = 'RFC Error : Internal Error'.
      WHEN 2.
        E_MSGTY = 'E'.
        E_ERMSG = 'RFC Error : No fields in table' .

WHEN 3.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : Table is not active'.

WHEN 4.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : No authorization' .

WHEN OTHERS.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : No records selected'.
    ENDCASE.
  ENDIF.

最新文章

1. #ThinkPHP_3.2.2模型# where查询条件汇总
2. 花几分钟搭建一个自已的GIT服务器
3. LeetCode OJ--Minimum Window Substring ***
4. C迷途指针
5. 基于spring mvc的注解DEMO完整例子
6. ecshop微信支付（0923更新）商户支付密钥key的生成与设置
7. [Node.js] Configuring npm package.json scripts
8. 发现js端日期跟php端日期格式不一致
9. uiview 的transitionWithView 方法使用
10. LINUX 内核2
11. Linux安装oracle 10g常见问题之——ORA-01078,LRM-00109,ORA-01102
12. Java 中正确使用 hashCode 和 equals 方法
13. sql每五秒插入一条数据 一次插入N条数据
14. libc++abi.dylib handler threw exception
15. Cocos2d-x 创建自己定义项目模板
16. 进入css3动画世界（一）
17. Tengine 安装配置全过程（nginx 同理）
18. Python系列之 - 字符编码问题
19. [Postman]创建第一个集合(2)
20. 帝国cms建站总结-（分页）

热门文章

1. 网站图标 favicon.ico
2. js异步计时器
3. ubuntu16.04 无法连接wifi和校园宽带问题的解决办法
4. 怎样从外网访问内网Django？
5. webform 使用富文本编辑器
6. maven项目报错xxx cannot be resolved to a type
7. python opencv 检测特定颜色
8. Docker 配置
9. Codeforces Round #481 (Div. 3)题解
10. nginx: [emerg] BIO_new_file(&quot;/etc/nginx/ssl_key/server.crt&quot;) failed (SSL: error:02001002:syste