2020-10-27 關(guān)于函數(shù)BAL_DSP_LOG_DISPLAY

BAL_DSP_LOG_DISPLAY

這個函數(shù)有點意思烤镐，

這個地方引發(fā)了一系列翻車問題

標準表：關(guān)鍵字為STANDARD TABLE,?系統(tǒng)為該表的每一行數(shù)據(jù)生成一個邏輯索引。填充標準表時搂赋，可以將數(shù)據(jù)附加在現(xiàn)有行之后乐疆，也可以插入到指定的位置叮趴，程序?qū)?nèi)表行的尋址操作可通過關(guān)鍵字或索引進行样眠。在對表進行插入竞滓、刪除等操作時，各數(shù)據(jù)行在內(nèi)存中的位置不變吹缔，系統(tǒng)僅重新排列各數(shù)據(jù)行的索引值。

排序表

排序表：關(guān)鍵字為?SORTED TABLE,?也具有一個邏輯索引锯茄，不同之處是排序表總是按其關(guān)鍵字升序排序后再進行存儲厢塘，其訪問方式與標準表相同。???

哈希表

哈希表：關(guān)鍵字為?HASHED TABLE,?沒有索引肌幽，只能通過關(guān)鍵字來訪問晚碾。系統(tǒng)用哈希算法管理表中的數(shù)據(jù)，因而其尋址一個數(shù)據(jù)行的時間和表的行數(shù)無關(guān)喂急。

這種表不允許你直接sort 因為本身是sorted

第二個特殊地方就是

這種排序表可不允許你修改值測試格嘁，不信你可以試試。我是經(jīng)過了basis大哥提醒才知道的廊移，

? ? ? ? 不是所有表都能se16改這個sort就是

這里可以看出來不準插入也不準新行糕簿，刪除，復(fù)制都不允許狡孔，我想這是基于他的特性懂诗，

在程序執(zhí)行的時候檢查是否排序表直接給你報錯，而不是允許你隨意填一個值來插入苗膝，因為你插入的值如果不是sorted 那可能引發(fā)翻車案例直接dump

接下來的問題更加需要注意殃恒，

這個函數(shù)? 你可以這樣操作，

下面是我的代碼

*&---------------------------------------------------------------------*

*& Report? YXFIR462_BACKJOBTEST

*&---------------------------------------------------------------------*

REPORT yxfir462_backjobtest.

DATA: gv_log_handle TYPE balloghndl.

DATA gt_log_handle TYPE bal_t_logh.

DATA:gtall_log TYPE bal_t_logh.

DATA: gl_balloghndl TYPE balloghndl.

CONSTANTS: cons_log_object TYPE bal_s_log-object VALUE 'FIBA',

? ? ? ? ? cons_log_subobject TYPE bal_s_log-subobject VALUE 'BAPAYMIN'.

START-OF-SELECTION.

? DO 2 TIMES.

? PERFORM frm_log_fimsg_create.

? PERFORM frm_log_fimsg.

? PERFORM frm_log_fimsg_db_save.

? ENDDO.

? CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'

? ? EXPORTING

? ? ? i_t_log_handle = gtall_log

? ? EXCEPTIONS

? ? ? OTHERS? ? ? ? = 1.

? IF sy-subrc <> 0.

? ? MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

? ? ? ? ? ? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

? ENDIF.? ? ? ? ? ? ? ? ? "frm_log_display

*&---------------------------------------------------------------------*

*&? ? ? Form? FRM_MOVE_TO_FTPOST

*&---------------------------------------------------------------------*

*? ? ? text

*----------------------------------------------------------------------*

*? -->? p1? ? ? ? text

*? <--? p2? ? ? ? text

*----------------------------------------------------------------------*

*? ? ? text

*----------------------------------------------------------------------*

*? -->? p1? ? ? ? text

*? <--? p2? ? ? ? text

*----------------------------------------------------------------------*

FORM frm_log_fimsg_create .

? DATA:

