场景：异常JOB主动推送企业微信群 （企业微信机器人可百度创建，注意群不能有企业外的人员，否则接口无效）

• 事务代码：ZSM37_CHECK
• 程序名称：ZSM37_CHECK
• 程序目的： ZCSM37-后台JOB异常检查
• 自建表：
• 开发人员：
  *(修改日志)--------------------------------------------------------
• 日志号 修改人 修改时间 修改说明 传输号码

• ---

• 001

REPORT zsm37_check.

======================================================================

• INCLUDE
  ======================================================================
  INCLUDE zsm37_check_top.
  INCLUDE zsm37_check_f01.

======================================================================

• AT SELECTION-SCREEN.
  ======================================================================
  AT SELECTION-SCREEN OUTPUT.

======================================================================

• INITIALIZATION
  ======================================================================
  INITIALIZATION.

======================================================================

• START-OF-SELECTION.
  ======================================================================
  START-OF-SELECTION.

IF p_mins IS INITIAL.
p_mins = 60.
ENDIF.

PERFORM pfm_get_data.
PERFORM pfr_display_alv.

======================================================================

• END-OF-SELECTION.
  ======================================================================
  END-OF-SELECTION.

&---------------------------------------------------------------------
*& 包含 ZSM37_CHECK_TOP
&---------------------------------------------------------------------

TABLES:tbtco,tbtcp.

DATA: BEGIN OF gt_alv OCCURS 0,
light(4) TYPE c, " 标识
jobname TYPE tbtco-jobname,
progname TYPE progname,
variant TYPE variant,
sdluname TYPE tbtco-sdluname,
sdldate TYPE tbtco-sdldate,
sdltime TYPE tbtco-sdltime,

    date        TYPE tbtco-sdldate,time        TYPE tbtco-sdltime,prdmins     TYPE tbtco-prdmins,prdhours    TYPE tbtco-prdhours,prddays     TYPE tbtco-prddays,prdweeks    TYPE tbtco-prdweeks,prdmonths   TYPE tbtco-prdmonths,pl          TYPE char100,flag1       TYPE c,flag2       TYPE c,

•    min         TYPE i,min_c       TYPE char100,"当前检查时间datum_check TYPE sy-datum,uzeit_check TYPE sy-uzeit,END OF gt_alv.
  

DATA:gv_zuserid TYPE ztxnth-zuserid. "二级账号
DATA:it_raw TYPE truxs_t_text_data.
DATA: gs_layout TYPE lvc_s_layo,
gs_fieldcat TYPE lvc_s_fcat,
gt_fieldcat TYPE lvc_t_fcat,
stylelin TYPE lvc_s_styl,
alv_grid TYPE REF TO cl_gui_alv_grid.
CONSTANTS: cos_green_light LIKE dv70a-statusicon VALUE ‘@08@’, "绿灯
cos_yellow_light LIKE dv70a-statusicon VALUE ‘@09@’, "黄灯
cos_red_light LIKE dv70a-statusicon VALUE ‘@0A@’. "红灯
DATA: gt_events TYPE slis_t_event, "事件
gs_events LIKE LINE OF gt_events.

DATA:lv_s TYPE i,
lv_e TYPE i.

RANGES:r_date FOR sy-datum,
r_time FOR sy-uzeit.
DEFINE add_field.
gs_fieldcat-FIELDNAME = &1.
gs_fieldcat-scrtext_l = &2.
gs_fieldcat-EDIT = &3.
gs_fieldcat-HOTSPOT = &4.
gs_fieldcat-CHECKBOX = &5.
gs_fieldcat-REF_FIELD = &6.
gs_fieldcat-REF_TABLE = &7.
gs_fieldcat-ICON = &8.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.

END-OF-DEFINITION.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .
SELECT-OPTIONS:s_job FOR tbtco-jobname ,
s_uname FOR tbtco-sdluname,
" s_date FOR tbtco-sdlstrtdt ,

