小工具:对比两个结构 重叠/不重叠 字段

a376348a523dd47f3736cf724fdbdedb.jpeg

微信群不能扫码进了,可以加我微信SAPliumeng拉进群,申请时请提供您哪个模块顾问,否则是一律不通过的。
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合.

因为最近改老代码接口,有日志表记录多个表信息啥的。

为了确认字段全不全之类的,写了个小工具。

1bc6c24a3d3e33884150898351748b6e.png

63bf591509f62470feccf8041f3db7ba.png

代码:

*&---------------------------------------------------------------------*
*& Report  ZLM_CHECK_FIELD
*&
*&---------------------------------------------------------------------*
*& 功能说明 检查结构1中在结构2中存在和不存在的字段
*& 创建人    LiuMeng
*& 创建时间
*& 修改记录:
*& 修改人修改原因
*"----------------------------------------------------------------------
*& SAP干货铺
*&---------------------------------------------------------------------*
REPORT zlm_check_field.


TYPES slis.
DATA:lt_field1      TYPE slis_t_fieldcat_alv.
DATA:lt_field2      TYPE slis_t_fieldcat_alv.
DATA:lt_field_exist TYPE slis_t_fieldcat_alv.
DATA:lt_field_non   TYPE slis_t_fieldcat_alv.


PARAMETERS:
  is_str1 LIKE  dd02l-tabname,
  is_str2 LIKE  dd02l-tabname.


START-OF-SELECTION.


  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = is_str1
    CHANGING
      ct_fieldcat            = lt_field1
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    RETURN.
  ENDIF.




  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = is_str2
    CHANGING
      ct_fieldcat            = lt_field2
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    RETURN.
  ENDIF.


  LOOP AT lt_field1 INTO DATA(ls_filed).
    READ TABLE lt_field2 TRANSPORTING NO FIELDS
    WITH KEY fieldname = ls_filed-fieldname.


    IF sy-subrc = 0 .
      APPEND ls_filed TO lt_field_exist.
    ELSE.
      APPEND ls_filed TO lt_field_non.
    ENDIF.
  ENDLOOP.


  cl_demo_output=>write( lt_field_exist ).
  cl_demo_output=>write( lt_field_non ).
  cl_demo_output=>display( ).

临时用的,没注释,凑合看吧。

其实也不常用,就是方便自己而已。

推荐阅读:

ABAP新语法1

《ABAP新语法2》

《SM30添加按钮:批导,筛选,排序等完整demo 》

《关于 SM30/VIEW_MAINTENANCE_CALL锁整张表问题》

《Demo:弹出文本输入框》

《关于update task几个有意思的测试》

动态批量修改任意表任意字段的值

动态获取查询条件的一个小Demo

使用cl_gui_docking_container 实现多ALV》

VOFM 修改 组单开票时 会计凭拆分规则

DEMO SUBMIT 某程序并获取该程序ALV数据

DEMO:S/4 1809 FAGLL03H 增加字段增强

几个ABAP实用模板,体力活就别一行行敲了,复制粘贴得了

DEMO:BTE增强实现凭证创建检查

SAP Parallel Accounting(平行分类账业务)配置+操作手册+BAPI demo程序

CC02修改确认日期BAPI:Processing of change number  was canceled》《我是怎样调试BAPI的,以F-02为例

女儿的部分书单

推荐几本小说吧,反正过年闲着也是闲着,看看呗

我是不是被代码给耽误了……不幸沦为一名程序员……

三亚自由行攻略(自己穷游总结)

苏州游记

记码农十周年(20110214--20210214)

不一样的SAP干货铺群:帅哥靓妹、红包、烤羊腿!

十年老码农搬砖习惯和技巧

我这个老码农是怎么debug标准程序的

我是怎样调试BAPI的,以F-02为例

杂谈:几种接口

《干货来袭:2020年公众号内容汇总

Odata 增删改查详例

ODATA CREATE_DEEP_ENTITY 详例

RESTful DEMO 一:SAP 如何提供 RESTful Web 服务

RESTful DEMO 四 :增删改查及调用

DEMO  search help 增强 ( vl03n KO03 等)

录BDC时  弹出的公司代码框问题

《搜索帮助系列》

《增强相关》

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值