ABAP 后台执行程序
函数:
IMPORT:
SELECT_SCREEN TYPE RSPARAMS_TT
PROGRAM TYPE PROGNAME
JOBUSER TYPE UNAME SY-UNAME
EXPORT:
JOBCOUNT TYPE BTCJOBCNT
JOBNAME TYPE BTCJOB
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" REFERENCE(SELECT_SCREEN) TYPE RSPARAMS_TT
*" REFERENCE(PROGRAM) TYPE PROGNAME
*" REFERENCE(JOBUSER) TYPE UNAME DEFAULT SY-UNAME
*" EXPORTING
*" REFERENCE(JOBCOUNT) TYPE BTCJOBCNT
*" REFERENCE(JOBNAME) TYPE BTCJOB
*"----------------------------------------------------------------------
DATA: lv_jobcount TYPE tbtcjob-jobcount,
lv_jobname TYPE tbtcjob-jobname,
ls_print_parameters TYPE pri_params.
lv_jobname = program && sy-uzeit.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc = 0.
SUBMIT (program) WITH SELECTION-TABLE select_screen
USER jobuser VIA JOB lv_jobname NUMBER lv_jobcount
AND RETURN.
IF sy-subrc = 0.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lv_jobcount
jobname = lv_jobname
strtimmed = 'X'
EXCEPTIONS
cant_start_immediate = 1
invalid_startdate = 2
jobname_missing = 3
job_close_failed = 4
job_nosteps = 5
job_notex = 6
lock_failed = 7
invalid_target = 8
OTHERS = 9.
IF sy-subrc = 0.
ENDIF.
ENDIF.
ENDIF.
jobcount = lv_jobcount.
jobname = lv_jobname.
注: jobuser 为job执行人 不影响job创建人
post SAP-Garson
原文链接:https://blog.csdn.net/xiefireworks/article/details/123097985文章来自于网络,如果侵犯了您的权益,请联系站长删除!