程序中设置后台作业（background job）

最新推荐文章于 2024-08-12 13:46:08 发布

原创最新推荐文章于 2024-08-12 13:46:08 发布 · 2.5k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#background job #job_submit #job_open

BACKGROUND JOB 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了使用ABAP进行作业调度的具体实现过程，包括作业的开启、提交和关闭等关键步骤，并详细展示了如何通过ABAP代码来管理和监控这些作业。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  DATA: lt_valutab   TYPE STANDARD TABLE OF rsparams,
         lv_jobname   TYPE tbtcjob-jobname,
         lv_jobcount  TYPE tbtcjob-jobcount,
         lv_jobstatus TYPE tbtco-status,
         ls_tbtcv     TYPE tbtcv,
         lv_count     TYPE i.

CONCATENATE 'ZBJ_' sy-datum '_' sy-uzeit INTO lv_jobname.

  CALL FUNCTION 'JOB_OPEN'
     EXPORTING
       jobname          = lv_jobname
       sdlstrtdt        = sy-datum
       sdlstrttm        = sy-uzeit
     IMPORTING
       jobcount         = lv_jobcount
     EXCEPTIONS
       cant_create_job  = 1
       invalid_job_data = 2
       jobname_missing  = 3
       OTHERS           = 4.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE 'E'.
     STOP.
   ENDIF.

   CALL FUNCTION 'JOB_SUBMIT'
     EXPORTING
       authcknam               = sy-uname
       jobcount                = lv_jobcount
       jobname                 = lv_jobname
       report                  = p_pgmna
       variant                 = p_bs
     EXCEPTIONS
       bad_priparams           = 1
       bad_xpgflags            = 2
       invalid_jobdata         = 3
       jobname_missing         = 4
       job_notex               = 5
       job_submit_failed       = 6
       lock_failed             = 7
       program_missing         = 8
       prog_abap_and_extpg_set = 9
       OTHERS                  = 10.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE 'E'.
     STOP.
   ENDIF.

   CALL FUNCTION 'JOB_CLOSE'
     EXPORTING
       jobcount             = lv_jobcount
       jobname              = lv_jobname
       laststrtdt           = sy-datum
       laststrttm           = sy-uzeit
       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
       invalid_time_zone    = 9
       OTHERS               = 10.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE 'E'.
     STOP.
   ENDIF.