报表监控程序V1.1

1.1 更新内容(2017-12-13)

1、修改了报表监控子程序，使用了BREAK-POINT AT NEXT APPLICATION STATEMENT语句，使得调试执行时更方便了。

点调试，然后进入报表选择屏幕，然后点执行，自动进入报表程序的监控开始位置。

2、修改了报表监控主程序，使平均时间和执行时间只显示3位小数。

下载地址：https://pan.baidu.com/s/1dFlioiH

密码: h3dj

背景及目标

本人目前在一个运维项目上，有大量二次开发的报表程序。为实现以下几个目的，我自己开发了一个报表监控程序：

统计报表运行次数

有些报表需求完成开发后，使用频率不高，在以后的工作中可以对类似的开发需求进行控制

统计报表执行时间

有些报表执行时间较长，需要了解报表的执行效率，并进行针对性的优化

记录报表查询条件

了解用户使用报表的方式，可以针对用户的使用习惯，对执行慢的报表做进一步的效率优化，或者针对其功能拆分为不同的报表

实现方式

本人不才，没有找到执行事务代码或执行程序的出口(如果有请大顾们留言告知，谢谢)。所以实现思路为：编写一段通用的子程序，在需要监控的程序中引入子程序，并调用子程序的方法。

补充说明：

1、考虑到不需要统计报表在查询界面、报表展示界面的停留时间，而只需要统计获取数据、处理数据的时间，所以上面提到的出口即便是存在，在此需求中也难以适用。

2、当时也想做成Function，但是因为个人习惯问题，还是做成子程序了。而且为了在更改原报表的时候尽量少写代码，我在子程序里又写了宏去调用form，这样只需要在原报表中写一行include和两行宏代码即可。

日志表结构

程序代码下载

链接:https://pan.baidu.com/s/1gf6HXwZ

密码: vvxc

使用方式

REPORT zz.

INCLUDE zabap_report_monitor_inc. "新加代码

START-OF-SELECTION.

d_monitor_start 'X'. "新加代码

"取数据

...

d_monitor_end 'X'. "新加代码

"显示数据

...

说明：宏的第一个参数为，是否立即执行COMMIT WORK。

效果展示

功能介绍

统计报表执行次数

执行中出现错误消息、或退出报表、或DUMP，均算做无效次数

记录报表查询条件

带选择条件执行原报表程序

带选择条件调试执行程序

按3次F5可进入原程序

日志删除

删除前，需输入“YES”确认，不可恢复

如有其他功能需求，欢迎留言反馈。