在 ABAP 开发工具运行时错误显示界面里植入思否猫
我们开发人员每天编程，调试代码，不可避免地会遇到运行时异常和运行时错误。一旦运行时错误发生，程序会非正常终止，标志着程序的实际执行情况同我们的预期有差异，想必每一位开发人员看到运行时错误心情都不会太好。
笔者平时使用的后台开发语言是 ABAP，使用的开发 IDE 是 SAPGUI，因此尝试着把一只可爱的思否猫，植入到 ABAP 运行时错误显示界面上来，试图让思否猫给遇到运行时错误的倒霉的开发人员一丝慰藉。
ABAP 开发工具里显示运行时错误的事物码为 ST22，其标准实现 ABAP 程序名称为 SAPMS380.
按照笔者文章介绍的步骤开发完成后，效果如下：
这是在我的 ABAP 系统里的实现效果：
下面是详细的实现步骤。
我们使用 ABAP 增强工具，对这个系统级别的 ABAP 报表进行增强，在增强里创建我们自己的植入思否猫的逻辑。
我们在这个报表的 READ_SNAPT 的 subroutine 里做增强，这个 subroutine 在运行时异常的具体内容，从数据库表读取到 ST22 界面时调用，因此这是一个最佳的植入思否猫图案的 hook 所在：
名叫 read_snapt 的 subroutine，其输出参数 text_out, 存放的就是显示在 ST22 事物码运行时的明细信息，因此我们创建一个隐式增强，把思否猫对应的字符格式的图案，添加到输出参数 text_out 即可。
隐式增强的源代码如下图所示：
ENHANCEMENT 1 ZST22_ENHANCEMENT. "active version
data: lt_god like text_out[] with header line.
define add_line.
append &1 to lt_god.
end-of-definition.
add_line: ''.
if ttype = 'W'. "// What happened?
insert lines of lt_god into text_out index 1.
endif.
ENDENHANCEMENT.
代码实现有 5 个关键点：
-
给 subroutine
READ_SNAPT创建隐式增强。 -
定义一个内表 lt_god，用于存储思否猫的字符图案内容。
-
定义一个宏，用于将思否猫逐行的字符图案内容，拼接到内表 lt_god 中。
-
在增强实现里调用
add_line宏，将完整的思否猫图案内容，注入到内表 lt_god 中。 -
将内表 lt_god 包含的思否猫图案完整内容，添加到 subroutine read_snapt 的输出参数
text_out中，这样思否猫的字符图案，将会出现在 ST22 显示界面的头部。
至此 ABAP 系统的增强工作就实现完毕了，剩下的则是将官网下载的思否猫图片，转换成纯粹的字符显示形式，这样我们就可以将这些字符，直接粘贴到前文介绍的 READ_SNAPT subroutine 实现的隐式增强内部。
42 行 Python 代码即可搞定：
import base64
import re
from io import BytesIO
from PIL import Image
import base64
file_path = 'C:/temp/cat.png'
img = Image.open(file_path)
char = list('M3NB6Q#OC?7>!:–;. ')
# 颜色值映射字符串
def get_char(r, g, b, alpha=256):
if alpha == 0:
return ' '
grey = (2126 * r + 7152 * g + 722 * b) / 10000
char_idx = int((grey / (alpha + 1.0)) * len(char))
return char[char_idx]
img = Image.open(file_path)
img_widht = img.size[0]
img_height = img.size[1]
# 设定缩放比例
scale_width = 0.2 # 0.75
scale_height = 0.2 # 0.5
# 缩放图片
img = img.resize((int(img_widht*scale_width),
int(img_height*scale_height)), Image.NEAREST)
text = ''
for i in range(int(img_height*scale_height)):
for j in range(int(img_widht*scale_width)):
text += get_char(*img.getpixel((j, i)))
text += '\n'
print(text)
我们使用 Python 提供的 PIL 库，读取包含思否猫的图片文件，取得其宽度和高度之后，逐一便利图片每一行的每一个像素，将其 RGB 值利用公式转换成灰度值，再把这些灰度值转换成字符数组 char 的索引。这样，思否猫图片的每一个像素，就唯一对应字符数组里的一个字符。我们把这些字符拼接到输出变量 text 里。
将上述 Python 代码另存为成 cat.py 文件，利用命令行 python cat.py > result.txt, 然后将 result.txt 的内容复制到 ABAP 报表 SAPMS380 的隐式增强实现里即可。
最后我们做一个测试，新建一个 ABAP 报表，随便写一句会引起运行时异常的代码，比如 ASSERT 1 = 0，然后执行：
我们会立即跳转到 ST22 事物码的运行时错误输出界面，Runtime Errors 字段值为 ASSERTION_FAILED, 这正是 ASSERT 1 = 0 引起的运行时错误。
从图中可以看到，思否猫的图案已经成功嵌入到 ST22 界面了。
- 点赞
- 收藏
- 关注作者
评论（0）