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/,如需转载,请注明出处,否则将追究法律责任。