•           s_ser FOR tbtco-reaxservers_pname FOR tbtcp-progname.
  

PARAMETERS:p_mins TYPE n LENGTH 5 DEFAULT ‘60’ NO-DISPLAY.

PARAMETERS:p_sed AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK b2.

&---------------------------------------------------------------------
*& 包含 ZSM37_CHECK_F01
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form PFM_GET_DATA
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------

• –> p1 text
• <-- p2 text
  ----------------------------------------------------------------------
  FORM pfm_get_data .

"R 活动的（运行中）
"Y 就绪的
"P 已调度的
"S 已释放
"A 已取消（出错终止）
"F 已完成（结束）
"Z Released/Susp.(无中文)

DATA:lt_ztsm37 TYPE TABLE OF ztsm37,
ls_ztsm37 TYPE ztsm37.

DATA:lv_datum_check TYPE sy-datum.
DATA:lv_uzeit_check TYPE sy-uzeit.

"当前检查时间
lv_datum_check = sy-datum.
lv_uzeit_check = sy-uzeit.

"获取已释放状态的JOB和日期
SELECT
jobname,
sdldate,
sdltime,
sdluname,
prdmins,
prdhours,
prddays,
prdweeks,
prdmonths,
status
INTO TABLE @DATA(lt_job)
FROM tbtco
WHERE status = ‘S’ "S 已释放
AND periodic = ‘X’"周期性
AND authckman = @sy-mandt
AND jobname IN @s_job
AND sdluname IN @s_uname.

SORT lt_job BY jobname.
DELETE ADJACENT DUPLICATES FROM lt_job COMPARING jobname.

"更新自建表数据
CLEAR:lt_ztsm37,ls_ztsm37.
LOOP AT lt_job INTO DATA(ls_job).

"获取最后一次执行时间
SELECT SINGLE
MAX( strttime ) AS strttime,
strtdate,
jobname
FROM tbtco
INTO @DATA(ls_job_max)WHERE status IN ('R','F')"R 活动的（运行中） "F 已完成（结束）AND periodic = 'X'"周期性AND jobname = @ls_job-jobnameAND authckman = @sy-mandtAND strtdate = (  SELECT MAX( strtdate ) AS strtdateFROM tbtcoWHERE status IN ('R','F')AND periodic = 'X'"周期性AND jobname = @ls_job-jobnameAND authckman = @sy-mandtGROUP BY jobname)GROUP BY strtdate ,jobname.
IF sy-subrc = 0.ls_job-sdldate = ls_job_max-strtdate.ls_job-sdltime = ls_job_max-strttime.ELSE.CLEAR:ls_job-sdldate,ls_job-sdltime.ENDIF.MOVE-CORRESPONDING ls_job TO ls_ztsm37.ls_ztsm37-zcjrq = sy-datum.
APPEND ls_ztsm37 TO lt_ztsm37.MODIFY lt_job FROM ls_job.
CLEAR:ls_ztsm37,ls_job.

ENDLOOP.

IF lt_ztsm37[] IS NOT INITIAL.
MODIFY ztsm37 FROM TABLE lt_ztsm37.
IF sy-subrc = 0.
COMMIT WORK.
ELSE.
ROLLBACK WORK.
ENDIF.
ENDIF.

"获取前一天的已释放JOB
DATA:lv_datum TYPE sy-datum.
lv_datum = sy-datum - 1.
SELECT
*
FROM ztsm37
INTO CORRESPONDING FIELDS OF TABLE @lt_ztsm37
WHERE jobname IN @s_job
AND sdluname IN @s_uname
AND zcjrq = @lv_datum.

"检查已释放状态是否存在
LOOP AT lt_ztsm37 INTO ls_ztsm37.

