ABAP-创建后台作业函数

复制代码
 1 DATA: lv_jobnum TYPE btcjobcnt.
 2 DATA: gv_jobname TYPE btcjob VALUE 'ZVBELN_POSTING'. "后台作业名称
 3 
 4 CALL FUNCTION 'JOB_OPEN'
 5 　　EXPORTING
 6 　　　　jobname = gv_jobname
 7 　　IMPORTING
 8 　　　　jobcount = lv_jobnum
 9 　　EXCEPTIONS
10 　　　　cant_create_job = 1
11 　　　　invalid_job_data = 2
12 　　　　jobname_missing = 3
13 　　　　OTHERS = 4.
14 
15 IF sy-subrc = 0 .
16 
17 　　SUBMIT zsxwms_delivery_confirm1  "后台作业运行的程序
18 　　WITH s_vbeln IN r_vbeln                   "条件
19 　　WITH s_type IN r_type
20 　　WITH s_bwkey IN r_bwkey
21 　　VIA JOB gv_jobname NUMBER lv_jobnum AND RETURN .
22 
23 　　IF sy-subrc = 0 .
24 
25 　　　　CALL FUNCTION 'JOB_CLOSE'
26 　　　　　　EXPORTING
27 　　　　　　　　jobcount = lv_jobnum
28 　　　　　　　　jobname = gv_jobname
29 　　　　　　　　strtimmed = 'X' "立即开始
30 　　　　　　EXCEPTIONS
31 　　　　　　　　cant_start_immediate = 1
32 　　　　　　　　invalid_startdate = 2
33 　　　　　　　　jobname_missing = 3
34 　　　　　　　　job_close_failed = 4
35 　　　　　　　　job_nosteps = 5
36 　　　　　　　　job_notex = 6
37 　　　　　　　　lock_failed = 7
38 　　　　　　　　OTHERS = 8.
39 
40 　　ENDIF .
41 
42 ENDIF .
复制代码
posted @   TigerMan  阅读(321)  评论(0)  编辑  收藏  举报
相关博文：
· ABAP-VLPOD保存自动开票增强
· ABAP-负号前置
· ABAP-后台Job相关
· ABP Framework - 后台服务
· Abp vNext : 使用 BackgroundJobs
阅读排行：
· 分享4款.NET开源、免费、实用的商城系统
· 全程不用写代码，我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了，比商业数据库还牛
· 白话解读 Dapr 1.15：你的「微服务管家」又秀新绝活了
· 上周热点回顾（2.24-3.2）
点击右上角即可分享
微信分享提示