ABAP接口日志查询程序
《ABAP接口日志查询程序》由会员分享,可在线阅读,更多相关《ABAP接口日志查询程序(16页珍藏版)》请在装配图网上搜索。
1、*&-*&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
2、.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
3、_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_strucTYPERE
4、FTOdata,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.状
5、态*&-*GLOBALMACROS*&-*&-*EVENTSBEFOREMAINPROGRAM*&-*INITIALIZATION.*PERFORMfrm_initprogm.程序初始化*ATSELECTION-SCREENOUTPUT.*ATSELECTION-SCREENONVALUE-REQUESTFOR.*ATSELECTION-SCREEN.*TOP-OF-PAGE.*&-*MAINPROGRAM*-*START-OF-SELECTION.*INITIALIZEDATAPERFORMfrm_initialize_data.*PROCESSINPUTDATA(FORINBOUNDINT
6、ERFACES)*PERFORMFRM_PROCESS_INPUT_DATA.*SELECTDATAFROMDATABASEPERFORMfrm_select_data.*PROCESSSELECTEDDATA*PERFORMFRM_PROCESS_DATA.*END-OF-SELECTION.*COMBINERESULTSFROMTHEPROCESSING(MAYNOTBENECESSARY)*PERFORMFRM_COMBINE_DATA.*OUTPUTRESULTTOFILEORSPOOL/SCREENPERFORMfrm_output_data.*&-*&FORMFRM_INITIAL
7、IZE_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_stex
8、tTYPEfunctext.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_l
9、og_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-zsnameISN
10、OTINITIAL.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
11、_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.传输
12、日期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-valueOFSTRUCTURE
13、TO.*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.去除最后一位的逗号CONDENSE
14、gwa_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.EL
15、SE.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_it
16、ab-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
17、.*&-*&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
18、_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.*
19、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*LOOPATg
20、t_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_comp
21、onent_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
22、_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.APPENDl
23、wa_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_itabEXCEPTIONSprogra
24、m_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.D
25、ATA: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_uc
26、omm.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*&-
27、*显示日志详细信息*-*-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_sel
28、field-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.IFgwa_log_conf-ztnameISNOTINITIAL.CONCATENATEgwa_log_conf-
29、ztnameEQgwa_itab-sytimINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ELSE.IFgwa_log_conf-ztnameISNOTINITIAL.CONCATENATElv_str_whereANDgwa_log_conf-ztnameEQgwa_itab-sytimINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ENDIF.SPLITgwa_log_conf-zkeyAT,INTOTABLElt_kname.SPLITgwa_itab-zkvalueAT,INTOTABLElt_kvalue.LOOPATlt
30、_knameINTOlwa_kname.READTABLElt_kvalueINTOlwa_kvalueINDEXsy-tabix.IFlv_str_whereISINITIAL.CONCATENATElwa_kname-valueEQlwa_kvalue-valueINTOlv_str_whereRESPECTINGBLANKS.ELSE.CONCATENATElv_str_whereANDlwa_kname-valueEQlwa_kvalue-valueINTOlv_str_whereRESPECTINGBLANKS.ENDIF.ENDLOOP.动态获取日志信息CLEAR:lv_tabname.lv_tabname=gwa_log_conf-ztable.PERFORMcreate_dynamic_tablesUSINGlv_tabnameDOCS.IFISASSIGNED.SELECT*FROM(lv_tabname)INTOCORRESPONDINGFIELDSOFTABLEWHERE(lv_str_where).IFsy-subrc=0ANDISASSIGNED.CALLFUNCTIONREUSE_ALV_POPUP_TO_SELECTEXPORTINGi_title=详细信息*I_SELECTION=X*I_AL
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。