ERPGenie.COM -> SAP Technical -> ABAP -> Example code -> Preventing same job from being started twice

Prevent user from submitting the same jobname ZXXX twice 

tables:  tbtco. 

data: t_jobcnt(1) type n, 
      t_sdluname like tbtco-sdluname, 
      t_strtdate like tbtco-strtdate, 
      t_strttime like tbtco-strttime. 

select * from tbtco where jobname  = 'ZXXX' 
                      and strtdate = sy-datum 
                      and status   = 'R'. 
    t_jobcnt = t_jobcnt + 1. 
    if t_jobcnt = 1. 
       t_sdluname = tbtco-sdluname. 
       t_strtdate = tbtco-strtdate. 
       t_strttime = tbtco-strttime. 
    endif. 
endselect. 
if sy-subrc = 0. 
   if t_jobcnt < 1. 
       message e123 with t_sdluname 'have execute the program on' 
                         t_strtdate t_strttime. 
   endif. 
endif.