我們開發人員每天程式設計，除錯程式碼，不可避免地會遇到執行時異常和執行時錯誤。一旦執行時錯誤發生，程式會非正常終止，標誌著程式的實際執行情況同我們的預期有差異，想必每一位開發人員看到執行時錯誤心情都不會太好。

筆者平時使用的後臺開發語言是 ABAP，使用的開發 IDE 是 SAPGUI，因此嘗試著把思否社群的吉祥物，一隻可愛的思否貓，植入到 ABAP 執行時錯誤顯示介面上來，試圖讓思否貓給遇到執行時錯誤的倒黴的開發人員一絲慰藉。

![](https://img-blog.csdnimg.cn/img_convert/acb6ed916d50dc4d915aae169e4ba24c.png)

ABAP 開發工具裡顯示執行時錯誤的事物碼為 ST22，其標準實現 ABAP 程式名稱為 SAPMS380.

![](https://img-blog.csdnimg.cn/img_convert/c4b4680dc485119ae686bc0aecfec9ff.png)

按照筆者文章介紹的步驟開發完成後，效果如下：

這是在我的 ABAP 系統裡的實現效果：

![](https://img-blog.csdnimg.cn/img_convert/a62d9c75934f3de4968c335f3137b303.png)

下面是詳細的實現步驟。

我們使用 ABAP 增強工具，對這個系統級別的 ABAP 報表進行增強，在增強裡建立我們自己的植入思否貓的邏輯。

![](https://img-blog.csdnimg.cn/img_convert/d6d934be161ffaddc705b0036b4f5ecc.png)

我們在這個報表的 READ_SNAPT 的 subroutine 裡做增強，這個 subroutine 在執行時異常的具體內容，從資料庫表讀取到 ST22 介面時呼叫，因此這是一個最佳的植入思否貓圖案的 hook 所在：
![](https://img-blog.csdnimg.cn/img_convert/146076616cb753ddcc4a7aaea667a8f7.png)

名叫 `read_snapt` 的 subroutine，其輸出引數 text_out, 存放的就是顯示在 ST22 事物碼執行時的明細資訊，因此我們建立一個隱式增強，把思否貓對應的字元格式的圖案，新增到輸出引數 text_out 即可。

隱式增強的原始碼如下圖所示：

```sql
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 顯示介面的頭部。
![](https://img-blog.csdnimg.cn/img_convert/c201b4b9252cf90bcb4f54c47b2196e5.png)

至此 ABAP 系統的增強工作就實現完畢了，剩下的則是將官網下載的思否貓圖片，轉換成純粹的字元顯示形式，這樣我們就可以將這些字元，直接貼上到前文介紹的 `READ_SNAPT` subroutine 實現的隱式增強內部。

42 行 Python 程式碼即可搞定：

```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 裡。
![](https://img-blog.csdnimg.cn/img_convert/771120803177ce3009a17df17e681568.png)

將上述 Python 程式碼另存為成 cat.py 檔案，利用命令列 `python cat.py > result.txt`, 然後將 `result.txt` 的內容複製到 ABAP 報表 SAPMS380 的隱式增強實現裡即可。

![](https://img-blog.csdnimg.cn/img_convert/04ab1d723569b5e0ee5793c6babf69b3.png)

最後我們做一個測試，新建一個 ABAP 報表，隨便寫一句會引起執行時異常的程式碼，比如 `ASSERT 1 = 0`，然後執行：

![](https://img-blog.csdnimg.cn/img_convert/cdf95a455b0835cf1890bf7564318f5f.png)

我們會立即跳轉到 ST22 事物碼的執行時錯誤輸出介面，Runtime Errors 欄位值為 `ASSERTION_FAILED`, 這正是 `ASSERT 1 = 0` 引起的執行時錯誤。

從圖中可以看到，思否貓的圖案已經成功嵌入到 ST22 介面了。

![](https://img-blog.csdnimg.cn/img_convert/714c660a0c3f219572f111d6faa14530.png)

在 ABAP 開發工具執行時錯誤顯示介面裡植入思否貓

相關文章