实时JOB代码实现
发布日期:2021-05-07 12:47:29 浏览次数:24 分类:精选文章

本文共 2045 字,大约阅读时间需要 6 分钟。

场景:设置SM36设置后台JOB最小单位为1分钟但是满足不了业务需求,业务需要立马执行的JOB

只能代码实现如下:

1.创建一个自建表实时取自建表数据执行相关操作,时间延迟最小
2.设置JOB开关,这个很重要
在这里插入图片描述

3.设置实时JOB程序后台执行,立即执行不用周期JOB

REPORT zsd999.

DATA:gv_zstatus TYPE ztprogram-zstatus,

gt_ztsso_hd_n TYPE STANDARD TABLE OF ztsso_hd_n,
gs_ztsso_hd_n TYPE ztsso_hd_n,
gt_zsso_hd_n TYPE STANDARD TABLE OF zsso_hd_n,
gs_zsso_hd_n TYPE zsso_hd_n,
gt_zsso_mx_n TYPE STANDARD TABLE OF zsso_mx_n.

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

*INITIALIZATION
--------------------------------------------------------------------
INITIALIZATION.

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

*START-OF-SELECTION
--------------------------------------------------------------------
START-OF-SELECTION.

DO.

REFRESH :gt_ztsso_hd_n.CLEAR gv_zstatus.SELECT SINGLE zstatus  INTO gv_zstatus  FROM ztprogram  WHERE zprogram = 'ZSD999'.IF gv_zstatus <> 'X'.  EXIT .ENDIF.SELECT *  INTO CORRESPONDING FIELDS OF TABLE gt_ztsso_hd_n  FROM ztsso_hd_n  WHERE status = ''.IF sy-subrc = 0.  SORT gt_ztsso_hd_n BY omsid.ENDIF.LOOP AT gt_ztsso_hd_n INTO gs_ztsso_hd_n.  REFRESH:gt_zsso_mx_n,          gt_zsso_hd_n.  CLEAR gs_zsso_hd_n.  MOVE-CORRESPONDING gs_ztsso_hd_n TO gs_zsso_hd_n.  gs_zsso_hd_n-group = gs_ztsso_hd_n-zgroup.  APPEND gs_zsso_hd_n TO gt_zsso_hd_n.  SELECT *    INTO CORRESPONDING FIELDS OF TABLE gt_zsso_mx_n    FROM ztsso_mx_n    WHERE omsid = gs_ztsso_hd_n-omsid.  IF sy-subrc = 0.

"这里可以是RFC也是SUMIT调用其他代码

CALL FUNCTION ‘ZFM_CREATE_SO_PLORD’
IMPORTING
e_status = gs_ztsso_hd_n-status
e_msgtxt = gs_ztsso_hd_n-msgtxt
e_saporder = gs_ztsso_hd_n-saporder
TABLES
it_so_header = gt_zsso_hd_n
it_so_item = gt_zsso_mx_n.

gs_ztsso_hd_n-zchgdate = sy-datum.    gs_ztsso_hd_n-zchgtime = sy-uzeit.    MODIFY ztsso_hd_n FROM gs_ztsso_hd_n.    IF sy-subrc = 0.      COMMIT WORK AND WAIT.    ENDIF.  ENDIF.  CLEAR gs_ztsso_hd_n.ENDLOOP.

ENDDO.

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

*END-OF-SELECTION
--------------------------------------------------------------------
END-OF-SELECTION.

上一篇:Spring Cloud学习笔记
下一篇:设置后台JOB自定义执行时间

发表评论

最新留言

感谢大佬
[***.8.128.20]2025年04月15日 19时51分02秒