Program or function module to get active Batch jobs

Question

Hi Experts,
                 I need a program or a FM that would give me the list of active batch jobs and also the time they were running
for.
Plz help me out

Answer 1

You Just follow the below code, It is exactly same as your requirement.
TYPES:   BEGIN OF ty_itbl,
           jobname   TYPE   tbtcp-jobname,
           jobcount  TYPE   tbtcp-jobcount,
           stepcount TYPE   i,"tbtcp-stepcount,
           sdldate   TYPE   tbtcp-sdldate,
           sdltime   TYPE   tbtcp-sdltime,
           sdluname  TYPE   tbtcp-sdluname,
           status    TYPE   tbtco-status,
           END OF ty_itbl.
  DATA :   wt_itbl TYPE TABLE OF ty_itbl,
           wa_itbl TYPE ty_itbl.
SELECT     a~jobname
               a~jobcount
               a~stepcount
               a~sdldate
               a~sdltime
               a~sdluname
               b~status
               INTO CORRESPONDING FIELDS OF TABLE wt_itbl
               FROM tbtcp AS a
               INNER JOIN tbtco AS b
               ON    b~jobname    EQ    a~jobname
               AND   b~jobcount   EQ    a~jobcount
               WHERE a~progname IN wp_prog
               AND   a~sdldate  IN wp_date
               AND  b~status eq <STATUS>. "<-Give the Active Status here