ABAP 获取后台Job相关状态
原创ABAP 获取后台Job相关状态
原创
这一节主要对后台作业（Batch JOB）中一些平时不怎么用到的内容做一下整理，有需要对后台作业进行控制的同行可以学习参照，比如定时批量对一部分作业进行状态的变更，控制运行中作业的数量等等。
1、SAP后台JOB相关系统表:TBTC*
主要的有 ：
- TBTCO - 作业状态概述表
- TBTCP - 批作业步骤概述
2、JOB的状态: 可以使用系统函数查看 BDL_READ_JOB_STATUS 或者是自己去表 TBTCO 中查找（根据STATUS 字段判断是否完成）。
- R 活动的（运行中）
- Y 就绪的
- P 已调度的
- S 已释放
- A 已取消（出错终止）
- F 已完成（结束）
- Z Released/Susp.(无中文)
JOB运行时间：TBTCO中有开始日期开始时间和结束日期结束时间，两者直接相减就得出JOB运行的时间。
3、JOB日志查看:系统中的日志好像是没有存放在系统表而是文件中，可以通过函数 BP_JOBLOG_READ 获取，传入JOB名和JOB编号就可以获得日志信息。
"例如：获取失败日志
DATA:lt_log TYPE TABLE OF tbtc5 WITH HEADER LINE.
CALL FUNCTION 'BP_JOBLOG_READ' EXPORTING client = sy-mandt jobcount = lw_job-jobcount jobname = lw_job-jobname TABLES joblogtbl = lt_log EXCEPTIONS cant_read_joblog = 1 jobcount_missing = 2 joblog_does_not_exist = 3 joblog_is_empty = 4 joblog_name_missing = 5 jobname_missing = 6 job_does_not_exist = 7 OTHERS = 8. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.
4、Job状态的更改：可以通过函数BP_JOB_MODIFY来修改。
*&---------------------------------------------------------------------*
*& Form MODIFY_JOB_NAME
*&---------------------------------------------------------------------*
* Modify user name for job owner
*----------------------------------------------------------------------*
* -->P_LV_JOBNUM text
* -->P_GV_JOBNAME text
*----------------------------------------------------------------------*
FORM modify_job_name USING p_lv_jobnum
p_gv_jobname.
DATA: ls_jobhead TYPE tbtcjob,
lt_jobstep TYPE STANDARD TABLE OF tbtcstep.
CALL FUNCTION 'BP_JOB_READ'
EXPORTING
job_read_jobcount = p_lv_jobnum
job_read_jobname = p_gv_jobname
job_read_opcode = '20'
IMPORTING
job_read_jobhead = ls_jobhead
TABLES
job_read_steplist = lt_jobstep
EXCEPTIONS
invalid_opcode = 1
job_doesnt_exist = 2
job_doesnt_have_steps = 3
OTHERS = 4.
IF sy-subrc <> 0.
ENDIF.
*** ls_jobhead-sdluname = 'BATCH_NEW'.
CALL FUNCTION 'BP_JOB_MODIFY'
EXPORTING
dialog = 'N'
jobcount = p_lv_jobnum
jobname = p_gv_jobname
*** new_jobhead = ls_jobhead
opcode = '18'
IMPORTING
modified_jobhead = ls_jobhead
TABLES
new_steplist = lt_jobstep
EXCEPTIONS
cant_derelease_job = 1
cant_enq_job = 2
cant_read_jobdata = 3
cant_release_job = 4
cant_set_jobstatus_in_db = 5
cant_start_job_immediately = 6
cant_update_jobdata = 7
eventcnt_generation_error = 8
invalid_dialog_type = 9
invalid_new_jobdata = 10
invalid_new_jobstatus = 11
invalid_opcode = 12
invalid_startdate = 13
job_edit_failed = 14
job_modify_canceled = 15
job_not_modifiable_anymore = 16
nothing_to_do = 17
no_batch_on_target_host = 18
no_batch_server_found = 19
no_batch_wp_for_jobclass = 20
no_modify_privilege_given = 21
no_release_privilege_given = 22
no_startdate_no_release = 23
target_host_not_defined = 24
tgt_host_chk_has_failed = 25
invalid_targetgroup = 26
conflicting_targets = 27
OTHERS = 28.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.上面的函数中需要注意一个参数：opcode ，下面则是这个参数的具体对照解释。
btc_edit_btcctl_tbl LIKE btch0000-int4 VALUE 1, btc_show_btcctl_tbl LIKE btch0000-int4 VALUE 2, btc_edit_user_eventids LIKE btch0000-int4 VALUE 3, btc_show_user_eventids LIKE btch0000-int4 VALUE 4, btc_edit_system_eventids LIKE btch0000-int4 VALUE 5, btc_show_system_eventids LIKE btch0000-int4 VALUE 6, btc_edit_steplist LIKE btch0000-int4 VALUE 7, btc_show_steplist LIKE btch0000-int4 VALUE 8, btc_show_variantlist LIKE btch0000-int4 VALUE 9, btc_create_job LIKE btch0000-int4 VALUE 10, btc_edit_job LIKE btch0000-int4 VALUE 11, btc_show_job LIKE btch0000-int4 VALUE 12, btc_check_only LIKE btch0000-int4 VALUE 13, btc_edit_startdate LIKE btch0000-int4 VALUE 14, btc_show_startdate LIKE btch0000-int4 VALUE 15, btc_modify_whole_job LIKE btch0000-int4 VALUE 16, btc_release_job LIKE btch0000-int4 VALUE 17, btc_derelease_job LIKE btch0000-int4 VALUE 18, btc_read_jobhead_only LIKE btch0000-int4 VALUE 19, btc_read_all_jobdata LIKE btch0000-int4 VALUE 20, btc_joblist_edit LIKE btch0000-int4 VALUE 21, btc_joblist_show LIKE btch0000-int4 VALUE 22, btc_joblist_select LIKE btch0000-int4 VALUE 23, btc_joblog_show LIKE btch0000-int4 VALUE 24, btc_edit_omset LIKE btch0000-int4 VALUE 25, btc_show_omset LIKE btch0000-int4 VALUE 26, btc_show_oms_sdl_tbl LIKE btch0000-int4 VALUE 27, btc_show_xpgm_list LIKE btch0000-int4 VALUE 28, btc_close_job LIKE btch0000-int4 VALUE 29, btc_varjoblist_select LIKE btch0000-int4 VALUE 30, btc_varlist_select LIKE btch0000-int4 VALUE 31, btc_performance_list LIKE btch0000-int4 VALUE 32, btc_performance_info LIKE btch0000-int4 VALUE 33, btc_batchproces_list LIKE btch0000-int4 VALUE 34, BTC_DONT_READ_PRIPARAMS LIKE BTCH0000-INT4 VALUE 35, btc_xbp_all_jobdata LIKE btch0000-int4 VALUE 36, btc_xbp_jobhead_only LIKE btch0000-int4 VALUE 37. |
|---|
5、ABAP后台JOB数量控制。
FORM SUB_CHECK_JOB. DATA: BEGIN OF LT_JOBS OCCURS 0 , JOBNAME TYPE BTCJOB, STRTDATE TYPE BTCXDATE, STRTTIME TYPE BTCXTIME, ENDDATE TYPE BTCXDATE, ENDTIME TYPE BTCXTIME, END OF LT_JOBS. DATA: F_JOBNAME TYPE STRING VALUE 'Z_%'. DATA: V_ACTIVE TYPE INT1. SELECT JOBNAME INTO TABLE LT_JOBS FROM TBTCO WHERE ( JOBNAME LIKE F_JOBNAME ) AND STATUS EQ 'R'. IF SY-SUBRC = 0 . DESCRIBE TABLE LT_JOBS LINES V_ACTIVE . IF V_ACTIVE >= 5. MESSAGE '有正在运行的任务，此次任务取消。' TYPE 'S' DISPLAY LIKE 'E'. ENDIF . ENDIF. ENDFORM. " SUB_CHECK_JOB
其他后续更新。
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。