Script to know the status of jobs Currently Running

SETPAUSEON
SETPAUSE'Press Return to Continue'
SETPAGESIZE60
SETLINESIZE300
SETVERIFYOFF

SELECTa.job"Job",
a.sid,
a.failures"Failures",       
Substr(To_Char(a.last_date,'DD-Mon-YYYY HH24:MI:SS'),1,20)"Last Date",      
Substr(To_Char(a.this_date,'DD-Mon-YYYY HH24:MI:SS'),1,20)"This Date"
FROMdba_jobs_runninga
/