所謂條件斷點，就是設定在某行語句上的斷點，並不總是會觸發，而是僅當滿足一定條件時才觸發。

條件斷點的使用場合是什麼？

舉個簡單的例子，下圖第15行ADD語句設定一個斷點。因為它在一個具有1000行的內表迴圈體內，所以正常情況下會觸發1000次。

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

假設我們在除錯一個bug，這個bug當迴圈到第999次時才出現，那我們前998次的單步除錯都是無效的。最高效的做法，就是藉助條件斷點的概念，讓斷點在程式碼執行到第999次迴圈時，觸發且僅觸發一次。

本文介紹實現ABAP條件斷點的三種方式。也歡迎大家分享自己最喜歡用的且本文尚未提到的條件斷點技術。

# 方法一：給ABAP斷點維護觸發條件

在ABAP偵錯程式裡點選Break/Watchpoints皮膚，新建一個斷點：

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

在Free Condition Entry裡維護這個斷點的觸發條件。

回到我上面的例子，我的內表裡包含了從1遞增到1000的整數，總共1000條記錄，而我的觸發條件維護為<data> = 22. 顯然，這個斷點在第22次迴圈時，唯一觸發一次。

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

維護完畢後，我們在斷點皮膚裡看到了這個新建的斷點：

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

按F8繼續除錯，斷點有且僅觸發了一次，此時<data>的值為22，正好符合我們維護的觸發條件，成功。

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

# 方法二：利用ABAP偵錯程式裡的觀察點(Watchpoint)

開啟 ABAP 的偵錯程式，此處建立Watchpoint：

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

我們知道在LOOP迴圈體內，系統變數sy-tabix會自動賦以當前的迴圈次數。因此我們在Watchpoint的觸發條件裡，維護成sy-tabix = 22, 也可以達到在第22次迴圈時觸發的目的。

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

Watchpoint建立好之後顯示如下：

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

按F8繼續除錯，程式果然在第22次迴圈時觸發了：

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

並且偵錯程式裡彈出一條提示資訊：Watchpoint reached

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

# 方法三：ABAP Debugger Script

ABAP Debugger Script這項技術，在SAP研究院內部用的很廣泛。

回到上面的例子，我們將編寫一段簡單的ABAP程式碼，去控制目標ABAP程式碼的斷點觸發。

在ABAP偵錯程式裡，點選Script標籤頁，建立一個新的ABAP指令碼：

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

我們想用ABAP指令碼監控ABAP程式碼裡某個簡單變數的值變化，所以使用指令碼建立嚮導裡的Variable Value(for Simple Variables):

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

這個嚮導會自動幫我們生成ABAP指令碼，其實也就是一段ABAP程式碼了，這段程式碼可以用程式設計的方式，在偵錯程式啟用的上下文裡，獲取某個ABAP變數的值。

下圖指令碼的語義很清晰，獲取偵錯程式裡field symbol <data>的值，儲存在臨時變數lv_result裡。如果該變數的值為22，就呼叫ABAP指令碼的工具方法break，觸發斷點。

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

把這段指令碼透過上圖的Save As按鈕另存下來，取名ZJERRY_TEST.

然後重新執行我們的測試程式碼, 使用Load Script載入剛才儲存的ABAP指令碼:

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

點選Start Script執行指令碼:

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

斷點再次如期觸發.

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

這個 script 的原始碼如下：

