SAP后台JOB异常邮件提醒
*&---------------------------------------------------------------------*
*& Report ZSDR0014
*&
*&---------------------------------------------------------------------*
*显示"已完成"和"已取消”状态的JOB LOG aBaitianzhen 2016.03.03
*&
*&---------------------------------------------------------------------*
REPORT zsdr0014 NO STANDARD PAGE HEADING LINE-SIZE 1023.
****************************************************************
* 定义
****************************************************************
TABLES:btcselect.
TYPES:
BEGIN OF ty_jobs.
INCLUDE STRUCTURE tbtcjob_bk AS job.
TYPES:
usage_time TYPE p DECIMALS 0,
delay_time TYPE p DECIMALS 0,
t_log TYPE btc_t_job_log,
END OF ty_jobs,
tty_jobs TYPE STANDARD TABLE OF ty_jobs.
DATA:
gt_jobs_all TYPE tty_jobs,
gt_list_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
parain LIKE btcselect.
****************************************************************
* 选择屏幕
****************************************************************
PARAMETERS:
p_job LIKE parain-jobname OBLIGATORY DEFAULT '*',
p_user LIKE parain-username OBLIGATORY DEFAULT '*',
p_prog LIKE parain-abapname.
*SELECT-OPTIONS:s_date FOR parain-from_date
*NO-EXTENSION DEFAULT sy-datum OBLIGATORY .
PARAMETERS:p_frdate TYPE sy-datlo DEFAULT sy-datum,
p_frtime TYPE sy-timlo DEFAULT '000000',
p_todate TYPE sy-datlo DEFAULT sy-datum,
p_totime TYPE sy-timlo DEFAULT '235959'.
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE opt.
PARAMETERS:
rd_mail TYPE char1 RADIOBUTTON GROUP rd1 DEFAULT 'X',
rd_alv TYPE char1 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN END OF BLOCK bk1.
****************************************************************
* 初始化
****************************************************************
INITIALIZATION.
%_p_job_%_app_%-text = '作业名称'.
%_p_user_%_app_%-text = '用户名'.
%_p_prog_%_app_%-text = 'ABAP程序名称'.
* %_s_date_%_app_%-text = '作业日期'.
%_rd_mail_%_app_%-text = '发送邮件'.
%_rd_alv_%_app_%-text = 'ALV显示'.
%_p_frdate_%_app_%-text = '开始日期'.
%_p_frtime_%_app_%-text = '开始时间'.
%_p_todate_%_app_%-text = '结束日期'.
%_p_totime_%_app_%-text = '结束时间'.
CLEAR:
gt_jobs_all,
gt_list_fldcat,
parain.
****************************************************************
* START-OF-SELECTION.
****************************************************************
START-OF-SELECTION.
*---抓取数据
PERFORM frm_getdata.
*---显示数据
IF rd_alv IS NOT INITIAL.
PERFORM frm_outdata.
ENDIF.
IF rd_mail IS NOT INITIAL.
*---发送邮件
PERFORM frm_send_mail.
ENDIF.
*&---------------------------------------------------------------------*
*& Form frm_getdata
*&---------------------------------------------------------------------*
* 抓取数据
*----------------------------------------------------------------------*
FORM frm_getdata.
DATA:
lt_jobs TYPE TABLE OF tbtcjob_bk WITH HEADER LINE,
lt_log TYPE TABLE OF tbtc5 WITH HEADER LINE.
parain-jobname = p_job.
parain-username = p_user.
parain-abapname = p_prog .
parain-from_date = p_frdate.
parain-from_time = p_frtime.