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