FORM run_background .
DATA:
lv_jobname TYPE tbtcjob–jobname.
DATA: lv_jobcount   LIKE tbtcjob–jobcount,
lv_release(1) TYPE c.

lv_jobname = ‘jobname’.

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.
MESSAGE ‘Open job error’ TYPE ‘S’ DISPLAY LIKE ‘E’.
LEAVE LIST-PROCESSING.
ELSE.
SUBMIT zprogram_name VIA JOB lv_jobname NUMBER lv_jobcount “USER ‘SAPBATCH’
WITH p_file = p_file
WITH rb_mrp = rb_mrp
WITH rb_scm = rb_scm
WITH rb_ops = rb_ops
WITH rb_prod = rb_prod
WITH p_test = p_test
WITH p_run  = p_run
WITH p_bkgr = p_bkgr
AND RETURN.

CALL FUNCTION ‘JOB_CLOSE’
EXPORTING
jobcount             = lv_jobcount
jobname              = lv_jobname
strtimmed            = ‘X’
*       SDLSTRTDT            = ‘20211008’
*       SDLSTRTTM            = ‘235959’
*       prdmins              = 15
IMPORTING
job_was_released     = lv_release
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 ‘Close job error’ TYPE ‘S’ DISPLAY LIKE ‘E’.
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.

MESSAGE ‘Please check job jobname’ TYPE ‘S’.
ENDFORM.