|
Preventing same job from being started twice |
|
|
|
|
Written by Anon.
|
|
Saturday, 20 January 2007 |
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.
|
