SAP/ABAP 개발
Run Program with Background job -> JOB_OPEN / JOB_CLOSE
KindKay
2010. 6. 28. 15:54
*&----------------------------------------------------------------*
*& Report YRTEST0005
*&
*&----------------------------------------------------------------*
*&
*& Run Program with Background job
*&----------------------------------------------------------------*
report yrtest0005.
* Run Program with Background job
data: l_number type tbtcjob-jobcount,
l_name type tbtcjob-jobname.
concatenate 'Z00' '_' sy-datum '_' sy-uzeit
into l_name.
call function 'JOB_OPEN'
exporting
jobname = l_name
importing
jobcount = l_number
exceptions
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
others = 4.
check sy-subrc = 0.
* submit zlmmm65010 with pa_bukrs = pi_bukrs
* with pa_gbm = l_gbm
* with pa_week = pi_planid
* with pa_ck01 = c_x
* user sy-uname
* via job l_name number l_number
* and return.
submit yrtest0006 user sy-uname
via job l_name number l_number
and return.
check sy-subrc eq 0.
message s303(me) with 'Success'.
call function 'JOB_CLOSE'
exporting
jobcount = l_number
jobname = l_name
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
others = 8.
*&----------------------------------------------------------------*
*& Report YRTEST0006
*&
*&----------------------------------------------------------------*
*&
*&
*&----------------------------------------------------------------*
report yrtest0006.
* include yrtest0006top.
* include yrtest0006f01.
end-of-selection.
write: sy-uname, sy-datum, sy-uzeit.