ABAP 后台job 调用

  <FS>-LOW =  TDELT-PERIOB.
  L_JOBNAME = 'TEST'.
  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      JOBNAME          = L_JOBNAME "作业名称
    IMPORTING
      JOBCOUNT         = L_JOBCOUNT "作业ID
    EXCEPTIONS
      CANT_CREATE_JOB  = 1
      INVALID_JOB_DATA = 2
      JOBNAME_MISSING  = 3
      OTHERS           = 4.

  IF SY-SUBRC NE 0.
    MESSAGE '计划后台作业时出错；程序已取消' TYPE 'S' DISPLAY LIKE 'E'.
    RETURN.
  ENDIF.
  SUBMIT ZRPT_FICO_TZJJGE_DETAIL WITH SELECTION-TABLE PARAMSTAB VIA JOB  L_JOBNAME
  NUMBER L_JOBCOUNT
  AND RETURN.

  GET TIME.
  "释放后台作业
  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      JOBCOUNT             = L_JOBCOUNT "后台作业号
      JOBNAME              = L_JOBNAME "作业名
      SDLSTRTDT            = SY-DATUM "开始日期
      SDLSTRTTM            = SY-UZEIT "开始时间
      STRTIMMED            = 'X' "立即执行，如果需要立即执行则设置为'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.
ENDLOOP.