SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } FUNCTION zjob_sheduled.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(JOBNAME) LIKE  TBTCJOB-JOBNAME
*"     VALUE(REPORT) LIKE  SY-REPID
*"     VALUE(VARIANT) LIKE  RALDB-VARIANT
*"     VALUE(S_DATE) LIKE  SY-DATUM OPTIONAL
*"     VALUE(S_TIME) LIKE  SY-UZEIT OPTIONAL
*"----------------------------------------------------------------------
  DATA: jobcount LIKE tbtcjob-jobcount.
  DATA: p_date LIKE sy-datum.
  DATA: p_time LIKE sy-uzeit.

  CALL FUNCTION 'JOB_OPEN' "定义一个Job
    EXPORTING
      jobname          = jobname
    IMPORTING
      jobcount         = jobcount  "Job id
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.


  CALL FUNCTION 'JOB_SUBMIT'  "Scheduled 这个Job
    EXPORTING
      authcknam               = sy-uname
      jobcount                = jobcount
      jobname                 = jobname
      report                  = report
      variant                 = variant
    EXCEPTIONS
      bad_priparams           = 1
      bad_xpgflags            = 2
      invalid_jobdata         = 3
      jobname_missing         = 4
      job_notex               = 5
      job_submit_failed       = 6
      lock_failed             = 7
      program_missing         = 8
      prog_abap_and_extpg_set = 9
      OTHERS                  = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.


  IF s_date IS INITIAL.
    s_date = sy-datum.
  ENDIF.
  IF s_time IS INITIAL.
    s_time = sy-uzeit.
  ENDIF.

  CALL FUNCTION 'JOB_CLOSE'  "Release 这个Job
    EXPORTING
      jobcount             = jobcount
      jobname              = jobname
      strtimmed            = 'X'
      sdlstrtdt            = s_date
      sdlstrttm            = s_time
*     sdlstrttm            = '170000'
    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.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    MESSAGE s208(00) WITH '该报表已后台运行，请用sm37检查'.
  ENDIF.



ENDFUNCTION.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23495244/viewspace-692292/，如需转载，请注明出处，否则将追究法律责任。