TBTCP VE TBTCO tablolarından programın JOB ile çalıştırılıdğını kontrol edebilirsiniz. TBTCP~PROGNAME = `Z*****`    TBTCO~STATUS= `R`

FUNCTION ZTR_JOBPROGRAM_ISRUNNING.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_PROGRAM) TYPE  BTCPROG
*"     VALUE(I_STATUS) TYPE  BTCSTATUS DEFAULT `R`
*"  EXPORTING
*"     VALUE(ET_JOBPROG) TYPE  ZTR_T_JOB_PROG
*"     VALUE(EV_YES) TYPE  XFELD
*"----------------------------------------------------------------------
 data: lv_counter type int4.

    select  TBTCO~JOBNAME
            TBTCO~JOBCOUNT
            TBTCP~STEPCOUNT
            TBTCP~PROGNAME
            TBTCO~STATUS

      from tbtco
      inner JOIN TBTCP on TBTCP~JOBNAME  = TBTCO~JOBNAME
                      and TBTCP~JOBCOUNT = TBTCO~JOBCOUNT
      into table ET_JOBPROG
      where TBTCP~PROGNAME = I_PROGRAM
        and TBTCO~status = I_STATUS.


  DESCRIBE TABLE ET_JOBPROG LINES lv_counter.
  if lv_counter > 1 . "Kendi!
      EV_YES = `X`.
  endif.

ENDFUNCTION.

Structure alanları :

JOBNAME    Types    BTCJOB
JOBCOUNT    Types    BTCJOBCNT
STEPCOUNT    Types    BTCSTEPCNT
PROGNAME    Types    BTCPROG
STATUS    Types    BTCSTATUS