Cancelamento no Job.

Question

Pessoal,
Boa tarde!
está e a minha 1° vez aqui no forum, e gostaria da ajuda de vocês.
Trabalho no módulo PP e estou tendo um problema com um job.
Aqui na empresa, trabalhamos com Mensagens de Processo. Temos um Job chamado: Z_Send_Process_Mesage_02 que fica enviando as mensagens de processo. O mesmo está configurado para rodar de 5 em 5 minutos. Quando este tempo estoura, o job seguinte acaba sendo cancelado. No log, ele informa que o job anterior ainda erstá em execução. Ao cancelar o job, um email é disparado para outra equipe, e com isso, acaba gerando uma analise desnecessária.
O Abap daqui da empresa, criou um programa que trabalha em paralelo com este job, para que se houver um atraso e o job seguinte tentar executar, ele irá dar como concluido e irá gerar um log informando que o processo está em andamento. só que o problema ainda continua. O processo está sendo cancelado.
Estou postando o código Abap do programa criado:
*& Report  ZATUALIZAJOB
REPORT  ZATUALIZAJOB.
**TYPES: BEGIN OF ls_jobstate_type,
**         aborted TYPE tbtcv-abort,
**         finished TYPE tbtcv-fin,
**         preliminary TYPE tbtcv-prelim,
**         ready TYPE tbtcv-ready,
**         running TYPE tbtcv-run,
**         scheduled TYPE tbtcv-sched,
**       END OF ls_jobstate_type.
DATA:
*      ls_jobstate TYPE ls_jobstate_type,
      t_ZTBJOB TYPE TABLE OF ZTBJOB WITH HEADER LINE,
      v_status type c,
      V_JA_EXECUTANDO type c.
DATA: seltab type table of rsparams,
      seltab_wa like line of seltab.
***      ZIT_JOB_DETAILS type /OSP/TT_REPORT_JOB_LIST,
***      ES_JOB_DETAILS type  /OSP/S_REPORT_JOB_LIST.
*data: newstate like msqexport-retcode.
parameters: plant LIKE comh-werk OBLIGATORY VALUE CHECK.
SELECT * INTO table t_ZTBJOB FROM ZTBJOB WHERE jobname = 'Z_SEND_PROCESS_MESSAGES_WA' or jobname = 'Z_SEND_PROCESS_MESSAGES_02'.
**SELECT * INTO t_TBTCO FROM TBTCO WHERE jobname = 'Z_SEND_PROCESS_MESSAGES_WA' or jobname = 'Z_SEND_PROCESS_MESSAGES_02'. ENDSELECT.
WRITE:/ SY-SUBRC.
IF SY-SUBRC IS INITIAL.
  write:/ 'Job já está em execução!'.
  exit.
else.
  CLEAR: t_ZTBJOB ,t_ZTBJOB[].
  t_ZTBJOB-jobname = 'Z_SEND_PROCESS_MESSAGES_WA'.
  INSERT ZTBJOB from t_ZTBJOB.
**  commit WORK.
ENDIF.
***LOOP AT t_TBTCO.
***  CALL FUNCTION 'BDL_READ_JOB_STATUS'
***   EXPORTING
***     JOBNAME             = t_TBTCO-jobname
***     JOBNUMBER           = t_TBTCO-jobcount
***     SESSIONNR           = '0000000000'
***     EXTENSION           = '000'
***   IMPORTING
****   JOBNAME_OUT         =
****   JOBNUMBER_OUT       =
***     JOBSTATUS           = v_status
***   EXCEPTIONS
***     JOB_NOT_FOUND       = 1
***     OTHERS              = 2
***  IF SY-SUBRC <> 0.
***    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
***  ELSEIF SY-SUBRC IS INITIAL.
***    IF V_STATUS = 'R'.
***      V_JA_EXECUTANDO = 'X'.
***      EXIT.
***    ENDIF.
***  ENDIF.
***ENDLOOP.
***IF V_JA_EXECUTANDO IS NOT INITIAL.
***  write:/ 'Job já está em execução!'.
***else.
data: jobname like tbtcjob-jobname value
                           'Z_SEND_PROCESS_MESSAGES_02'.
data: jobcount like tbtcjob-jobcount,
      host like msxxlist-host.
data: begin of starttime.
        include structure tbtcstrt.
data: end of starttime.
data: starttimeimmediate like btch0000-char1 value 'X'.
* Job open
call function 'JOB_OPEN'
  EXPORTING
    delanfrep        = ' '
    jobgroup         = ' '
    jobname          = jobname
    sdlstrtdt        = sy-datum
    sdlstrttm        = sy-uzeit
  IMPORTING
    jobcount         = jobcount
  EXCEPTIONS
    cant_create_job  = 01
    invalid_job_data = 02
    jobname_missing  = 03.
if sy-subrc ne 0.
  "error processing
endif.
* Insert process into job
SUBMIT RCOCB004 USING SELECTION-SET 'SAP&MESS_PLANT' user sy-uname VIA JOB jobname NUMBER jobcount AND RETURN.
****  BREAK-POINT.
if sy-subrc > 0.
  "error processing
** IMPLEMENTADO EM UMA ENHANCEMENT DENTRO DO PROGRAMA RCOCB004
**else.
**  DELETE FROM ZTBJOB WHERE jobname = 'Z_SEND_PROCESS_MESSAGES_WA'.
**  commit WORK.
endif.
* Close job
starttime-sdlstrtdt = sy-datum + 1.
starttime-sdlstrttm = '220000'.
call function 'JOB_CLOSE'
  EXPORTING
    jobcount             = jobcount
    jobname              = jobname
    strtimmed            = starttimeimmediate
  EXCEPTIONS
    cant_start_immediate = 01
    invalid_startdate    = 02
    jobname_missing      = 03
    job_close_failed     = 04
    job_nosteps          = 05
    job_notex            = 06
    lock_failed          = 07
    others               = 99.
if sy-subrc eq 0.
  "error processing
endif.
Vocês poderiam me auxiliar nesta questão?
Agradeço a ajuda de todos.
Att,
Renato Rosario
Edited by: Fernando Ros on May 7, 2011 9:06 PM ajustando visual

Answer 1

Olá Renato,
quanto à performance do job, vc pode verificar os runtimes na SE30, se o maior runtime é em ABAP ou banco.
Quanto ao cancelamento, por favor coloque aqui o log gerado pelo mesno, que pode ser entrontrado na SM37. Aliás, já poste o conteúdo do dev_w* do work process que o job rodou, para ver os detalhes do erro.
Desse modo, podermos ajudá-lo melhor ainda
Abrassssosssssss,
Tomas Black