ABAP后台JOB数量控制

 1 FORM sub_check_job.
 2 * 通过JOB名称，控制活动JOB的数量 
 3   DATA: BEGIN OF lt_jobs OCCURS 0 ,
 4            jobname TYPE btcjob ,
 5            strtdate TYPE  btcxdate ,
 6            strttime TYPE  btcxtime ,
 7            enddate  TYPE  btcxdate ,
 8            endtime  TYPE  btcxtime ,
 9          END OF lt_jobs.
10   DATA: f_jobname TYPE string VALUE ‘ZTEST_%‘.
11   DATA: v_active  TYPE int1. 
12 
13   SELECT jobname INTO TABLE lt_jobs
14                       FROM tbtco
15                      WHERE ( jobname LIKE f_jobname ) 
16                        AND status EQ ‘R‘.
17 *** JOB状态
18 *  R 活动的
19 *  Y 就绪的
20 *  P 已调度的
21 *  S 已释放
22 *  A 已取消
23 *  F 已完成
24 *  Z Released/Susp.(无中文)
25   IF sy-subrc = 0 .
26     DESCRIBE TABLE lt_jobs LINES v_active .
27     IF v_active >= 2 .
28       MESSAGE e398(00 ) WITH ‘有正在运行的任务，此次任务取消。‘ ‘‘ ‘‘ ‘‘ .
29     ENDIF .
30   ENDIF.
31 ENDFORM.                    " SUB_CHECK_JOB