ABAP接口日志查询程序.doc

*&-*&ReportZMME_LOG*&*&-*&*&说明：配置表ZTMM_LOG_CONF中的主键字段名和消息字段名以“,”隔开*&-*REPORTzmme_log.TABLES:syst,zsmm_log.*&-*TYPES*&-*TYPE-POOLS:slis.ALVTYPE-POOLS:icon.图标TYPE-POOLS:bkkdc.域文本TYPE-POOLS:abap.TYPESBEGINOFty_itab.TYPESstatus(4)TYPEc.状态（红绿灯）INCLUDETYPEzsmm_log.TYPES:stextTYPEfunctext.TYPESENDOFty_itab.TYPES:BEGINOFty_fname,valueTYPEfdname,ENDOFty_fname.TYPES:BEGINOFty_fvalue,valueTYPEchar20,ENDOFty_fvalue.*&-*CONSTANTS*&-*&-*GLOBALDATA*&-*DATA:gv_repidTYPEsy-repid.*&-*GLOBALINTERNALTABLES*&-*DATA:gwa_log_confTYPEztmm_log_conf,gt_log_confTYPETABLEOFztmm_log_conf.DATA:gt_itabTYPETABLEOFty_itab,gwa_itabTYPEty_itab.ALV相关变量DATA:gt_fieldcatTYPElvc_t_fcat,gwa_layoutTYPElvc_s_layo,gt_event_exitTYPEslis_t_event_exit.DATA:gt_component_tabTYPEabap_component_tab,gs_component_descTYPELINEOFabap_component_tab,gr_struc_typeTYPEREFTOcl_abap_structdescr,gr_tab_typeTYPEREFTOcl_abap_tabledescr,gr_strucTYPEREFTOdata,gr_tabTYPEREFTOdata,ld_comp(40)TYPEc.FIELD-SYMBOLS:TYPEany,TYPEtable.*&-*GLOBALRANGES*&-*&-*SELECTION-SCREEN*&-*SELECT-OPTIONS:s_zfnameFORzsmm_log-zfnameMATCHCODEOBJECTzmm_sh_interface,接口名称s_datumFORsyst-datum,日期s_uzeitFORsyst-uzeit,时间s_zitypeFORzsmm_log-zitype,接口类型s_rtypeFORzsmm_log-rtype.状态*&-*GLOBALMACROS*&-*&-*EVENTSBEFOREMAINPROGRAM*&-*INITIALIZATION.*PERFORMfrm_initprogm.程序初始化*ATSELECTION-SCREENOUTPUT.*ATSELECTION-SCREENONVALUE-REQUESTFOR.*ATSELECTION-SCREEN.*TOP-OF-PAGE.*&-*MAINPROGRAM*-*START-OF-SELECTION.*INITIALIZEDATAPERFORMfrm_initialize_data.*PROCESSINPUTDATA(FORINBOUNDINTERFACES)*PERFORMFRM_PROCESS_INPUT_DATA.*SELECTDATAFROMDATABASEPERFORMfrm_select_data.*PROCESSSELECTEDDATA*PERFORMFRM_PROCESS_DATA.*END-OF-SELECTION.*COMBINERESULTSFROMTHEPROCESSING(MAYNOTBENECESSARY)*PERFORMFRM_COMBINE_DATA.*OUTPUTRESULTTOFILEORSPOOL/SCREENPERFORMfrm_output_data.*&-*&FORMFRM_INITIALIZE_DATA*&-*TEXT*-*-P1TEXT*P1TEXT*-P2TEXT*-*FORMfrm_select_data.DATA:lv_tabnameTYPEobjectname.DATA:lv_str_whereTYPEstring.DATA:lwa_fnameTYPEty_fname.DATA:lt_knameTYPETABLEOFty_fname.主键字段DATA:lt_mnameTYPETABLEOFty_fname.消息字段FIELD-SYMBOLS:TYPEany.DATA:lv_valueTYPEstring.DATA:lv_lenthTYPEi.DATA:lv_stextTYPEfunctext.LOOPATgt_log_confINTOgwa_log_conf.接口描述CLEAR:lv_stext.SELECTSINGLEstextINTOlv_stextFROMtftitWHEREfuncname=gwa_log_conf-zfname.查询条件：传输日期IFgwa_log_conf-zdnameISNOTINITIAL.CONCATENATEgwa_log_conf-zdnameINS_DATUMINTOlv_str_whereRESPECTINGBLANKS.ENDIF.查询条件：传输时间IFlv_str_whereISINITIAL.IFgwa_log_conf-ztnameISNOTINITIAL.CONCATENATEgwa_log_conf-ztnameINS_UZEITINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ELSE.IFgwa_log_conf-ztnameISNOTINITIAL.CONCATENATElv_str_whereANDgwa_log_conf-ztnameINS_UZEITINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ENDIF.查询条件：传输状态IFlv_str_whereISINITIAL.IFgwa_log_conf-zsnameISNOTINITIAL.CONCATENATEgwa_log_conf-zsnameINS_RTYPEINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ELSE.IFgwa_log_conf-zsnameISNOTINITIAL.CONCATENATElv_str_whereANDgwa_log_conf-zsnameINS_RTYPEINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ENDIF.动态获取日志信息lv_tabname=gwa_log_conf-ztable.PERFORMcreate_dynamic_tablesUSINGlv_tabnameDOCS.IFISASSIGNED.SELECT*FROM(lv_tabname)INTOCORRESPONDINGFIELDSOFTABLEWHERE(lv_str_where).IFsy-subrc=0ANDISASSIGNED.SPLITgwa_log_conf-zkeyAT,INTOTABLElt_kname.SPLITgwa_log_conf-zmnameAT,INTOTABLElt_mname.LOOPATINTO.功能模块的名称gwa_itab-zfname=gwa_log_conf-zfname.功能模块的描述gwa_itab-stext=lv_stext.传输日期ASSIGNCOMPONENTgwa_log_conf-zdnameOFSTRUCTURETO.IFsy-subrc=0.gwa_itab-sydat=.ENDIF.传输日期ASSIGNCOMPONENTgwa_log_conf-ztnameOFSTRUCTURETO.IFsy-subrc=0.gwa_itab-sytim=.ENDIF.接口类型gwa_itab-zitype=gwa_log_conf-zitype.主键值CLEAR:lwa_fname.LOOPATlt_knameINTOlwa_fname.ASSIGNCOMPONENTlwa_fname-valueOFSTRUCTURETO.*IFsy-subrc=0ANDISNOTINITIAL.IFISASSIGNED.lv_value=.ELSE.lv_value=.ENDIF.CONDENSElv_valueNO-GAPS.IFgwa_itab-zkvalueISINITIAL.CONCATENATElv_value,INTOgwa_itab-zkvalue.ELSE.CONCATENATEgwa_itab-zkvaluelv_value,INTOgwa_itab-zkvalue.ENDIF.*ENDIF.ATLAST.*IFgwa_itab-zkvalueISNOTINITIAL.去除最后一位的逗号CONDENSEgwa_itab-zkvalueNO-GAPS.lv_lenth=strlen(gwa_itab-zkvalue).lv_lenth=lv_lenth-1.IFlv_lenth0.gwa_itab-zkvalue=gwa_itab-zkvalue+0(lv_lenth).ENDIF.*ENDIF.ENDAT.CLEAR:lwa_fname.ENDLOOP.传输状态ASSIGNCOMPONENTgwa_log_conf-zsnameOFSTRUCTURETO.IFsy-subrc=0.gwa_itab-rtype=.IFgwa_itab-rtype=E.gwa_itab-status=5C.ELSE.gwa_itab-status=5B.ENDIF.ENDIF.消息CLEAR:lwa_fname.LOOPATlt_mnameINTOlwa_fname.ASSIGNCOMPONENTlwa_fname-valueOFSTRUCTURETO.IFsy-subrc=0ANDISNOTINITIAL.lv_value=.CONDENSElv_valueNO-GAPS.IFgwa_itab-rtmsgISINITIAL.CONCATENATElv_value,INTOgwa_itab-rtmsg.ELSE.CONCATENATEgwa_itab-rtmsglv_value,INTOgwa_itab-rtmsg.ENDIF.ENDIF.ATLAST.IFgwa_itab-rtmsgISNOTINITIAL.去除最后一位的逗号CONDENSEgwa_itab-rtmsgNO-GAPS.lv_lenth=strlen(gwa_itab-rtmsg).lv_lenth=lv_lenth-1.gwa_itab-rtmsg=gwa_itab-rtmsg+0(lv_lenth).ENDIF.ENDAT.CLEAR:lwa_fname.ENDLOOP.APPENDgwa_itabTOgt_itab.CLEAR:gwa_itab.ENDLOOP.ENDIF.ENDIF.ENDLOOP.ENDFORM.*&-*&Formcreate_dynamic_tables*&-*text*-*-P_GS_DIMENtext*-P_GS_NAMEtext*-*FORMcreate_dynamic_tablesUSINGid_dimenTYPEobjectnameid_nameTYPEobjectname.CLEARgs_component_desc.CLEARgt_component_tab.gs_component_desc-name=id_name.IFid_dimenISNOTINITIAL.gs_component_desc-type?=cl_abap_structdescr=describe_by_name(id_dimen).gs_component_desc-as_include=X.APPENDgs_component_descTOgt_component_tab.ENDIF.*LOOPATgt_dimenINTOgs_dimen.*IFgs_dimenISNOTINITIAL.*IFid_name=BUCHUNGANDgs_dimen=GSBER.*CONTINUE.*ENDIF.*ASSIGNgs_dimenTO.*CLEARgs_component_desc.*gs_component_desc-name=.*CONCATENATEglu1-INTOld_comp.*checkexistancebeforecreatingfieldJET*gs_component_desc-type?=cl_abap_elemdescr=describe_by_name(*ld_comp).*APPENDgs_component_descTOgt_component_tab.*ENDIF.*ENDLOOP.*getfieldsselectedbycustomer-*ensuretheyarenotduplicates!JT*donotallowbalancingfields,ifleftvariantselectedandsplitter*activeJT*LOOPATgt_fagl_fcINTOgs_fagl_fc.*IFgs_fagl_fc-fieldISNOTINITIAL.*ASSIGNgs_fagl_fc-fieldTO.*CLEARgs_component_desc.*gs_component_desc-name=.*CONCATENATEglu1-INTOld_comp.*checkexistancebeforecreatingfieldJET*gs_component_desc-type?=cl_abap_elemdescr=describe_by_name(*ld_comp).*APPENDgs_component_descTOgt_component_tab.*ENDIF.*ENDLOOP.gr_struc_type=cl_abap_structdescr=create(gt_component_tab).gr_tab_type=cl_abap_tabledescr=create(gr_struc_type).CREATEDATA:gr_strucTYPEHANDLEgr_struc_type,gr_tabTYPEHANDLEgr_tab_type.ASSIGN:gr_struc-*TO,gr_tab-*TO.toreplacetheextractENDFORM.create_dynamic_tables*&-*&FORMFRM_OUTPUT_DATA*&-*TEXT*-*-P1TEXT*P1TEXT*P1TEXT*P1TEXT*-P2TEXT*-*FORMfrm_display_alv.DATA:lwa_event_exitTYPEslis_event_exit.gv_repid=sy-repid.CLEAR:gt_event_exit.lwa_event_exit-ucomm=&ALL.lwa_event_exit-after=X.APPENDlwa_event_exitTOgt_event_exit.lwa_event_exit-ucomm=&SAL.lwa_event_exit-after=X.APPENDlwa_event_exitTOgt_event_exit.CALLFUNCTIONREUSE_ALV_GRID_DISPLAY_LVCEXPORTINGi_callback_program=gv_repid*i_callback_pf_status_set=FRM_USER_STATUSi_callback_user_command=FRM_USER_COMMANDis_layout_lvc=gwa_layoutit_fieldcat_lvc=gt_fieldcatit_event_exit=gt_event_exitTABLESt_outtab=gt_itabEXCEPTIONSprogram_error=1OTHERS=2.IFsy-subrc0.*IMPLEMENTSUITABLEERRORHANDLINGHEREENDIF.ENDFORM.*&-*&FORMFRM_USER_STATUS*&-*FORMfrm_user_statusUSINGextabTYPEslis_t_extab.*ENDFORM.FRM_USER_STATUS*&-*&FORMFRM_USER_COMMAND*&-*FORMfrm_user_commandUSINGok_ucommLIKEsy-ucommrs_selfieldTYPEslis_selfield.DATA:lf_checkTYPEc.DATA:lwa_gridTYPEREFTOcl_gui_alv_grid.DATA:lwa_stableTYPElvc_s_stbl.DATA:lwa_layoTYPElvc_s_layo.CLEAR:lf_check.CALLFUNCTIONGET_GLOBALS_FROM_SLVC_FULLSCRIMPORTINGe_grid=lwa_grid.CALLMETHODlwa_grid-check_changed_data.获取ALV当前输出格式CALLMETHODlwa_grid-get_frontend_layoutIMPORTINGes_layout=lwa_layo.CASEok_ucomm.WHEN&IC1.双击显示日志详细信息PERFORMfrm_get_detailUSINGrs_selfield.WHENOTHERS.ENDCASE.lwa_layo-cwidth_opt=X.优化列宽选项是否设置CALLMETHODlwa_grid-set_frontend_layoutEXPORTINGis_layout=lwa_layo.rs_selfield-refresh=X.rs_selfield-col_stable=X.rs_selfield-row_stable=X.ENDFORM.FRM_USER_COMMAND*&-*&FormFRM_GET_DETAIL*&-*显示日志详细信息*-*-p_selfieldtext*-*FORMfrm_get_detailUSINGp_selfieldTYPEslis_selfield.DATA:lv_tabnameTYPEobjectname.DATA:lv_str_whereTYPEstring.主键字段DATA:lwa_knameTYPEty_fname,lt_knameTYPETABLEOFty_fname.主键字段值DATA:lwa_kvalueTYPEty_fvalue,lt_kvalueTYPETABLEOFty_fvalue.READTABLEgt_itabINTOgwa_itabINDEXp_selfield-tabindex.READTABLEgt_log_confINTOgwa_log_confWITHKEYzfname=gwa_itab-zfname.查询条件：传输日期IFgwa_log_conf-zdnameISNOTINITIAL.CONCATENATEgwa_log_conf-zdnameEQgwa_itab-sydatINTOlv_str_whereRESPECTINGBLANKS.ENDIF.查询条件：传输时间IFlv_str_whereISINITIAL.IF