Job Error Message "There is a job that has not yet ended"

Question

Hi.
I have an Report that must starts with an Job. The Reports calls the report RFBIBL00.
I create an entry in the Transaction OBDU and then i define a job.
At the first run, all is ok. But when the job must run a second time, i get the error  message BD 077. There is a job that has not yet ended....
What must I do? The both job have the status "finished"...
Thanks
Marcus
Edited by: Marcus Ventur on Jun 26, 2009 11:26 AM

Answer 1

Hi,
Use this code, it may help you.
FORM BACK_GROUND_JOB.
  W_JOBNAME = 'JOB1'.
  CALL FUNCTION 'JOB_OPEN'
       EXPORTING
            JOBNAME          = W_JOBNAME
       IMPORTING
            JOBCOUNT         = W_JOBCOUNT
       EXCEPTIONS
            CANT_CREATE_JOB  = 1
            INVALID_JOB_DATA = 2
            JOBNAME_MISSING  = 3
            OTHERS           = 4.
  IF SY-SUBRC NE 0.
    MESSAGE S368(00) WITH 'Error Creating Job'
    SY-SUBRC.
    EXIT.
  ENDIF.
  SUBMIT Prgoram
      VIA JOB W_JOBNAME
      NUMBER W_JOBCOUNT
      AND RETURN.
  CALL FUNCTION 'JOB_CLOSE'
       EXPORTING
            JOBCOUNT          = W_JOBCOUNT
            JOBNAME           = W_JOBNAME
            STRTIMMED         = 'X'  " Immediate
       EXCEPTIONS
            INVALID_STARTDATE = 1
            JOBNAME_MISSING   = 2
            JOB_CLOSE_FAILED  = 3
            JOB_NOSTEPS       = 4
            JOB_NOTEX         = 5
            LOCK_FAILED       = 6
            OTHERS            = 7.
  IF SY-SUBRC > 0.
    MESSAGE S368(00) WITH 'Closing Job Failed'
    SY-SUBRC.
    EXIT.
  ENDIF.
ENDFORM.                    " BACK_GROUND_JOB
Thanks
Ravi Kanth