SAP BW ODS無效字元自動處理程式

這程式寫得真不容易！

因為一直找不到讀取BALDAT這個表的RAW型別資料的程式，只能把標準程式扣出來用。標準程式是彈出視窗顯示錯誤日誌的，一直沒找到或沒讀懂讀取RAW的程式段，所以我採用讀取ALV的方式把資料讀入內表，因為有好多段，看不懂，所以可能有幾個Function是不需要的，我儘量採用註釋掉看結果的方法，不斷縮短程式碼。最終留下本程式的上半段。下半段把日誌分解開來，因為要寫成通用的程式，所以需要提取 ODS名稱，FieldName，以及出錯的值。

前後花了三天的時間，不知道是否值得。總覺得自己好像把自己一步一步趕到某個深淵。

程式有三個變數：

1. 是否只顯示異常資訊

2. ODS名稱（因為實在分辨不出日誌中的錯誤日誌，只能採用這個條件來控制日誌數量，比較失敗。）

3. 發生日期

*&---------------------------------------------------------------------*
*& Report Z1RD0017
*&
*&---------------------------------------------------------------------*
*& Created By: Reed Lei (20100401)
*& todo: Replace the inValid character in ODS New Data Table
*&---------------------------------------------------------------------*

REPORT z1rd0017.

TYPES:
BEGIN OF bal_s_lout,

*   handle of this control representation
    handle              TYPE balcnthndl,
*   initial input
    profile             TYPE bal_s_prof,
    log_hndl            TYPE bal_t_logh,
    msg_hndl            TYPE bal_t_msgh,
    log_filt            TYPE bal_s_lfil,
    log_cfil            TYPE bal_t_cfil,
    msg_filt            TYPE bal_s_mfil,
    msg_cfil            TYPE bal_t_cfil,

*   controls
    container           TYPE REF TO cl_gui_container,
    splitter            TYPE REF TO cl_gui_splitter_container,
    tree                TYPE REF TO cl_gui_column_tree,
    grid                TYPE REF TO cl_gui_alv_grid,
    event_rec           TYPE REF TO object,

*   converted profile
    use_grid            TYPE boolean,
    prof_int            TYPE bal_s_iprf,

*   data to be displayed
    t_log_hndl          TYPE bal_t_logh,
    t_msg_hndl          TYPE bal_t_msgh,

*   data for tree
    t_columns           TYPE bal_t_hdrs,
    t_node              TYPE bal_t_node,
    t_item              TYPE bal_t_item,
    tree_logs           TYPE bal_t_trlg,
    tree_msgs           TYPE bal_t_trms,

*   current state
    count_all           TYPE bal_s_scnt,
    cur_node            TYPE tv_nodekey,
    longtexts_exist     TYPE boolean,
    params_exist        TYPE boolean,
    sel_msgty           TYPE bal_s_smty,
    ucomm_data          TYPE bal_s_cbuc,

* tabname for the flat ALV-table for using in REUSE_ALV_LIST_DISPLAY
    tabname_alv         TYPE tabname,
END OF bal_s_lout,
bal_t_lout TYPE SORTED TABLE OF bal_s_lout
                  WITH UNIQUE KEY handle
                  INITIAL SIZE    1.
*PARAMETERS:l_c.
DATA: log_handle TYPE balloghndl.
DATA: l_s_prof TYPE bal_s_prof,
      l_t_logh TYPE bal_t_logh.
DATA: l_sx_display_profile TYPE bal_s_prof,
      ls_display_profile TYPE bal_s_prof.
* Get display profile for popup
CONSTANTS:
true                    TYPE boolean         VALUE 'X',
false                   TYPE boolean         VALUE ' '.
DATA:
g_access_control_done    TYPE boolean.

DATA:
BEGIN OF g OCCURS 0,
    control_handle      TYPE balcnthndl,
    profile             TYPE bal_s_prof,
    prof_int            TYPE bal_s_iprf,
    sel_msgty           TYPE bal_s_smty,
    custom_container    TYPE REF TO cl_gui_custom_container,
    docking_container   TYPE REF TO cl_gui_docking_container,
END OF g.
DATA:
BEGIN OF wa_ods,
odsobject TYPE rsdodsobject,
fieldname(20),
value(20),
END OF wa_ods.
DATA:it_ods LIKE TABLE OF wa_ods.
DATA g_log_handles TYPE bal_t_logh .
DATA: g_log_profile TYPE bal_s_prof,l_retcode                  TYPE i.
DATA: l_ln TYPE balloghndl.
DATA: l_log_filter TYPE bal_s_lfil,
      l_log_headers TYPE balhdr_t WITH HEADER LINE.
