ABAP程序拆分JOB

【ZDQFI_601_JOB 调用 ZDQFI_601拆分JOB】

data: name   type tbtcjob-jobname.
data: number type tbtcjob-jobcount.

form f_create_job .

  concatenate name1  fnum into name.

**step1. JOB_OPEN
  call function 'JOB_OPEN'
    exporting
      jobname          = name
    importing
      jobcount         = number
    exceptions
      cant_create_job  =
      invalid_job_data =
      jobname_missing  =
      others           = .
  clear: r_bukrs[].
  r_bukrs-low = it_bukrs-bukrs.
  r_bukrs-sign = 'I'.
  r_bukrs-option = 'EQ'.
  append r_bukrs.
  if sy-subrc = .

**step2.调用子程序
    submit zdqfi_601
                                 with s_bukrs in r_bukrs
                                 with s_gjahr in s_gjahr
                                 with fnum = fnum
                                 with p_user = p_user
                                 with p_pwd = p_pwd
                                 with p_host = p_host
                                 with ftp_path = ftp_path
                                 with p_date = p_datum
                                 with p_max = max_num
                     via job name number number
                     and return.

    if sy-subrc = .

**step3.关闭JOB
      call function 'JOB_CLOSE'
        exporting
          jobcount             = number
          jobname              = name
          strtimmed            = 'X'
*          targetserver         = v_device
        exceptions
          cant_start_immediate =
          invalid_startdate    =
          jobname_missing      =
          job_close_failed     =
          job_nosteps          =
          job_notex            =
          lock_failed          =
          others               = .
      if sy-subrc <> .
        ...
      endif.
    endif.
  else.
    write:/ 'CREATE JOB FAIL!'.
    leave program.
  endif.

  wait up to  seconds.

endform.                    " f_create_job