JOB 处理
* JOB_OPEN
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = jobname
IMPORTING
jobcount = jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc <> 0.
ENDIF.
check sy-subrc = 0.
* JOB_SUBMIT
SUBMIT (projectId) " JOB执行的工程名
WITH p_keino EQ lw_zkeiyakuno " PARAM 名
WITH p_rireno EQ lw_rirekcunt " PARAM 名
VIA JOB jobname
NUMBER jobcount
AND RETURN.
* JOB_CLOSE
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = jobcount
jobname = 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.
*---------- JOB处理的一些后续处理--------------------*
* JOB执行后的状态确认
DO 10 TIMES.
WAIT UP TO 2 SECONDS.
CALL FUNCTION 'BP_JOB_CHECKSTATE'
EXPORTING
dialog = 'N'
jobcount = jobcount
jobname = jobname
IMPORTING
actual_status = actual_status
EXCEPTIONS
checking_of_job_has_failed = 1
correcting_job_status_failed = 2
invalid_dialog_type = 3
job_does_not_exist = 4
no_check_privilege_given = 5
ready_switch_too_dangerous = 6
OTHERS = 7.
IF sy-subrc <> 0.
e_return = 8. "JOBSTATUS取得失敗
e_message = text-008.
EXIT.
ENDIF.
IF ( actual_status = 'F' )
OR ( actual_status = 'A' ).
EXIT.
ENDIF.
ENDDO.
* JOB LOG的取得
CALL FUNCTION 'BP_JOBLOG_READ'
EXPORTING
client = sy-mandt
jobcount = jobcount
jobname = jobname
TABLES
joblogtbl = joblogtbl
EXCEPTIONS
cant_read_joblog = 1
jobcount_missing = 2
joblog_does_not_exist = 3
joblog_is_empty = 4
joblog_name_missing = 5
jobname_missing = 6
job_does_not_exist = 7
OTHERS = 8.
IF sy-subrc <> 0.
ENDIF.