ABAP后台JOB数量控制

数据库视图：V_OP 可以查看JOB信息

 FORM sub_check_job.
 * 通过JOB名称，控制活动JOB的数量
   DATA: BEGIN OF lt_jobs OCCURS  ,
            jobname TYPE btcjob ,
            strtdate TYPE  btcxdate ,
            strttime TYPE  btcxtime ,
            enddate  TYPE  btcxdate ,
            endtime  TYPE  btcxtime ,
          END OF lt_jobs.
   DATA: f_jobname TYPE string VALUE 'ZTEST_%'.
   DATA: v_active  TYPE int1. 

   SELECT jobname INTO TABLE lt_jobs
                       FROM tbtco
                      WHERE ( jobname LIKE f_jobname )
                        AND status EQ 'R'.
 *** JOB状态
 *  R 活动的
 *  Y 就绪的
 *  P 已调度的
 *  S 已释放
 *  A 已取消
 *  F 已完成
 *  Z Released/Susp.(无中文)
   IF sy-subrc =  .
     DESCRIBE TABLE lt_jobs LINES v_active .
     IF v_active >=  .
       MESSAGE e398( ) WITH '有正在运行的任务，此次任务取消。' '' '' '' .
     ENDIF .
   ENDIF.
 ENDFORM.                    " SUB_CHECK_JOB