From:
http://scnblogs.techweb.com.cn/tcsapbw/archives
在ABAP中，我们有时候需要通过ABAP来定义JOB并执行它，也就是说，我们不使用SM36的GUI来创建Job。
自己亲身经历的一个case：我们有一个程序performance“很差”(并不是程序的问题，而是传递给其的数据量巨大)，也就是说，我们外面有一个程序需要传递一个特别”巨大”的XML string流给该程序去解析，然而这个程序耗时也很可观，在运行时，”貌试”SAP死掉。所以，最后，solution方案就是通过一个ABAP操作Job，当然有数据的传递，使用SAP Memory.
一. JOB相关信息
例如，作为例子，我们需要一个job：去执行ZTEST_JOB_STEP1与ZTEST_JOB_STEP2这两个ABAP程序。
ZTEST_JOB_STEP1的程序：
|
REPORT ZTEST_JOB_STEP1.
PARAMETERS: p_user type sy-uname.
write:/ ‘job step 1′.
WRITE:/ ‘Proceed User:’, p_user.
|
其中效果为：带有一个variant供我们后面job用。
结果：
ZTEST_JOB_STEP2的程序：
|
REPORT ZTEST_JOB_STEP2 NO STANDARD PAGE HEADING.
write:/ ‘job step 2′.
|
其中效果为：
二. 使用ABAP操作JOB
我们的JOB-ABAP代码实现。
|
*&———————————————————————*
*& Report ZTEST_ABAP_JOB
*&
*&———————————————————————*
*& test using ABAP to trigger Job and manipulate Job
*&
*&———————————————————————*
REPORT ZTEST_ABAP_JOB.
DATA:
w_jobid type tbtcjob-jobcount,
w_stepnm type TBTCJOB-STEPCOUNT.
PARAMETERS:
p_job_nm type tbtcjob-jobname OBLIGATORY,
p_var_st type raldb-variant.
START-OF-SELECTION.
*1. using JOB_OPEN to open job
clear:w_jobid.
CALL FUNCTION ‘JOB_OPEN’
EXPORTING
* DELANFREP = ’ ’
* JOBGROUP = ’ ’
JOBNAME = p_job_nm
* SDLSTRTDT = NO_DATE
* SDLSTRTTM = NO_TIME
* JOBCLASS =
IMPORTING
JOBCOUNT = w_jobid
* CHANGING
* RET =
EXCEPTIONS
CANT_CREATE_JOB = 1
INVALID_JOB_DATA = 2
JOBNAME_MISSING = 3
OTHERS = 4
.
IF SY-SUBRC <> 0.
write:/ ‘JOB_OPEN faild!’.
else.
write:/ ‘JOB_OPEN Successed!’.
write:/ ‘———–Job Name:’, p_job_nm.
write:/ ‘———–Job Count:’, w_jobid.
ENDIF.
*2. using JOB_SUMMIT to insert step
clear:w_stepnm.
CALL FUNCTION ‘JOB_SUBMIT’
EXPORTING
* ARCPARAMS =
AUTHCKNAM = sy-uname
* COMMANDNAME = ’ ’
* OPERATINGSYSTEM = ’ ’
* EXTPGM_NAME = ’ ’
* EXTPGM_PARAM = ’ ’
* EXTPGM_SET_TRACE_ON = ’ ’
* EXTPGM_STDERR_IN_JOBLOG = ’X’
* EXTPGM_STDOUT_IN_JOBLOG = ’X’
* EXTPGM_SYSTEM = ’ ’
* EXTPGM_RFCDEST = ’ ’
* EXTPGM_WAIT_FOR_TERMINATION = ’X’
JOBCOUNT = w_jobid
JOBNAME = p_job_nm
* LANGUAGE = SY-LANGU
* PRIPARAMS = ’ ’
REPORT = ‘ZTEST_JOB_STEP1′
VARIANT = p_var_st
IMPORTING
STEP_NUMBER = w_stepnm
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.
write:/ ‘JOB_SUBMIT faild!’.
else.
write:/ ‘JOB_SUBMIT Successed!’.
write:/ ‘———–Step:’, w_stepnm.
ENDIF.
clear:w_stepnm.
CALL FUNCTION ‘JOB_SUBMIT’
EXPORTING
* ARCPARAMS =
AUTHCKNAM = sy-uname
* COMMANDNAME = ’ ’
* OPERATINGSYSTEM = ’ ’
* EXTPGM_NAME = ’ ’
* EXTPGM_PARAM = ’ ’
* EXTPGM_SET_TRACE_ON = ’ ’
* EXTPGM_STDERR_IN_JOBLOG = ’X’
* EXTPGM_STDOUT_IN_JOBLOG = ’X’
* EXTPGM_SYSTEM = ’ ’
* EXTPGM_RFCDEST = ’ ’
* EXTPGM_WAIT_FOR_TERMINATION = ’X’
JOBCOUNT = w_jobid
JOBNAME = p_job_nm
* LANGUAGE = SY-LANGU
* PRIPARAMS = ’ ’
REPORT = ‘ZTEST_JOB_STEP2′
* VARIANT =
IMPORTING
STEP_NUMBER = w_stepnm
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.
write:/ ‘JOB_SUBMIT faild!’.
else.
write:/ ‘———–Step:’, w_stepnm.
ENDIF.
*3. using JOB_CLOSE to close job
CALL FUNCTION ‘JOB_CLOSE’
EXPORTING
* AT_OPMODE = ’ ’
* AT_OPMODE_PERIODIC = ’ ’
* CALENDAR_ID = ’ ’
* EVENT_ID = ’ ’
* EVENT_PARAM = ’ ’
* EVENT_PERIODIC = ’ ’
JOBCOUNT = w_jobid
JOBNAME = p_job_nm
* LASTSTRTDT = NO_DATE
* LASTSTRTTM = NO_TIME
* PRDDAYS = 0
* PRDHOURS = 0
* PRDMINS = 0
* PRDMONTHS = 0
* PRDWEEKS = 0
* PREDJOB_CHECKSTAT = ’ ’
* PRED_JOBCOUNT = ’ ’
* PRED_JOBNAME = ’ ’
* SDLSTRTDT = NO_DATE
* SDLSTRTTM = NO_TIME
* STARTDATE_RESTRICTION = BTC_PROCESS_ALWAYS
STRTIMMED = ‘X’
* TARGETSYSTEM = ’ ’
* START_ON_WORKDAY_NOT_BEFORE = SY-DATUM
* START_ON_WORKDAY_NR = 0
* WORKDAY_COUNT_DIRECTION = 0
* RECIPIENT_OBJ =
* TARGETSERVER = ’ ’
* DONT_RELEASE = ’ ’
* TARGETGROUP = ’ ’
* DIRECT_START =
* IMPORTING
* JOB_WAS_RELEASED =
* CHANGING
* RET =
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 .
IF SY-SUBRC <> 0.
write:/ ‘JOB_CLOSE faild!’.
else.
write:/ ‘JOB_CLOSE Successed!’.
ENDIF.
|
说明：
JOB_OPEN: 意思为：declare一个JOB并返回这个job的“内存ID”。
JOB_SUBMIT: 意思为：insert step for job。注意，这里需要为每一个step进行submit(如上面是两个program).
JOB_Close: 意思为：Release刚创建的job.然后可以在SM37中查看.
然后，我们执行：
最后结果：
然后，我们去SM37中可以check：
可以再看一下spool:
如其中ZTEST_JOB_STEP1的spool :
而ZTEST_JOB_STEP2的spool :
阅读(2089) | 评论(0) | 转发(0) |
