程序提交后台作业

form sub_bgdjob_process using   i_damiid type char18
                     changing   e_rc     type i.

  data l_jobname  type tbtcjob-jobname.
  data l_jobcount type tbtcjob-jobcount.
  concatenate 'ZSAP' i_damiid  into l_jobname.
  condense    l_jobname no-gaps.

  " Create background id
  call function 'JOB_OPEN'
    exporting
      jobname          = l_jobname
      jobclass         = 'A'
    importing
      jobcount         = l_jobcount
    exceptions
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      others           = 4.

  if sy-subrc <> 0.
    e_rc = 1.
  else.

    data: number           type tbtcjob-jobcount,
          print_parameters type pri_params.

    " Run background job immediately
    submit z06pmi0001 to sap-spool
    destination   space
    immediately   'X'
    keep in spool space
    without spool dynpro
    user          sy-uname
    via job       l_jobname
    number        l_jobcount
    and return.

    " Close the background job
    call function 'JOB_CLOSE'
      exporting
        jobcount             = l_jobcount
        jobname              = l_jobname
        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
        others               = 8.

    if sy-subrc <> 0.

    endif.

  endif.

endform.                    " SUB_BGDJOB_PROCESS