【ABAP】获取后台Job相关状态

这一节主要对后台作业（Batch JOB）中一些平时不怎么用到的内容做一下整理，有需要对后台作业进行控制的同行可以学习参照，比如定时批量对一部分作业进行状态的变更，控制运行中作业的数量等等。

1、SAP后台JOB相关系统表:TBTC*

主要的有 ：

• TBTCO - 作业状态概述表
• TBTCP - 批作业步骤概述

2、JOB的状态: 可以使用系统函数查看  BDL_READ_JOB_STATUS  或者是自己去表 TBTCO 中查找（根据STATUS 字段判断是否完成）。

1. R 活动的（运行中）
2. Y 就绪的
3. P 已调度的
4. S 已释放
5. A 已取消（出错终止）
6. F 已完成（结束）
7. 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

其他后续更新。