*&---------------------------------------------------------------------*
*& Report  Y_BATCH_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  y_batch_test.
*  Проверяем не запущено ли уже задание
DATA: lv_status   TYPE btcstatus VALUE 'R'.
DATA: lv_job_name TYPE btcjob    VALUE 'Y_BATCH_TEST'.
*CONCATENATE lv_job_name sy-mandt INTO lv_job_name.

*SELECT SINGLE status INTO lv_status FROM tbtco
*    WHERE jobname = lv_job_name AND status = lv_status.
*
*CHECK sy-subrc IS NOT INITIAL.

*DEQUEUE_EZRCT_BJ_CHECK
*ENQUEUE_EZRCT_BJ_CHECK
CALL FUNCTION 'ENQUEUE_EZRCT_BJ_CHECK'
EXPORTING
   mode_zrct_bj_check       = 'E'
   mandt                    = sy-mandt
   jobname                  = lv_job_name
*   X_JOBNAME                = ' '
*   _SCOPE                   = '2'
*   _WAIT                    = ' '
*   _COLLECT                 = ' '
EXCEPTIONS
   foreign_lock             = 1
   system_failure           = 2
   OTHERS                   = 3
          .
CHECK sy-subrc IS INITIAL.


DO 300 TIMES.
  WAIT UP TO 1 SECONDS.
ENDDO.

CALL FUNCTION 'DEQUEUE_EZRCT_BJ_CHECK'
EXPORTING
   mode_zrct_bj_check       = 'E'
   mandt                    = sy-mandt
   jobname                  = lv_job_name
*   X_JOBNAME                = ' '
*   _SCOPE                   = '3'
*   _SYNCHRON                = ' '
*   _COLLECT                 = ' '
          .