ABAP 后台执行程序

 函数：

IMPORT:
SELECT_SCREEN	TYPE	RSPARAMS_TT	                     
PROGRAM	TYPE	PROGNAME	                     
JOBUSER	TYPE	UNAME	SY-UNAME

EXPORT:
JOBCOUNT	TYPE	BTCJOBCNT
JOBNAME	TYPE	BTCJOB
    
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(SELECT_SCREEN) TYPE  RSPARAMS_TT
*"     REFERENCE(PROGRAM) TYPE  PROGNAME
*"     REFERENCE(JOBUSER) TYPE  UNAME DEFAULT SY-UNAME
*"  EXPORTING
*"     REFERENCE(JOBCOUNT) TYPE  BTCJOBCNT
*"     REFERENCE(JOBNAME) TYPE  BTCJOB
*"----------------------------------------------------------------------


  DATA: lv_jobcount         TYPE tbtcjob-jobcount,
        lv_jobname          TYPE tbtcjob-jobname,
        ls_print_parameters TYPE pri_params.

  lv_jobname = program && sy-uzeit.
  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.
    SUBMIT (program) WITH SELECTION-TABLE select_screen
                            USER jobuser VIA JOB lv_jobname NUMBER lv_jobcount
                            AND RETURN.
    IF sy-subrc = 0.
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          jobcount             = lv_jobcount
          jobname              = lv_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
          invalid_target       = 8
          OTHERS               = 9.
      IF sy-subrc = 0.

      ENDIF.
    ENDIF.
  ENDIF.

  jobcount  = lv_jobcount.
  jobname   = lv_jobname.

注: jobuser 为job执行人 不影响job创建人