之前的程序在后面的使用过程中发现了一些Bug，更重要的是ODS激活一遇到错误就自动退出，导致异常只会显示第一条，而实际情况可能会有好几笔类似数据，所以最近做了一些更新。
与之前相比，修正了值存在空格无法更新的Bug外，另外变成对所有的行都进行扫描并找出异常字符进行更新。
*&---------------------------------------------------------------------*
*& Report Z1RD0017
*&
*&---------------------------------------------------------------------*
*& Created By: Reed Lei (20100401)
*& todo: Replace the inValid character in ODS New Data Table
*& Selection Texts
*& L_D Alert Date
*& L_LIST Only Display InValid Data ?
*& L_ODS ODS Name
*&---------------------------------------------------------------------*
REPORT z1rd0017.
TABLES:rsdodso.
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.
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_msg1(100) VALUE 'Value ',
l_brain060_msg2(100) VALUE '(hex.',
l_brain060_msg3(100) VALUE ') of characteristic',
l_brain060_msg4(100) VALUE '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:
<d_t> TYPE bal_t_lout,
<d> TYPE bal_s_lout,
<l_t_messtab> TYPE table,
<wa> TYPE ANY,
<comp> TYPE ANY,
<l_t_mess_alv> TYPE table.
PARAMETERS:l_list AS CHECKBOX DEFAULT 'X'.
*PARAMETERS l_chall AS CHECKBOX DEFAULT 'X' NO-DISPLAY . "check and update the all rows
*SELECT-OPTIONS: l_c FOR l_lognumber-low NO INTERVALS.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. TITLE text-100.
SELECT-OPTIONS:l_ods FOR rsdodso-odsobject NO INTERVALS NO-EXTENSION OBLIGATORY.
SELECT-OPTIONS: l_d FOR l_aldate-low OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
l_d-sign = 'I'.
l_d-option = 'EQ'.
l_d-low = sy-datum.
APPEND l_d.
START-OF-SELECTION.
*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-low 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.
*DELETE l_log_headers WHERE msg_cnt_al NE 11. "abnormal message is total 11 lines.
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 <d_t>.
IF NOT <d_t> IS ASSIGNED.
* 251(BL): "Control does not exist."
MESSAGE e251(bl) INTO sy-msgli.
EXIT.
ENDIF.
ENDLOOP.
LOOP AT <d_t> ASSIGNING <d> .
* point to message data table
IF <d>-prof_int-msgtabname IS INITIAL.
CONTINUE.
ENDIF.
ASSIGN (<d>-prof_int-msgtabname) TO <l_t_messtab>.
LOOP AT <l_t_messtab> ASSIGNING <wa> .
ASSIGN COMPONENT '%_MSGID' OF STRUCTURE <wa> TO <comp>.
l_msgid = <comp>.
ASSIGN COMPONENT '%_MSGNO' OF STRUCTURE <wa> TO <comp>.
l_msgno = <comp>.
IF l_msgid EQ 'RSM1' AND l_msgno EQ '187'.
CLEAR: citab[].
ASSIGN COMPONENT 'T_MSG' OF STRUCTURE <wa> TO <comp>.
l_str = <comp>.
* SPLIT l_rsm1187_msg AT space INTO TABLE citab.
* LOOP AT citab INTO l_msg.
REPLACE FIRST OCCURRENCE OF l_rsm1187_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 <wa> TO <comp>.
l_str = <comp>.
* 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.
*** Marked by Reedlei 20100610
REPLACE FIRST OCCURRENCE OF l_brain060_msg1 IN l_str WITH '|' .
REPLACE FIRST OCCURRENCE OF l_brain060_msg2 IN l_str WITH '|' .
REPLACE FIRST OCCURRENCE OF l_brain060_msg3 IN l_str WITH '|' .
REPLACE FIRST OCCURRENCE OF l_brain060_msg4 IN l_str WITH '|' .
*** Added by Reedlei 20100610
SPLIT l_str AT '|' INTO TABLE citab.
LOOP AT citab INTO l_msg.
l_index = sy-tabix.
CONDENSE l_msg.
IF l_msg IS INITIAL.
DELETE citab INDEX l_index.
ENDIF.
ENDLOOP.
READ TABLE citab INDEX 1 INTO l_msg.
*** Marked by Reedlei 20100610
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.
WRITE: AT 10(15) 'ODS NAME' , 30(15) 'FieldName', 60(15)'Value'.
ULINE AT /5(70).
LOOP AT it_ods INTO wa_ods.
CONCATENATE ' /BIC/A' wa_ods-odsobject '40' INTO l_up.
SELECT SINGLE fieldnm FROM rsdiobj INTO fieldnm
WHERE iobjnm = wa_ods-fieldname AND bjvers = 'A'.
SELECT (fieldnm) INTO TABLE citab FROM (l_up).
SORT citab.
DELETE ADJACENT DUPLICATES FROM citab.
LOOP AT citab INTO l_str.
CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
EXPORTING
intext = l_str
IMPORTING
uttext = l_new.
IF l_new NE l_str.
CONCATENATE ' ' fieldnm ' = ''' l_new '''' INTO l_st.
CONCATENATE ' ' fieldnm ' = ''' l_str '''' INTO l_wh.
IF NOT l_list EQ 'X'.
UPDATE (l_up)
SET (l_st)
WHERE (l_wh).
ENDIF.
WRITE : AT /10(15) wa_ods-odsobject ,
28 wa_ods-fieldname,55 l_str+0(40) LEFT-JUSTIFIED.
ENDIF.
ENDLOOP.
ENDLOOP.
* ENDIF.