```abap
*---------------------------------------------------------------------*
*       CLASS lcl_debugger_script DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_debugger_script DEFINITION INHERITING FROM  cl_tpda_script_class_super  .

PUBLIC SECTION.
    METHODS: prologue  REDEFINITION,
      init    REDEFINITION,
      script  REDEFINITION,
      end     REDEFINITION.
    INTERFACES: if_tpda_script_w_input,
      if_tpda_script_w_output.

PRIVATE SECTION.
    DATA: entity_name TYPE string.
    DATA: value TYPE string.
    DATA: output TYPE tpda_transfer_it_unsorted.
    DATA: bol_object_name TYPE crmt_ext_obj_name.
    METHODS get_attribute
      IMPORTING io_oref_descr     TYPE REF TO cl_tpda_script_orefdescr
                iv_attribute_name TYPE string
      RETURNING VALUE(ro_descr)   TYPE REF TO cl_tpda_script_data_descr.

ENDCLASS.                    "lcl_debugger_script DEFINITION
*---------------------------------------------------------------------*
*       CLASS lcl_debugger_script IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_debugger_script IMPLEMENTATION.

METHOD prologue.
*** generate abap_source (source handler for ABAP)
    super->prologue( ).
  ENDMETHOD.                    "prolog

METHOD if_tpda_script_w_input~get_parameters.

DATA lt_input      TYPE tpda_transfer_it.
    DATA ls_input      TYPE tpda_transfer_struc.

ls_input-id   = 'ENTITY'.
    APPEND ls_input TO lt_input.
    p_parameters_it = lt_input.

ENDMETHOD.                    "if_tpda_script_w_input~get_parameters

METHOD if_tpda_script_w_input~set_parameter_values.

*   Tabelle mit Inputparameter und Wert
    DATA lt_input     TYPE tpda_transfer_it.
    DATA ls_input     TYPE tpda_transfer_struc.

lt_input = p_parameter_values_it.
    LOOP AT lt_input INTO ls_input.
      IF ls_input-id = 'ENTITY'.
        entity_name = ls_input-value.
      ENDIF.
    ENDLOOP.

ENDMETHOD.                    "if_tpda_script_w_input~set_parameter_values

METHOD init.
*** insert your initialization code here
  ENDMETHOD.                    "init

METHOD script.

DATA lr_data_descr      TYPE REF TO cl_tpda_script_data_descr.
    DATA lr_struct_descr    TYPE REF TO cl_tpda_script_structdescr.
    DATA lr_cx              TYPE REF TO cx_root.
    DATA ls_quick           TYPE tpda_scr_quick_info.
    DATA lv_name            TYPE string.
    DATA lt_struct          TYPE tpda_scr_struct_comp_it.
    DATA ls_struct          TYPE tpda_scr_struct_comp.
    DATA ls_output          TYPE tpda_transfer_struc.
    DATA lr_symbsimple      TYPE REF TO tpda_sys_symbsimple.
    DATA ls_varinfo         TYPE tpda_quick_vars.

FIELD-SYMBOLS: <lv_value> TYPE any.

TRY.
        CLEAR output.

*        BREAK-POINT.

ls_varinfo = cl_tpda_script_data_descr=>get_variable_info( 'LO_PRODUCT' ).

*       get object type name
        IF ls_varinfo-varvalue = 'OBJECT'.
*         class instance passed directly
          lv_name = entity_name && '-CONTAINER_PROXY->DATA_REF->OBJECT_NAME'.
        ELSE.
*         variable of class instance passed
          lv_name = ls_varinfo-varvalue && '-CONTAINER_PROXY->DATA_REF->OBJECT_NAME'.
        ENDIF.

ls_quick = cl_tpda_script_data_descr=>get_quick_info( lv_name ).
        ASSIGN ls_quick-quickdata TO <lv_value>.
        lr_symbsimple ?= <lv_value>.
        bol_object_name = lr_symbsimple->valstring.

*       get content
        IF ls_varinfo-varvalue = 'OBJECT'.
          lv_name = entity_name && '-CONTAINER_PROXY->DATA_REF->ATTRIBUTE_REF->*'.
        ELSE.
          lv_name = ls_varinfo-varvalue && '-CONTAINER_PROXY->DATA_REF->ATTRIBUTE_REF->*'.
        ENDIF.

lr_data_descr = cl_tpda_script_data_descr=>factory( lv_name ).
        lr_struct_descr ?= lr_data_descr.

lr_struct_descr->components(
          IMPORTING
*            p_components_it      =
            p_components_full_it =  lt_struct
        ).

LOOP AT lt_struct INTO ls_struct.
          ls_output-id = ls_struct-compname.
          TRY.
              ASSIGN ls_struct-symbquick-quickdata TO <lv_value>.
              lr_symbsimple ?= <lv_value>.
              ls_output-value = lr_symbsimple->valstring.
            CATCH cx_root INTO lr_cx.
              ls_output-value = lr_cx->get_text( ).
          ENDTRY.
          APPEND ls_output TO output.
        ENDLOOP.

DATA lt_col_alv                   TYPE tpda_script_service_source_tab.
        DATA ls_col_alv                   LIKE LINE OF lt_col_alv.
        ls_col_alv-fieldname = ls_col_alv-content = 'ID'.
        APPEND ls_col_alv TO lt_col_alv.
        ls_col_alv-fieldname = ls_col_alv-content = 'VALUE'.
        APPEND ls_col_alv TO lt_col_alv.

CALL METHOD cl_tpda_script_data_display=>data_display
          EXPORTING
            p_list_header = 'Query Selection Parameters'
            p_column_it   = lt_col_alv
            p_popup       = 'X'
          CHANGING
            p_data_it     = output.

*        BREAK-POINT.
      CATCH cx_root INTO lr_cx.
        BREAK-POINT.                                       "#EC NOBREAK
        value = lr_cx->get_text( ).
    ENDTRY.
  ENDMETHOD.                    "script

METHOD end.
*** insert your code which shall be executed at the end of the scripting (before trace is saved)
*** here

ENDMETHOD.                    "end

METHOD if_tpda_script_w_output~get_parameter_values.

DATA lt_param TYPE tpda_transfer_it_unsorted.
    DATA ls_param TYPE tpda_transfer_struc.

ls_param-id = 'VARIABLE'.
    ls_param-value = entity_name.
    APPEND ls_param TO lt_param.
    ls_param-id = 'OBJECT_NAME'.
    ls_param-value = bol_object_name.
    APPEND ls_param TO lt_param.

APPEND INITIAL LINE TO lt_param.

APPEND LINES OF output TO lt_param.

p_parameter_values_it = lt_param.

ENDMETHOD.                    "if_tpda_script_w_output~get_parameter_values

METHOD get_attribute.

DATA lr_oref_descr     TYPE REF TO cl_tpda_script_orefdescr.
    DATA lr_object_descr   TYPE REF TO cl_tpda_script_objectdescr.
    DATA ls_varinfo        TYPE tpda_quick_vars.
    DATA lv_longname       TYPE string.

DATA lt_attributes TYPE tpda_script_object_attribut_it.

lr_oref_descr   = io_oref_descr.
    lr_object_descr = lr_oref_descr->get_object_handle( ).

lt_attributes = lr_object_descr->attributes( ).

ro_descr = lr_object_descr->get_attribut_handle( lv_longname  ).

ENDMETHOD.                    "get_oref_attribute

ENDCLASS.                    "lcl_debugger_script IMPLEMENTATION
```

