[FORM] VERIFICAR_JOB_EXECUCAO

*&---------------------------------------------------------------------*
*&      Form  VERIFICAR_JOB_EXECUCAO
*&---------------------------------------------------------------------*
*       verifica se já tem um Job em execução
*----------------------------------------------------------------------*
FORM verificar_job_execucao .

  DATA: it_jobcount TYPE TABLE OF tbtco.

  IF sy-batch EQ 'X'.

    SELECT jobname
                   jobcount
    INTO CORRESPONDING FIELDS OF TABLE it_jobcount
    FROM tbtco
    WHERE jobname = <NOME_DO_JOB>
    AND   status   = 'R'.

    IF LINES( it_jobcount ) gt 1.
      MESSAGE |Aguardando JOB anterior encerrar.| TYPE 'I'.
      LEAVE PROGRAM.
    ENDIF.
  ENDIF.

ENDFORM.                    " VERIFICAR_JOB_EXECUCAO