避免同个后台作业同时运行

设置了一个后台作业，频率高，几分钟就运行一次，有时上一次作业还没运行完，下一次又开始了，这时需要避免下一次的作业继续运行下去

REPORT  ZTEST.

PARAMETERS A TYPE I DEFAULT 200.

DATA:LIST LIKE TBTCJMONI OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'BP_JOB_MONI'
  EXPORTING
    JOBNAME = 'ZTEST'
  TABLES
    JOBLIST = LIST.
DATA:B TYPE I.
CLEAR B.
LOOP AT LIST WHERE STATUS = 'R'.   "在运行状态的作业
  B = B + 1.
ENDLOOP.

IF B >= 2.
  EXIT.
else.
  DO A TIMES.
    WRITE:/ SY-INDEX.
    WAIT UP TO 1 SECONDS.
  ENDDO.
ENDIF.