Multiple conditions to Run a job ,on dependency

Question

Hello Champs,
I have a requirement.
I want to create a job for some transaction with the selection varients. The condition is that job should be started after every 15 mins and ensure that the job is started again only when the previous one has finished.
Thanks in advance.
Regards,
Kiran

Answer 1

Kiran Kumar  ,
Schedule the job in SM36 as a periodic job, running every 15 minutes.
Put code in your program to prevent the job from running if the program is already running.
DATA: prg LIKE indx-srtfd. prg = sy-cprog.
DATA: w_string TYPE string.
CALL FUNCTION 'ENQUEUE_ESINDX'
  EXPORTING
    relid          = 'ZZ'
    srtfd          = prg
    srtf2          = 0
  EXCEPTIONS
    foreign_lock   = 1
    system_failure = 2.
IF sy-subrc NE 0.
  FORMAT COLOR COL_NEGATIVE INVERSE ON.
  WRITE: / 'ERROR: Another User Is Already Running This Program.'.
  CONCATENATE 'Program'  prg  'has been stopped.  Rerun in 1 minute.'
             INTO w_string SEPARATED BY space.
  WRITE: / w_string.
  STOP.
ELSE.
  WRITE: / 'OK  ',prg.
ENDIF.
*>>>>>>>>>>>>>>>>
    O R
*>>>>>>>>>>>>
in the initialization of the program, you should add this to lock
to verify that is not locked
     CALL FUNCTION 'ENQUEUE_EPROG'
       EXPORTING
         programm       = sy-repid
       EXCEPTIONS
         foreign_lock   = 1
         system_failure = 2
         OTHERS         = 3.
     IF sy-subrc <> 0.
       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     ENDIF.
at the end of the program you should add this to unlock the program
   CALL FUNCTION 'DEQUEUE_EPROG'
       EXPORTING
         programm = sy-repid.
Bruce