ABAP接口日志查询程序Word格式文档下载.docx

ABAP接口日志查询程序Word格式文档下载.docx

《ABAP接口日志查询程序Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《ABAP接口日志查询程序Word格式文档下载.docx（14页珍藏版）》请在冰豆网上搜索。

c. 

"

状态（红绿灯）

INCLUDE 

zsmm_log.

TYPES:

stext 

functext.

END 

ty_fname,

value 

fdname,

ty_fname.

ty_fvalue,

char20,

ty_fvalue.

CONSTANTS

GLOBAL 

DATA

DATA:

gv_repid 

sy-repid.

INTERNAL 

TABLES

gwa_log_conf 

ztmm_log_conf,

gt_log_conf 

TABLE 

ztmm_log_conf.

gt_itab 

ty_itab,

gwa_itab 

ALV相关变量

gt_fieldcat 

lvc_t_fcat,

gwa_layout 

lvc_s_layo,

gt_event_exit 

slis_t_event_exit.

gt_component_tab 

abap_component_tab,

gs_component_desc 

LINE 

gr_struc_type 

REF 

TO 

cl_abap_structdescr,

gr_tab_type 

cl_abap_tabledescr,

gr_struc 

data,

gr_tab 

ld_comp（40） 

c.

FIELD-SYMBOLS:

<

gs_selection>

any,

gt_selection>

table.

RANGES

SELECTION-SCREEN

SELECT-OPTIONS:

s_zfname 

FOR 

zsmm_log-zfname 

MATCHCODE 

OBJECT 

zmm_sh_interface,"

接口名称

s_datum 

syst-datum, 

日期

s_uzeit 

syst-uzeit, 

时间

s_zitype 

zsmm_log-zitype, 

接口类型

s_rtype 

zsmm_log-rtype. 

状态

**&

** 

MACROS

*

EVENTS 

BEFORE 

MAIN 

PROGRAM

*INITIALIZATION.

PERFORM 

frm_initprogm. 

程序初始化

**AT 

SELECTION-SCREEN 

OUTPUT.

ON 

VALUE-REQUEST 

FOR.

SELECTION-SCREEN.

**TOP-OF-PAGE.

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

START-OF-SELECTION.

INITIALIZE 

frm_initialize_data.

PROCESS 

INPUT 

DATA 

（FOR 

INBOUND 

INTERFACES）

FRM_PROCESS_INPUT_DATA.

SELECT 

FROM 

DATABASE

frm_select_data.

SELECTED 

FRM_PROCESS_DATA.

END-OF-SELECTION.

COMBINE 

RESULTS 

THE 

PROCESSING 

（MAY 

NOT 

BE 

NECESSARY）

FRM_COMBINE_DATA.

OUTPUT 

RESULT 

FILE 

OR 

SPOOL/SCREEN

frm_output_data.

FORM 

FRM_INITIALIZE_DATA

TEXT

-->

P1 

-- 

P2 

frm_initialize_data 

.

ztmm_log_conf

INTO 

CORRESPONDING 

FIELDS 

gt_log_conf

WHERE 

zfname 

IN 

s_zfname"

AND 

zitype 

s_zitype."

ENDFORM.

FRM_SELECT_DATA

frm_select_data 

lv_tabname 

objectname.

lv_str_where 

string.

lwa_fname 

lt_kname 

ty_fname."

主键字段

lt_mname 

消息字段

lfs_value>

any.

lv_value 

lv_lenth 

i.

lv_stext 

LOOP 

AT 

gwa_log_conf.

接口描述

CLEAR:

lv_stext.

SINGLE 

lv_stext

tftit

funcname 

= 

gwa_log_conf-zfname.

查询条件：

传输日期

IF 

gwa_log_conf-zdname 

IS 

INITIAL.

CONCATENATE 

'

S_DATUM'

RESPECTING 

BLANKS.

ENDIF.

传输时间

gwa_log_conf-ztname 

S_UZEIT'

ELSE.

传输状态

gwa_log_conf-zsname 

S_RTYPE'

动态获取日志信息

gwa_log_conf-ztable.

create_dynamic_tables

USING

lv_tabname

DOCS'

ASSIGNED.

（lv_tabname）

（lv_str_where）.

sy-subrc 

0 

SPLIT 

gwa_log_conf-zkey 

'

lt_kname.

gwa_log_conf-zmname 

lt_mname.

功能模块的名称

gwa_itab-zfname 

功能模块的描述

gwa_itab-stext 

ASSIGN 

COMPONENT 

STRUCTURE 

0.

gwa_itab-sydat 

gwa_itab-sytim 

gwa_itab-zitype 

gwa_log_conf-zitype.

主键值

lwa_fname.

lwa_fname-value 

CONDENSE 

NO-GAPS.

gwa_itab-zkvalue 

gwa_itab-zkvalue.

LAST.

去除最后一位的逗号

strlen（ 

）.

- 

1.

>

gwa_itab-zkvalue+0（lv_lenth）.

ENDAT.

ENDLOOP.

gwa_itab-rtype 

E'

gwa_itab-status 

@5C@'

@5B@'

消息

gwa_itab-rtmsg 

gwa_itab-rtmsg.

gwa_itab-rtmsg+0（lv_lenth）.