ABAP接口日志查的询程序.docx

***?Report??ZMME_LOG*****说明：配置表ZTMM_LOG_CONF中的主键字段名和消息字段名以“,”隔开**REPORT?zmme_log.TABLES:?syst,zsmm_log.***?TYPES**TYPE-POOLS:?slis.ALVTYPE-POOLS:?icon.图标TYPE-POOLS:?bkkdc.域文本TYPE-POOLS:?abap.TYPES?BEGIN?OF?ty_itab.TYPES?status(4)?TYPE?c.?状态（红绿灯）?INCLUDE?TYPE?zsmm_log.TYPES:?stext?TYPE?functext.TYPES?END?OF?ty_itab.TYPES:?BEGIN?OF?ty_fname,?value?TYPE?fdname,?END?OF?ty_fname.TYPES:?BEGIN?OF?ty_fvalue,?value?TYPE?char20,?END?OF?ty_fvalue.***?CONSTANTS*****?GLOBAL?DATA**DATA:?gv_repidTYPE?sy-repid.***?GLOBAL?INTERNAL?TABLES**DATA:?gwa_log_conf?TYPE?ztmm_log_conf,?gt_log_conf??TYPE?TABLE?OF?ztmm_log_conf.DATA:?gt_itab??TYPE?TABLE?OF?ty_itab,?gwa_itab?TYPE?ty_itab.ALV相关变量DATA:?gt_fieldcatTYPE?lvc_t_fcat,?gwa_layoutTYPE?lvc_s_layo,?gt_event_exit?TYPE?slis_t_event_exit.DATA:?gt_component_tab??TYPE?abap_component_tab,?gs_component_desc?TYPE?LINE?OF?abap_component_tab,?gr_struc_typeTYPE?REF?TO?cl_abap_structdescr,?gr_tab_typeTYPE?REF?TO?cl_abap_tabledescr,?gr_strucTYPE?REF?TO?data,?gr_tabTYPE?REF?TO?data,?ld_comp(40)TYPE?c.FIELD-SYMBOLS:?gs_selection?TYPE?any,?gt_selection?TYPE?table.***?GLOBAL?RANGES*****?SELECTION-SCREEN**SELECT-OPTIONS:?s_zfname?FOR?zsmm_log-zfname?MATCHCODE?OBJECT?zmm_sh_interface,接口名称?s_datum??FOR?syst-datum,?日期?s_uzeit??FOR?syst-uzeit,?时间?s_zitype?FOR?zsmm_log-zitype,?接口类型?s_rtype??FOR?zsmm_log-rtype.?状态*****?GLOBAL?MACROS*********?EVENTS?BEFORE?MAIN?PROGRAM****INITIALIZATION.*??PERFORM?frm_initprogm.?程序初始化***AT?SELECTION-SCREEN?OUTPUT.***AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR.***AT?SELECTION-SCREEN.***TOP-OF.*****????????MAIN?PROGRAM***START-OF-SELECTION.*?INITIALIZE?DATA?PERFORM?frm_initialize_data.**?PROCESS?INPUT?DATA?(FOR?INBOUND?INTERFACES)*??PERFORM?FRM_PROCESS_INPUT_DATA.**?SELECT?DATA?FROM?DATABASE?PERFORM?frm_select_data.**?PROCESS?SELECTED?DATA*??PERFORM?FRM_PROCESS_DATA.*END-OF-SELECTION.**?COMBINE?RESULTS?FROM?THE?PROCESSING?(MAY?NOT?BE?NECESSARY)*??PERFORM?FRM_COMBINE_DATA.*?OUTPUT?RESULT?TO?FILE?OR?SPOOL/SCREEN?PERFORM?frm_output_data.