CLEAR gt_alv.
MOVE-CORRESPONDING ls_ztsm37 TO gt_alv.READ TABLE lt_job INTO ls_job WITH KEY jobname = ls_ztsm37-jobname BINARY SEARCH.
IF sy-subrc <> 0.gt_alv-light = cos_red_light.gt_alv-flag1 = 'X'.
ELSE.gt_alv-light = cos_green_light.
ENDIF.APPEND gt_alv.

ENDLOOP.

"已释放JOB执行频率检查
LOOP AT lt_job INTO ls_job.
READ TABLE gt_alv WITH KEY jobname = ls_job-jobname .
IF sy-subrc <> 0.
MOVE-CORRESPONDING ls_job TO gt_alv.
APPEND gt_alv.
ENDIF.
ENDLOOP.

IF gt_alv[] IS NOT INITIAL.
"获取JOB名称对应的程序和变式
SELECT DISTINCT
jobname,
progname,
variant
FROM tbtcp
INTO TABLE @DATA(lt_tbtcp)
FOR ALL ENTRIES IN @gt_alv
WHERE jobname = @gt_alv-jobname
AND progname IN @s_pname.
SORT lt_tbtcp BY jobname.
ENDIF.

LOOP AT gt_alv.

• "获取最后一次执行时间
  DATA:lv_date LIKE p0001-begda,
  lv_months LIKE t5a4a-dlymo.

"JOB名称对应的程序名称&&变式
READ TABLE lt_tbtcp INTO DATA(ls_tbtcp) WITH KEY jobname = gt_alv-jobname BINARY SEARCH.
IF sy-subrc = 0.gt_alv-progname = ls_tbtcp-progname.gt_alv-variant = ls_tbtcp-variant.
ELSE.DELETE gt_alv WHERE jobname = gt_alv-jobname.CONTINUE.
ENDIF.IF gt_alv-sdldate IS INITIAL.gt_alv-light = cos_red_light.gt_alv-flag1 = 'X'.ELSE.lv_date = gt_alv-sdldate.lv_months = gt_alv-prdmonths."计算下次执行日期CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'EXPORTINGdate      = lv_datedays      = '00'months    = lv_monthssignum    = '+'years     = '00'IMPORTINGcalc_date = gt_alv-date.gt_alv-date = gt_alv-date + gt_alv-prddays + gt_alv-prdweeks * 7."计算下次执行时间DATA:lv_prdmins TYPE i  . " 一项批作业的持续时期(以分钟计算)lv_prdmins = gt_alv-prdmins + ( gt_alv-prdhours * 60 * 60 ).IF lv_prdmins > 86400.                                "一天等于86400秒gt_alv-date =  gt_alv-date + 1.ENDIF.gt_alv-time = gt_alv-sdltime + lv_prdmins.IF gt_alv-date < lv_datum_check.gt_alv-light = cos_red_light.gt_alv-flag2 = 'X'.ELSEIF gt_alv-date = lv_datum_check.IF gt_alv-time < lv_uzeit_check.gt_alv-light = cos_red_light.gt_alv-flag2 = 'X'.ENDIF.ENDIF.ENDIF.gt_alv-datum_check = lv_datum_check.
gt_alv-uzeit_check = lv_uzeit_check."频率显示

• prdmonths type tbtco-prdmonths,
  IF gt_alv-prdmonths IS NOT INITIAL.
  IF gt_alv-prdmonths = ‘1’.
  gt_alv-pl = ‘每月’.
  ELSE.
  gt_alv-pl = gt_alv-pl && gt_alv-prdmonths && ‘月’.
  ENDIF.
  ENDIF.

• prdweeks type tbtco-prdweeks,
  IF gt_alv-prdweeks IS NOT INITIAL.
  IF gt_alv-prdweeks = ‘1’.
  gt_alv-pl = ‘每周’.
  ELSE.
  gt_alv-pl = gt_alv-pl && gt_alv-prdweeks && ‘周’.
  ENDIF.
  ENDIF.

