在 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 个关键点：

1. 给 subroutine READ_SNAPT 创建隐式增强。
2. 定义一个内表 lt_god，用于存储思否猫的字符图案内容。
3. 定义一个宏，用于将思否猫逐行的字符图案内容，拼接到内表 lt_god 中。
4. 在增强实现里调用 add_line 宏，将完整的思否猫图案内容，注入到内表 lt_god 中。
5. 将内表 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 界面了。

本文参与了1024程序员节，欢迎正在阅读的你也加入。