ABAP接口日志查詢程序

.*&**&ReportZMME_LOG*&*&*感謝閱讀*&*&說(shuō)明：配置表ZTMM_LOG_CONF中的主鍵字段名和消息字段名以“,”隔開(kāi)精品文檔放心下載*&*謝謝閱讀REPORTzmme_log.TABLES:syst,zsmm_log.*&*感謝閱讀*TYPES*&*謝謝閱讀TYPE-POOLS:slis."ALVTYPE-POOLS:icon."圖標(biāo)TYPE-POOLS:bkkdc."域文本TYPE-POOLS:abap.TYPESBEGINOFty_itab.TYPESstatus(4)TYPEc."狀態(tài)（紅綠燈）感謝閱讀INCLUDETYPEzsmm_log.TYPES:stextTYPEfunctext.精品文檔放心下載TYPESENDOFty_itab..TYPES:BEGINOFty_fname,valueTYPEfdname,ENDOFty_fname.TYPES:BEGINOFty_fvalue,精品文檔放心下載valueTYPEchar20,ENDOFty_fvalue.*&*感謝閱讀*CONSTANTS*&*精品文檔放心下載*&*精品文檔放心下載*GLOBALDATA*&*精品文檔放心下載DATA:gv_repid TYPEsy-repid.精品文檔放心下載*&*感謝閱讀*GLOBALINTERNALTABLES*&*謝謝閱讀DATA:gwa_log_confTYPEztmm_log_conf,謝謝閱讀.gt_log_confTYPETABLEOFztmm_log_conf.感謝閱讀DATA:gt_itabTYPETABLEOFty_itab,謝謝閱讀gwa_itabTYPEty_itab."ALV相關(guān)變量DATA:gt_fieldcat TYPElvc_t_fcat,精品文檔放心下載gwa_layout TYPElvc_s_layo,感謝閱讀gt_event_exitTYPEslis_t_event_exit.感謝閱讀DATA:gt_component_tabTYPEabap_component_tab,感謝閱讀gs_component_descTYPELINEOFabap_component_tab,感謝閱讀gr_struc_type TYPEREFTOcl_abap_structdescr,感謝閱讀gr_tab_type TYPEREFTOcl_abap_tabledescr,謝謝閱讀gr_struc TYPEREFTOdata,謝謝閱讀gr_tab TYPEREFTOdata,ld_comp(40) TYPEc.FIELD-SYMBOLS:<gs_selection>TYPEany,精品文檔放心下載<gt_selection>TYPEtable.謝謝閱讀*&*精品文檔放心下載*GLOBALRANGES.*&*精品文檔放心下載*&*精品文檔放心下載*SELECTION-SCREEN*&*感謝閱讀SELECT-OPTIONS:s_zfnameFORzsmm_log-感謝閱讀zfnameMATCHCODEOBJECTzmm_sh_interface,"接口名稱精品文檔放心下載s_datumFORsyst-datum,"日期感謝閱讀s_uzeitFORsyst-uzeit,"時(shí)間謝謝閱讀s_zitypeFORzsmm_log-zitype,"接口類(lèi)型精品文檔放心下載s_rtypeFORzsmm_log-rtype."狀態(tài)感謝閱讀**&*感謝閱讀**GLOBALMACROS**&*精品文檔放心下載***&*感謝閱讀**EVENTSBEFOREMAINPROGRAM感謝閱讀**&*感謝閱讀*INITIALIZATION.*PERFORMfrm_initprogm.程"序初始化感謝閱讀.***ATSELECTION-SCREENOUTPUT.謝謝閱讀***ATSELECTION-SCREENONVALUE-REQUESTFOR.感謝閱讀***ATSELECTION-SCREEN.***TOP-OF.**&*謝謝閱讀*MAINPROGRAM**謝謝閱讀START-OF-SELECTION.*INITIALIZEDATAPERFORMfrm_initialize_data.精品文檔放心下載PROCESSINPUTDATA(FORINBOUNDINTERFACES)謝謝閱讀PERFORMFRM_PROCESS_INPUT_DATA.謝謝閱讀**SELECTDATAFROMDATABASE謝謝閱讀.PERFORMfrm_select_data.PROCESSSELECTEDDATAPERFORMFRM_PROCESS_DATA.END-OF-SELECTION.COMBINERESULTSFROMTHEPROCESSING(MAYNOTBENECESSARY)感謝閱讀PERFORMFRM_COMBINE_DATA.OUTPUTRESULTTOFILEORSPOOL/SCREEN謝謝閱讀PERFORMfrm_output_data.*&*精品文檔放心下載*& FORMFRM_INITIALIZE_DATA感謝閱讀*&*感謝閱讀TEXT**謝謝閱讀*-->P1 TEXT*<--P2 TEXT**謝謝閱讀FORMfrm_initialize_data.謝謝閱讀.SELECT*FROMztmm_log_conf謝謝閱讀INTOCORRESPONDINGFIELDSOFTABLEgt_log_conf感謝閱讀WHEREzfnameINs_zfname"接口名稱謝謝閱讀ANDzitypeINs_zitype."接口類(lèi)型謝謝閱讀ENDFORM.*&*精品文檔放心下載*& FORMFRM_SELECT_DATA*&*精品文檔放心下載TEXT**感謝閱讀*-->P1 TEXT*<--P2 TEXT**感謝閱讀FORMfrm_select_data.DATA:lv_tabnameTYPEobjectname.精品文檔放心下載DATA:lv_str_whereTYPEstring.感謝閱讀DATA:lwa_fnameTYPEty_fname.謝謝閱讀DATA:lt_knameTYPETABLEOFty_fname."主鍵字段精品文檔放心下載DATA:lt_mnameTYPETABLEOFty_fname."消息字段精品文檔放心下載FIELD-SYMBOLS:<lfs_value>TYPEany.感謝閱讀DATA:lv_valueTYPEstring.感謝閱讀DATA:lv_lenthTYPEi..DATA:lv_stextTYPEfunctext.感謝閱讀LOOPATgt_log_confINTOgwa_log_conf.謝謝閱讀"接口描述CLEAR:lv_stext.SELECTSINGLEstextINTOlv_stext精品文檔放心下載FROMtftitWHEREfuncname=gwa_log_conf-zfname.感謝閱讀"查詢條件：傳輸日期IFgwa_log_conf-zdnameISNOTINITIAL.感謝閱讀CONCATENATEgwa_log_conf-zdname'INS_DATUM'INTOlv_str_whereRESPECTINGBLANKS.精品文檔放心下載ENDIF."查詢條件：傳輸時(shí)間IFlv_str_whereISINITIAL.精品文檔放心下載IFgwa_log_conf-ztnameISNOTINITIAL.謝謝閱讀CONCATENATEgwa_log_conf-ztname'INS_UZEIT'INTOlv_str_whereRESPECTINGBLANKS.精品文檔放心下載ENDIF.ELSE.IFgwa_log_conf-ztnameISNOTINITIAL.精品文檔放心下載CONCATENATElv_str_where'AND'gwa_log_conf-ztname'INS_UZEIT'精品文檔放心下載.INTOlv_str_whereRESPECTINGBLANKS.感謝閱讀ENDIF.ENDIF."查詢條件：傳輸狀態(tài)IFlv_str_whereISINITIAL.感謝閱讀IFgwa_log_conf-zsnameISNOTINITIAL.感謝閱讀CONCATENATEgwa_log_conf-zsname'INS_RTYPE'INTOlv_str_whereRESPECTINGBLANKS.謝謝閱讀ENDIF.ELSE.IFgwa_log_conf-zsnameISNOTINITIAL.謝謝閱讀CONCATENATElv_str_where'AND'gwa_log_conf-zsname'INS_RTYPE'感謝閱讀INTOlv_str_whereRESPECTINGBLANKS.謝謝閱讀ENDIF.ENDIF."動(dòng)態(tài)獲取日志信息lv_tabname=gwa_log_conf-ztable.謝謝閱讀PERFORMcreate_dynamic_tables謝謝閱讀USINGlv_tabname'DOCS'..IF<gt_selection>ISASSIGNED.精品文檔放心下載SELECT*FROM(lv_tabname)感謝閱讀INTOCORRESPONDINGFIELDSOFTABLE<gt_selection>感謝閱讀WHERE(lv_str_where).IFsy-subrc=0AND<gs_selection>ISASSIGNED.精品文檔放心下載SPLITgwa_log_conf-zkeyAT','INTOTABLElt_kname.精品文檔放心下載SPLITgwa_log_conf-zmnameAT','INTOTABLElt_mname.精品文檔放心下載LOOPAT<gt_selection>INTO<gs_selection>.精品文檔放心下載"功能模塊的名稱gwa_itab-zfname=gwa_log_conf-zfname.謝謝閱讀"功能模塊的描述gwa_itab-stext=lv_stext.謝謝閱讀"傳輸日期ASSIGNCOMPONENTgwa_log_conf-精品文檔放心下載zdnameOFSTRUCTURE<gs_selection>TO<lfs_value>.感謝閱讀IFsy-subrc=0.gwa_itab-sydat=<lfs_value>.感謝閱讀ENDIF."傳輸日期ASSIGNCOMPONENTgwa_log_conf-精品文檔放心下載ztnameOFSTRUCTURE<gs_selection>TO<lfs_value>.謝謝閱讀IFsy-subrc=0..gwa_itab-sytim=<lfs_value>.謝謝閱讀ENDIF."接口類(lèi)型gwa_itab-zitype=gwa_log_conf-zitype.謝謝閱讀"主鍵值CLEAR:lwa_fname.LOOPATlt_knameINTOlwa_fname.精品文檔放心下載ASSIGNCOMPONENTlwa_fname-謝謝閱讀valueOFSTRUCTURE<gs_selection>TO<lfs_value>.謝謝閱讀IFsy-subrc=0AND<lfs_value>ISNOTINITIAL.感謝閱讀IF<lfs_value>ISASSIGNED.感謝閱讀lv_value=<lfs_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."去除最后一位的逗號(hào)精品文檔放心下載CONDENSEgwa_itab-zkvalueNO-GAPS.謝謝閱讀lv_lenth=strlen(gwa_itab-zkvalue).謝謝閱讀lv_lenth=lv_lenth-1.IFlv_lenth>0.gwa_itab-zkvalue=gwa_itab-zkvalue+0(lv_lenth).精品文檔放心下載ENDIF.ENDIF.ENDAT.CLEAR:lwa_fname.ENDLOOP."傳輸狀態(tài)ASSIGNCOMPONENTgwa_log_conf-精品文檔放心下載zsnameOFSTRUCTURE<gs_selection>TO<lfs_value>.感謝閱讀IFsy-subrc=0.gwa_itab-rtype=<lfs_value>.精品文檔放心下載IFgwa_itab-rtype='E'.gwa_itab-status='@5C@'.ELSE.gwa_itab-status='@5B@'..ENDIF.ENDIF."消息CLEAR:lwa_fname.LOOPATlt_mnameINTOlwa_fname.精品文檔放心下載ASSIGNCOMPONENTlwa_fname-謝謝閱讀valueOFSTRUCTURE<gs_selection>TO<lfs_value>.感謝閱讀IFsy-subrc=0AND<lfs_value>ISNOTINITIAL.謝謝閱讀lv_value=<lfs_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.謝謝閱讀"去除最后一位的逗號(hào)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_tablesUSING id_dimenTYPEobjectname感謝閱讀id_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='BUCHUNG'ANDgs_dimen='GSBER'.感謝閱讀CONTINUE.ENDIF.ASSIGNgs_dimenTO<field>.精品文檔放心下載CLEARgs_component_desc.gs_component_desc-name=<field>.感謝閱讀CONCATENATE'glu1-'<field>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<field>.謝謝閱讀CLEARgs_component_desc.gs_component_desc-name=<field>.謝謝閱讀CONCATENATE'glu1-'<field>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<gs_selection>,謝謝閱讀gr_tab->*TO<gt_selection>."toreplacetheextract謝謝閱讀ENDFORM. "create_dynamic_tables感謝閱讀*&*感謝閱讀*& FORMFRM_OUTPUT_DATA*&*謝謝閱讀TEXT**精品文檔放心下載*-->P1 TEXT.*<--P2 TEXT**精品文檔放心下載FORMfrm_output_data.PERFORMfrm_layout_build.PERFORMfrm_fieldcat_init.精品文檔放心下載PERFORMfrm_display_alv.ENDFORM.*&*謝謝閱讀*& FORMFRM_LAYOUT_BUILD*&*精品文檔放心下載TEXT**精品文檔放心下載*-->P1 TEXT*<--P2 TEXT**精品文檔放心下載FORMfrm_layout_build.gwa_layout-cwidth_opt ='X'."優(yōu)化列寬選項(xiàng)是否設(shè)置謝謝閱讀gwa_layout-zebra ='X'."斑馬線精品文檔放心下載ENDFORM.*&*感謝閱讀*& FORMFRM_FIELDCAT_INIT.*&*精品文檔放心下載TEXT**精品文檔放心下載*-->P1 TEXT*<--P2 TEXT**精品文檔放心下載FORMfrm_fieldcat_init.DATA:lwa_fieldcatTYPElvc_s_fcat.感謝閱讀DEFINEd_get_field.CLEARLWA_FIELDCAT.LWA_FIELDCAT-FIELDNAME=&1.感謝閱讀LWA_FIELDCAT-SCRTEXT_L=&2.感謝閱讀lwa_fieldcat-REF_table=&3.感謝閱讀lwa_fieldcat-REF_FIELD=&4.感謝閱讀IF&1='BOX'.LWA_FIELDCAT-EDIT='X'.LWA_FIELDCAT-CHECKBOX='X'.精品文檔放心下載ENDIF.APPENDLWA_FIELDCATTOGT_FIELDCAT.感謝閱讀END-OF-DEFINITION..REFRESHgt_fieldcat.d_get_field'STATUS''傳輸狀態(tài)'''''.感謝閱讀d_get_field'ZFNAME''函數(shù)模塊''ZTMM_LOG_CONF''ZFNAME'.精品文檔放心下載d_get_field'STEXT''接口描述'''''.精品文檔放心下載d_get_field'SYDAT' '傳輸日期''ZSMM_LOG''SYDAT'.感謝閱讀d_get_field'SYTIM' '傳輸時(shí)間''ZSMM_LOG''SYTIM'.感謝閱讀d_get_field'ZITYPE''接口類(lèi)型''ZTMM_LOG_CONF''ZITYPE'.精品文檔放心下載d_get_field'ZKVALUE''主鍵值'''''.感謝閱讀d_get_field'RTYPE' '傳輸狀態(tài)''ZSMM_LOG''RTYPE'.謝謝閱讀d_get_field'RTMSG' '消息'''''.精品文檔放心下載ENDFORM.*&*感謝閱讀*& FORMFRM_DISPLAY_ALV*&*感謝閱讀TEXT**謝謝閱讀*-->P1 TEXT*<--P2 TEXT**謝謝閱讀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.精品文檔放心下載CALLFUNCTION'REUSE_ALV_GRID_DISPLAY_LVC'感謝閱讀EXPORTINGi_callback_program =gv_repid感謝閱讀i_callback_pf_status_set='FRM_USER_STATUS'感謝閱讀i_callback_user_command='FRM_USER_COMMAND'精品文檔放心下載is_layout_lvc =gwa_layout謝謝閱讀it_fieldcat_lvc =gt_fieldcat精品文檔放心下載it_event_exit =gt_event_exit感謝閱讀TABLESt_outtab =gt_itabEXCEPTIONSprogram_error =1.OTHERS=2.IFsy-subrc<>0.*IMPLEMENTSUITABLEERRORHANDLINGHERE精品文檔放心下載ENDIF.ENDFORM.**&*感謝閱讀**& FORMFRM_USER_STATUS**&*精品文檔放心下載*FORMfrm_user_statusUSINGextabTYPEslis_t_extab.精品文檔放心下載*ENDFORM."FRM_USER_STATUS謝謝閱讀*&*謝謝閱讀*& FORMFRM_USER_COMMAND*&*謝謝閱讀FORMfrm_user_commandUSINGok_ucommLIKEsy-ucomm精品文檔放心下載rs_selfieldTYPEslis_selfield.感謝閱讀DATA:lf_checkTYPEc.DATA:lwa_gridTYPEREFTOcl_gui_alv_grid.謝謝閱讀DATA:lwa_stableTYPElvc_s_stbl.精品文檔放心下載DATA:lwa_layoTYPElvc_s_layo.精品文檔放心下載.CLEAR:lf_check.CALLFUNCTION'GET_GLOBALS_FROM_SLVC_FULLSCR'謝謝閱讀IMPORTINGe_grid=lwa_grid.CALLMETHODlwa_grid->check_changed_data.謝謝閱讀"獲取ALV當(dāng)前輸出格式CALLMETHODlwa_grid->get_frontend_layout謝謝閱讀IMPORTINGes_layout=lwa_layo.CASEok_ucomm.WHEN'&IC1'."雙擊"顯示日志詳細(xì)信息PERFORMfrm_get_detailUSINGrs_selfield.精品文檔放心下載WHENOTHERS.ENDCASE.lwa_layo-cwidth_opt ='X'."優(yōu)化列寬選項(xiàng)是否設(shè)置謝謝閱讀CALLMETHODlwa_grid->set_frontend_layout精品文檔放心下載EXPORTINGis_layout=lwa_layo..rs_selfield-refresh='X'.謝謝閱讀rs_selfield-col_stable='X'.謝謝閱讀rs_selfield-row_stable='X'.謝謝閱讀ENDFORM."FRM_USER_COMMAND謝謝閱讀*&*謝謝閱讀*& FormFRM_GET_DETAIL*&*精品文檔放心下載顯示日志詳細(xì)信息**感謝閱讀-->p_selfieldtext**精品文檔放心下載FORMfrm_get_detailUSING p_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-zdname'EQ'''gwa_itab-謝謝閱讀sydat''''INTOlv_str_whereRESPECTINGBLANKS.精品文檔放心下載ENDIF."查詢條件：傳輸時(shí)間IFlv_str_whereISINITIAL.精品文檔放心下載IFgwa_log_conf-ztnameISNOTINITIAL.感謝閱讀CONCATENATEgwa_log_conf-ztname'EQ'''gwa_itab-精品文檔放心下載sytim''''INTOlv_str_whereRESPECTINGBLANKS.謝謝閱讀ENDIF.ELSE.IFgwa_log_conf-ztnameISNOTINITIAL.精品文檔放心下載CONCATENATElv_str_where'AND'gwa_log_conf-ztname'EQ'''gwa_itab-精品文檔放心下載sytim''''INTOlv_str_whereRESPECTINGBLANKS.謝謝閱讀ENDIF.ENDIF.SPLITgwa_log_conf-zkeyAT','INTO