FM or a method to abort a batch job

Question

Hi All,
I am looking for a way in which I can abort a background job which is either scheduled or currently running programmatically. Is there a way to do this even if the job currently running is waiting due to either a wait statement or for a response from a RFC.
Immediate Responses would be appreciated.
Thanks & Regards,
Pawan

Answer 1

Hi Rich,
Thanks for your reply.
I have been using this Function Module earlier.
There is a problem using ths FM.
Please see below the snippet of the code I am using to abort the job using the FM 'BP_JOB_ABORT'.
REPORT  yumt_trigger_abort                      .
TYPES: BEGIN OF ty_joblist,
         jobname  TYPE tbtco-jobname,
         jobcount TYPE tbtco-jobcount,
       END OF ty_joblist.
DATA: lv_jobname  TYPE tbtcjob-jobname,
      lv_count    TYPE tbtcjob-jobcount,
      lv_repid    TYPE sy-repid,
      wa_joblist  TYPE ty_joblist,
      lit_joblist TYPE TABLE OF ty_joblist.
CONSTANTS  : lc_jobclass TYPE tbtcjob-jobclass VALUE 'A',
             gc_true     TYPE flag VALUE 'X'.
REFRESH : lit_joblist.
Schedule the jobs
DO 2 TIMES.
  CLEAR:  lv_repid , lv_jobname , lv_count.
  IF sy-index = 1.
    lv_repid = 'YUMT_TRITEST1'.
    lv_jobname = 'YUMT_TRITEST1'.
  ELSE.
    lv_repid = 'YUMT_TRITEST2'.
    lv_jobname = 'YUMT_TRITEST2'.
  ENDIF.
Pass the other parameters and schedule a job.
  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = lv_jobname
      jobclass         = lc_jobclass
    IMPORTING
      jobcount         = lv_count
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
   MESSAGE s000(zumt_gen) WITH text-007." Background Job Creation Error.
    RETURN.
  ENDIF.
Message to be included in Job description as a step
Background job <JOB NAME> <JOB ID> scheduled.
  MESSAGE s000(zumt_gen) WITH text-002 lv_jobname
                              lv_count text-003.
  CALL FUNCTION 'JOB_SUBMIT'
    EXPORTING
      authcknam               = sy-uname
      jobcount                = lv_count
      jobname                 = lv_jobname
      report                  = lv_repid
    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 to be included in Job description as a step
  MESSAGE s000(zumt_gen) WITH text-008. "Background Job Submitting Error
    RETURN.
  ENDIF.
  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      jobcount             = lv_count
      jobname              = lv_jobname
      strtimmed            = gc_true
    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.
Message to be included in Job description as a step
    MESSAGE s000(zumt_gen) WITH text-009. " Background Job Closing Error
    RETURN.
  ENDIF.
  CLEAR: wa_joblist.
  wa_joblist-jobname = lv_jobname.
  wa_joblist-jobcount = lv_count.
  APPEND wa_joblist TO lit_joblist.
ENDDO.
Abort the jobs
WAIT UP TO 2 SECONDS.
CLEAR: wa_joblist.
LOOP AT lit_joblist INTO wa_joblist.
  CALL FUNCTION 'BP_JOB_ABORT'
    EXPORTING
      jobcount                   = wa_joblist-jobcount
      jobname                    = wa_joblist-jobname
    EXCEPTIONS
      checking_of_job_has_failed = 1
      job_abort_has_failed       = 2
      job_does_not_exist         = 3
      job_is_not_active          = 4
      no_abort_privilege_given   = 5
      OTHERS                     = 6.
  IF sy-subrc <> 0.
    MESSAGE s000(zumt_gen) WITH text-010 wa_joblist-jobname sy-subrc.
    " Job Abortion Failed
  ELSE.
    MESSAGE s000(zumt_gen) WITH text-001 wa_joblist-jobname.
    " Job Abortion Success
  ENDIF.
ENDLOOP.
However when the program runs the FM runs successfully for both the jobs but when we check the status of the job in sm36 We see that they are still running.
Thanks & Regards,
Pawan