• prddays type tbtco-prddays,
  IF gt_alv-prddays IS NOT INITIAL .
  IF gt_alv-prddays = ‘1’.
  gt_alv-pl = ‘每天’.
  ELSE.
  gt_alv-pl = gt_alv-pl && gt_alv-prddays && ‘天’.
  ENDIF.
  ENDIF.

• prdhours type tbtco-prdhours,
  IF gt_alv-prdhours IS NOT INITIAL.
  IF gt_alv-prdhours = ‘1’.
  gt_alv-pl = ‘每小时’.
  ELSE.
  gt_alv-pl = gt_alv-pl && gt_alv-prdhours && ‘小时’.
  ENDIF.
  ENDIF.

• prdmins type tbtco-prdmins,
  IF gt_alv-prdmins IS NOT INITIAL.
  IF gt_alv-prdmins = ‘1’.
  gt_alv-pl = ‘每分钟’.
  ELSE.
  gt_alv-pl = gt_alv-pl && gt_alv-prdmins && ‘分钟’.
  ENDIF.
  ENDIF.

"计算超时间-分钟
"https://blog.csdn.net/FQHX_116/article/details/128150602?spm=1001.2014.3001.5501 源码
IF gt_alv-flag2 = 'X'.CALL FUNCTION 'ZFM_DATE_DIFFERENCE'EXPORTINGiv_date_beg = gt_alv-sdldateiv_time_beg = gt_alv-sdltimeiv_date_end = lv_datum_checkiv_time_end = lv_uzeit_checkIMPORTINGev_message  = gt_alv-min_c.ELSEIF  gt_alv-flag1 = 'X'.gt_alv-min_c = '未执行'.ENDIF.IF p_sed = 'X'.IF gt_alv-light = cos_red_light.DATA:lv_json     TYPE string,lv_message  TYPE  char100,lv_status_c TYPE  char1."推送企业微信格式

• lv_json = ‘{ “msgtype”: “markdown”, “markdown”: { “content”: "### 异常JOB通知\n >JOB名称：’ &&

• 'XXXXXX \n 程序名称：XXXXXX \n 最后一次执行时间：\n 频率：5分钟 \n ’ &&

• ‘距最后一次执行时间: 50分钟 \n 检查时间：" }’.

  “推送企业微信格式
  lv_json = ‘{ “msgtype”: “markdown”, “markdown”: ’ &&
  ‘{ “content”: "### 异常JOB通知\n >JOB名称：’ && gt_alv-jobname &&
  ’ \n 程序名称：’ && gt_alv-progname &&
  ’ \n 变式名称：’ && gt_alv-variant &&
  ’ \n 最后一次执行时间：’
  && gt_alv-sdldate+0(4) &&‘/’&& gt_alv-sdldate+4(2) &&‘/’&& gt_alv-sdldate+6(2) && ‘,’
  && gt_alv-sdltime+0(2) &&‘:’&& gt_alv-sdltime+2(2) &&‘:’&& gt_alv-sdltime+4(2) &&
  ’ \n 频率：‘&& gt_alv-pl &&’ \n ’ &&
  ‘距最后一次执行时间: ’ && gt_alv-min_c && ' ‘&&
  ’ \n 检查时间：’
  && gt_alv-datum_check+0(4) &&’/‘&& gt_alv-datum_check+4(2) &&’/‘&& gt_alv-datum_check+6(2) && ‘,’
  && gt_alv-uzeit_check+0(2) &&’:‘&& gt_alv-uzeit_check+2(2) &&’:'&& gt_alv-uzeit_check+4(2) &&
  '” }'.

    IF lv_status_c = 'S'.MESSAGE '异常JOB推送企业微信成功' TYPE 'S'.ELSE.MESSAGE '异常JOB推送企业微信失败：'&& lv_message TYPE 'S' DISPLAY LIKE 'E'.ENDIF.ENDIF.ENDIF.MODIFY gt_alv.