? ? ? g_s_log? ? ? ? ? ? TYPE bal_s_log,

? ? ? g_value? ? ? ? ? ? TYPE i.

* DEFINE SOME HEADER DATA OF THIS LOG

? g_s_log-extnumber = text-003.

? DATA: l_guid_22 TYPE guid_22.

? PERFORM frm_stage_id_guid_create

? ? ? ? ? ? ? CHANGING l_guid_22.

? WRITE: l_guid_22 TO? g_s_log-extnumber+30.

? CONDENSE g_s_log-extnumber NO-GAPS.

? MOVE? l_guid_22 TO gl_balloghndl. " YJZDH

? g_s_log-object? ? = cons_log_object.

? g_s_log-subobject = cons_log_subobject.

? g_s_log-aldate? ? = sy-datum.? ? ? ? "WIE IN RSBTCHH0

? g_s_log-altime? ? = sy-uzeit.

? g_s_log-aluser? ? = sy-uname.

? g_s_log-altcode? = space.

? g_s_log-alprog? ? = sy-repid.

? g_s_log-almode? ? = space.

? g_s_log-alprog? ? = sy-repid.

*? G_S_LOG-PARAMS? ? = SPACE.

? CALL FUNCTION 'BAL_LOG_CREATE'

? ? EXPORTING

? ? ? i_s_log? ? ? = g_s_log

? ? IMPORTING

? ? ? e_log_handle = gv_log_handle

? ? EXCEPTIONS

? ? ? OTHERS? ? ? = 1.

? IF sy-subrc <> 0.

? ? MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

? ? ? ? ? ? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

? ENDIF.

ENDFORM.? ? ? ? ? ? ? ? ? ? " FRM_LOG_FIMSG_CREATE

*&---------------------------------------------------------------------*

*&? ? ? Form? FRM_STAGE_ID_GUID_CREATE

*&---------------------------------------------------------------------*

*? ? ? text

*----------------------------------------------------------------------*

*? ? ? <--P_L_GUID_22? text

*----------------------------------------------------------------------*

FORM frm_stage_id_guid_create? CHANGING p_stage_guid.

? CALL FUNCTION 'GUID_CREATE'

? ? IMPORTING

? ? ? ev_guid_22 = p_stage_guid.

ENDFORM.? ? ? ? ? ? ? ? ? ? " FRM_STAGE_ID_GUID_CREATE

*&---------------------------------------------------------------------*

*&? ? ? Form? FRM_LOG_FIMSG

*&---------------------------------------------------------------------*

*? ? ? text

*----------------------------------------------------------------------*

*? -->? p1? ? ? ? text

*? <--? p2? ? ? ? text

*----------------------------------------------------------------------*

FORM frm_log_fimsg .

? DATA:

? ? ? ? l_s_msg TYPE bal_s_msg.

? l_s_msg-alsort? ? = 01.

*? ? DEFINE DATA OF MESSAGE FOR APPLICATION LOG

? l_s_msg-msgty? ? = 'E'.

? l_s_msg-msgid? ? = 'YFI'.

? l_s_msg-msgno? ? = '000'.

*? l_s_msg-msgv1? ? = fimsg-msgv1.

*? l_s_msg-msgv2? ? = fimsg-msgv2.

*? l_s_msg-msgv3? ? = fimsg-msgv3.

*? l_s_msg-msgv4? ? = fimsg-msgv4.

? l_s_msg-probclass = '1'.

? CALL FUNCTION 'BAL_LOG_MSG_CUMULATE'

? ? ? EXPORTING

? ? ? ? i_log_handle? ? ? ? = gv_log_handle

? ? ? ? i_s_msg? ? ? ? ? ? ? =? l_s_msg

? ? ? ? i_compare_attributes = 'X'

? ? ? ? i_compare_context? ? = 'X'

? ? ? ? i_compare_parameters = 'X'

*? ? IMPORTING

*? ? ? ? E_S_MSG_HANDLE? ? ? =

*? ? ? ? E_MSG_WAS_LOGGED? ? =

