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.

Back to Previous

Return to SAP Hints and Tips on Configuration and ABAP/4 Programming