DATA: l_lognumber TYPE bal_r_logn WITH HEADER LINE.
DATA: l_aldate    TYPE bal_r_date WITH HEADER LINE.

DATA: l_object TYPE LINE OF bal_r_obj ,
l_subobject TYPE LINE OF bal_r_sub,
l_extnumber TYPE LINE OF bal_r_extn.

DATA: l_msgid(10),l_msgno(10),
      l_rsm1187_msg(100) VALUE 'Error getting SID for ODS object',
      l_brain060_msg(100) VALUE 'Value (hex. ) of characteristic contains invalid characters',
      l_str(255),
      l_msg(255).
DATA: citab LIKE TABLE OF l_str.
DATA: l_index LIKE sy-index.
DATA: l_lines TYPE i .
FIELD-SYMBOLS:
                    TYPE bal_t_lout,
                      TYPE bal_s_lout,
             TYPE table,
   TYPE ANY,
TYPE ANY,
             TYPE table.

PARAMETERS:l_list AS CHECKBOX DEFAULT 'X'.
*SELECT-OPTIONS: l_c FOR l_lognumber-low NO INTERVALS.
PARAMETERS:l_ods(12) OBLIGATORY.
SELECT-OPTIONS: l_d FOR l_aldate-low OBLIGATORY.

*APPEND LINES OF l_c TO l_log_filter-lognumber.
APPEND LINES OF l_d TO l_log_filter-aldate.

l_object-sign = 'I'.
l_object-option = 'EQ'.
l_object-low = 'RSSM'.
APPEND l_object TO l_log_filter-object.

l_subobject-sign = 'I'.
l_subobject-option = 'EQ'.
l_subobject-low = 'MON'.
APPEND l_subobject TO l_log_filter-subobject.

l_extnumber-sign = 'I'.
l_extnumber-option = 'EQ'.

CONCATENATE 'MON:PROTOCOLL_ACTION-ODSAC-' l_ods INTO l_extnumber-low .
APPEND l_extnumber TO l_log_filter-extnumber.

CALL FUNCTION 'BAL_DB_SEARCH'
EXPORTING
    i_s_log_filter = l_log_filter
IMPORTING
    e_t_log_header = l_log_headers[]
EXCEPTIONS
    log_not_found = 1.

DESCRIBE TABLE l_log_headers LINES l_lines.

IF l_lines EQ 0 .
WRITE: 'Without Error Log'.
EXIT.
ENDIF.

LOOP AT l_log_headers .
CLEAR:g_log_handles[].
l_ln = l_log_headers-log_handle.
INSERT l_ln INTO TABLE g_log_handles.
CALL FUNCTION 'BAL_DSP_PROFILE_SINGLE_LOG_GET'
    IMPORTING
      e_s_display_profile = l_sx_display_profile
    EXCEPTIONS
      OTHERS              = 0.

CALL FUNCTION 'BAL_DB_LOAD'
    EXPORTING
      i_t_log_handle                = g_log_handles
      i_exception_if_already_loaded = space
    EXCEPTIONS
      OTHERS                        = 1.

*********************************************************************
* set data to be displayed
*********************************************************************

CALL FUNCTION 'BAL_CNTL_CREATE'
    EXPORTING
      i_container          = g-custom_container
      i_s_display_profile = g-profile
      i_t_log_handle       = g_log_handles
    IMPORTING
      e_control_handle     = g-control_handle
    EXCEPTIONS
      profile_inconsistent = 1
      OTHERS               = 2.

PERFORM. load(saplsbal_cntl).
ASSIGN ('(SAPLSBAL_CNTL)D_T[]') TO .
IF NOT IS ASSIGNED.
*     251(BL): "Control does not exist."
    MESSAGE e251(bl) INTO sy-msgli.
    EXIT.
ENDIF.

ENDLOOP.

LOOP AT ASSIGNING .
* point to message data table
IF -prof_int-msgtabname IS INITIAL.
CONTINUE.
ENDIF.
ASSIGN (-prof_int-msgtabname) TO .

