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