*? ? ? ? E_MSG_WAS_DISPLAYED? =

? ? ? EXCEPTIONS

? ? ? ? ? ? log_not_found? ? ? ? = 0

? ? ? ? ? ? msg_inconsistent? ? = 2

*? ? ? ? OTHERS? ? ? ? ? ? ? = 3

? ? ? ? ? ? .

? IF sy-subrc <> 0.

? ? MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

? ? ? ? ? ? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

? ENDIF.

ENDFORM.? ? ? ? ? ? ? ? ? ? " FRM_LOG_FIMSG

*&---------------------------------------------------------------------*

*&? ? ? Form? FRM_LOG_FIMSG_DB_SAVE

*&---------------------------------------------------------------------*

*? ? ? text

*----------------------------------------------------------------------*

*? -->? p1? ? ? ? text

*? <--? p2? ? ? ? text

*----------------------------------------------------------------------*

FORM frm_log_fimsg_db_save .

? REFRESH gt_log_handle.

? CLEAR gt_log_handle.

? APPEND gv_log_handle TO gt_log_handle.

*? APPEND LINES OF gt_log_handle TO gtall_log.

? CALL FUNCTION 'BAL_DB_SAVE'

? ? EXPORTING

*? ? I_IN_UPDATE_TASK = 'X'

? ? ? i_save_all? ? ? = 'X'

? ? ? i_t_log_handle? = gt_log_handle

? ? EXCEPTIONS

? ? ? log_not_found? ? = 1

? ? ? save_not_allowed = 2

? ? ? numbering_error? = 3

? ? ? OTHERS? ? ? ? ? = 4.

? IF sy-subrc <> 0.

? ? MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

? ? ? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

? ENDIF.

? EXPORT table = gt_log_handle TO MEMORY ID 'GT_LOG'.

ENDFORM.? ? ? ? ? ? ? ? ? ? " FRM_LOG_FIMSG_DB_SAVE

這段代碼告訴一個東西就是我允許你在同一個程序里面一次顯示多條錯誤還是失敗辱揭。

但是不允許你這樣操作

REPORT yxfir462_back_job_test.

DATA gtall_log_handle TYPE bal_t_logh.

DATA:lt_log_handle TYPE bal_t_logh.

START-OF-SELECTION.

? DO 2 TIMES.

? ? SUBMIT yxfir462_backjobtest AND RETURN .

? ? IMPORT table = lt_log_handle FROM? MEMORY ID 'GT_LOG'.

? ? APPEND LINES OF lt_log_handle TO gtall_log_handle.

? ENDDO.

? CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'

? ? EXPORTING

? ? ? i_t_log_handle? ? ? = gtall_log_handle

* CALL FUNCTION 'BAL_DSP_LOG_PRINT'

*? ? ? EXPORTING

*? ? ? ? ? I_S_LOG_FILTER? ? ? ? =

*? ? ? ? ? I_T_LOG_CONTEXT_FILTER =

*? ? ? ? ? I_S_MSG_FILTER? ? ? ? =

*? ? ? ? ? I_T_MSG_CONTEXT_FILTER =

*? ? ? ? ? I_T_LOG_HANDLE? ? ? ? =

*? ? ? ? ? I_T_MSG_HANDLE? ? ? ? =

*? ? ? ? ? I_S_DISPLAY_PROFILE? ? =

*? ? ? ? ? I_AMODAL? ? ? ? ? ? ? = ' '

? ? ? ? EXCEPTIONS

? ? ? ? ? ? ? OTHERS? ? ? ? ? ? ? ? = 1.

? IF sy-subrc <> 0.

? ? MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

? ? ? ? ? ? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

? ENDIF.? ? ? ? ? ? ? ? ? "frm_log_display

不允許你submit操作离唐，一個程序顯示多個甚至一個，提示的錯誤是

Anzeigeprofil ist nicht konsistent（描述文件沒有一致性）

希望能給遇到這個問題的朋友提供一些建議问窃。