LOOP AT ASSIGNING .
    ASSIGN COMPONENT '%_MSGID' OF STRUCTURE TO .
    l_msgid = .
    ASSIGN COMPONENT '%_MSGNO' OF STRUCTURE TO .
    l_msgno = .
    IF l_msgid EQ 'RSM1' AND l_msgno EQ '187'.
      CLEAR: citab[].
      ASSIGN COMPONENT 'T_MSG' OF STRUCTURE TO .
      l_str = .
      SPLIT l_rsm1187_msg AT space INTO TABLE citab.
      LOOP AT citab INTO l_msg.
        REPLACE FIRST OCCURRENCE OF l_msg IN l_str WITH '' .
      ENDLOOP.
      CONDENSE l_str.
      wa_ods-odsobject = l_str.
    ENDIF.
    IF l_msgid EQ 'BRAIN' AND
         ( l_msgno EQ '060' OR l_msgno EQ '059').
      CLEAR: citab[].
      ASSIGN COMPONENT 'T_MSG' OF STRUCTURE TO .
      l_str = .
      SPLIT l_brain060_msg AT space INTO TABLE citab.
      LOOP AT citab INTO l_msg.
        REPLACE FIRST OCCURRENCE OF l_msg IN l_str WITH '' .
      ENDLOOP.
      SPLIT l_str AT space INTO TABLE citab.
      LOOP AT citab INTO l_msg.
        l_index = sy-tabix.
        IF l_msg IS INITIAL.
          DELETE citab INDEX l_index.
        ENDIF.
      ENDLOOP.
      READ TABLE citab INDEX 1 INTO l_msg.
      CONDENSE l_msg.
      wa_ods-value = l_msg.
      READ TABLE citab INDEX 3 INTO l_msg.
      CONDENSE l_msg.
      wa_ods-fieldname = l_msg.
    ENDIF.
ENDLOOP.
IF NOT wa_ods-fieldname IS INITIAL AND
     NOT wa_ods-odsobject IS INITIAL AND
     NOT wa_ods-value IS INITIAL.
    APPEND wa_ods TO it_ods.
ENDIF.
ENDLOOP.

DATA:
l_entries TYPE i.

***********************************************************************
* destroy containers
***********************************************************************
IF NOT g-docking_container IS INITIAL.
CALL METHOD g-docking_container->free
    EXCEPTIONS
      THERS = 0.
ENDIF.
IF NOT g-custom_container IS INITIAL.
CALL METHOD g-custom_container->free
    EXCEPTIONS
      THERS = 0.
ENDIF.

***********************************************************************
* reduce stack
***********************************************************************
CLEAR g.
DESCRIBE TABLE g LINES l_entries.
IF l_entries > 0.
READ TABLE g INDEX l_entries.
DELETE g INDEX l_entries.
ENDIF.

SORT it_ods.
DELETE ADJACENT DUPLICATES FROM it_ods.
DATA:l_up(200),l_st(200),l_wh(200),l_new(200).
DATA: fieldnm TYPE rsdiobjfieldnm.
LOOP AT it_ods INTO wa_ods.
ULINE .
WRITE:/ wa_ods-odsobject , wa_ods-fieldname,wa_ods-value.
CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
    EXPORTING
      intext = wa_ods-value
    IMPORTING
      uttext = l_new.
IF sy-subrc <> 0.
    l_new = ''.
ENDIF.
SELECT SINGLE fieldnm   FROM rsdiobj INTO fieldnm
    WHERE iobjnm = wa_ods-fieldname AND bjvers = 'A'.

IF sy-subrc EQ 0.

    CONCATENATE ' /BIC/A' wa_ods-odsobject '40' INTO l_up.
    CONCATENATE ' ' fieldnm   ' = ' l_new '' INTO l_st.
    CONCATENATE ' ' fieldnm   ' = ' wa_ods-value '' INTO l_wh.
    IF l_list NE 'X'.
      UPDATE (l_up)
      SET    (l_st)
      WHERE (l_wh).
      IF sy-subrc EQ 0.
        COMMIT WORK.
      ELSE.
        ROLLBACK WORK.
      ENDIF.
    ELSE.
      WRITE:/ 'UPDATE ' , l_up.
      WRITE:/ 'SET ' , l_st.
      WRITE:/ 'WHERE ', l_wh.
    ENDIF.
ENDIF.
ENDLOOP.

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/554557/viewspace-659691/，如需轉載，請註明出處，否則將追究法律責任。

SAP BW ODS無效字元自動處理程式

相關文章