微信群不能扫码进了,可以加我微信SAPliumeng拉进群,申请时请提供您哪个模块顾问,否则是一律不通过的。
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合.
因为最近改老代码接口,有日志表记录多个表信息啥的。
为了确认字段全不全之类的,写了个小工具。
代码:
*&---------------------------------------------------------------------*
*& 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》
《关于 SM30/VIEW_MAINTENANCE_CALL锁整张表问题》
《使用cl_gui_docking_container 实现多ALV》
《DEMO:S/4 1809 FAGLL03H 增加字段增强》
《几个ABAP实用模板,体力活就别一行行敲了,复制粘贴得了》
《SAP Parallel Accounting(平行分类账业务)配置+操作手册+BAPI demo程序》
《CC02修改确认日期BAPI:Processing of change number was canceled》《我是怎样调试BAPI的,以F-02为例》
《女儿的部分书单》
《苏州游记》
《杂谈:几种接口》
《RESTful DEMO 一:SAP 如何提供 RESTful Web 服务》