很早之前就想写个能记录函数模块日志的通用工具，最早尝试时，没有想清楚插入代码的体积过大问题的解决方案。在一些群友的提醒下，了解到可以用宏来处理这一问题。不过当时比较忙，没有动笔，后来也渐渐忘记。最近又想起这件事，花了2天完成了一个初步的实现。介绍给大家，希望能有参考价值。
本文链接：https://www.cnblogs.com/hhelibeb/p/13560754.html
原创内容，转载请注明
2020.10.20 前些天发现了一些bug，之前下载过的话请更新到最新版。
简介
目标
本工具有几个目标：
- 把日志数据存储到一个统一日志表中，避免为每个接口创建日志表，从而减少重复工作量。
- 用一段通用代码实现日志存储，可以通过配置表来开关功能。
- 以JSON格式存储日志，并提供一定的索引查询功能。
- 允许根据日志的唯一ID来重处理数据（类似事务代码WE19）。
目前目标1, 2已经实现，3, 4部分实现，还在完善中。
原理
基本原理是使用一些动态编程技术，在函数运行时获取参数值，转换为JSON数据存储到表中。
日志使用唯一ID作为主键。
重处理时，根据日志记录，动态生成ABAP变量，并从JSON中获取值，赋值给变量，再动态地调用日志中记录的FM。
代码量目前还很比较少，只有几百行，可以阅读包含文件ZAFL_MACROS和类ZCL_AFL_UTILITIES以了解更多细节。
关于ABAP动态编程，如果有不懂的地方，可以参考：这一系列文章：Dynamic Programming in ABAP
项目地址
项目名：abap fm logger
Github地址：https://github.com/hhelibeb/abap-fm-logger
请使用ABAPGIT安装，如果你觉得有帮助的话，欢迎Star.
使用
介绍abap fm logger的用法，包含代码、配置、报表等。
报表
日志存储在表ZAFL_LOG中，报表程序ZAFL_VIEWER可以用于查询/重处理日志
点击JSON字段可以查看参数详情。
选中日志行，点击工具栏的“Process Selected Item”，则程序会尝试使用选中的日志的参数记录重新调用相应接口。
日志存储
只需要2个复制粘贴就能完成代码部分，非常简单：
1, 添加包含文件ZAFL_MACROS到需要记录日志的FM的函数组中，
FUNCTION-POOL zzxxxx. INCLUDE zafl_macros.
2, 在函数中调用相应的宏，
FUNCTION z_fm. **初始化logger，需要在FM的开头部分调用 /afl/log_init. **可选，最多指定3个用于搜索的字段（比如公司代码、物料号等） /afl/set_custom_fields 'cust field1' 'cust field2' 'cust field3'. **可选，记录状态码，如S/E等，最多2位 /afl/set_status 'S' 'message'. **保存日志，必须在FM的结尾处 /afl/save. ENDFUNCTION.
这里， /afl/log_init 和 /afl/save 是必选的，而 /afl/set_custom_fields 和 /afl/set_status 提供了一些灵活功能，可以按需选择是否调用。
配置
表ZAFL_CONFIG用于配置abap fm logger的功能，选项包括，
- FNAME: 函数模块名。
- ENABLED: 如勾选，启用日志记录功能。
- EXPORT: 如勾选，启用Export参数的记录。
- IMPORT: 如勾选，启用IMPORT参数的记录。
- TABLE_IN: 如勾选，启用TABLES参数的记录（在函数开始时）。
- TABLE_OUT: 如勾选，启用TABLES参数的记录（在函数结束时）。
另外还可以指定3个索引字段的显示名（CUST_NAME），它们会影响的ZAFL_VIEWER中的显示效果。
可以使用事务SM30维护配置。
待改进
目前发现有2个问题需要改进，
- 如果接口包含CURR类型字段，虽然可以正常记录日志，但重处理时会无法读取日志中的CURR类型字段值。2020.10.21已经在最近的更新中解决了这个问题。
- 没有按字段值搜索日志的功能（类似事务代码WE10）。
- 不支持tables参数。 2020.10.02 已经增加tables参数支持。
希望近期可以改进。