我們知道，像如圖一這種類的靜態屬性，因為不屬於類的例項所有，因此除錯到這個類的方法內部時，只能透過圖二演示的兩種方式在偵錯程式顯示該屬性的值。而一旦除錯到該類方法的外部，通常就只能透過"類名=>屬性名"的方式來顯示靜態屬性值(圖三)。其實還有一種方式，如圖四和圖五所示。

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

圖一：ABAP類的靜態屬性

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

圖二：如何在ABAP偵錯程式裡檢視類的靜態屬性

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

圖三：在偵錯程式裡跳出類的方法之後，如何檢視靜態屬性

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

圖四和圖五在偵錯程式的Objects皮膚裡，手動輸入{C:ZCL_STATIC}, 這裡的ZCL_STATIC替換成其他包含有靜態屬性的類名，回車即可檢視。

可能有些朋友覺得這個小技巧沒啥用吧，我以前在除錯很多用單例模式(Singleton)實現的框架程式碼時經常用。當排錯需要檢視一個用單例模式實現的類的多個靜態屬性時，如果用圖三介紹的"類名=>屬性名"的方式，要重複敲很多字元，敲擊鍵盤的時間複雜度為o(n), n為靜態屬性的個數。用Object皮膚這種技巧，敲擊鍵盤的時間複雜度一下子降到o(1), 提高了排錯效率。

#  總結

所謂條件斷點，就是設定在某行語句上的斷點，並不總是會觸發，而是僅當滿足一定條件時才觸發。本文首先介紹了 ABAP 條件斷點的使用場合，接著使用了一個包含迴圈的 ABAP 程式，分享了三種不同的條件斷點的使用方式。靈活運用條件斷點，能大大提高開發人員的除錯效率。</lv_value></lv_value></lv_value></lv_value></lv_value></data></data></data>

實現 ABAP 條件斷點的三種方式分享

相關文章