‎2008 Jul 10 12:00 PM
I want to see the status of the Jobs thru SM37 but for that i have to enter job name one by one.
is there any FM or table thru which i can get the status of the jobs directly.
As SM37 takes lot of time to do see the status one by one
‎2008 Jul 10 12:09 PM
U can try FM 'BP_JOBLOG_SHOW'
Pl. check this sample program:
REPORT ZEXAMPLE.
DATA: JOBLIST LIKE TBTCJOB OCCURS 0 WITH HEADER LINE,
JOBDETS LIKE BTCSELECT,
JOBLOG LIKE TBTC5 OCCURS 0 WITH HEADER LINE,
V_ANS.
PARAMETERS P_UNAME LIKE SY-UNAME DEFAULT SY-UNAME OBLIGATORY.
IF NOT P_UNAME IS INITIAL.
JOBDETS-JOBNAME = '*'.
JOBDETS-USERNAME = P_UNAME.
JOBDETS-FROM_DATE = SY-DATUM.
JOBDETS-TO_DATE = SY-DATUM.
JOBDETS-NO_DATE = 'X'.
JOBDETS-WITH_PRED = 'X'.
JOBDETS-PRELIM = 'X'.
JOBDETS-SCHEDUL = 'X'.
JOBDETS-READY = 'X'.
JOBDETS-RUNNING = 'X'.
JOBDETS-FINISHED = 'X'.
JOBDETS-ABORTED = 'X'.
ENDIF.
CALL FUNCTION 'BP_JOB_SELECT'
EXPORTING
JOBSELECT_DIALOG = 'Y'
JOBSEL_PARAM_IN = JOBDETS
TABLES
JOBSELECT_JOBLIST = JOBLIST
EXCEPTIONS
INVALID_DIALOG_TYPE = 1
JOBNAME_MISSING = 2
NO_JOBS_FOUND = 3
SELECTION_CANCELED = 4
USERNAME_MISSING = 5
OTHERS = 6.
IF SY-SUBRC EQ 0.
IF NOT JOBLIST[] IS INITIAL.
READ TABLE JOBLIST INDEX 1.
CALL FUNCTION 'BP_JOBLOG_READ'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
TABLES
JOBLOGTBL = JOBLOG
EXCEPTIONS
CANT_READ_JOBLOG = 1
JOBCOUNT_MISSING = 2
JOBLOG_DOES_NOT_EXIST = 3
JOBLOG_IS_EMPTY = 4
JOBLOG_NAME_MISSING = 5
JOBNAME_MISSING = 6
JOB_DOES_NOT_EXIST = 7
OTHERS = 8.
IF JOBLOG[] IS INITIAL.
WRITE:/ 'NO JOB LOG FOUND'.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'DELETE JOB LOGS'
TEXT_QUESTION = 'JOB LOGS FOUND. DELETE?'
POPUP_TYPE = 'W'
IMPORTING
ANSWER = V_ANS.
ENDIF.
IF V_ANS EQ '1'.
CALL FUNCTION 'BP_JOB_DELETE'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
EXCEPTIONS
CANT_DELETE_EVENT_ENTRY = 1
CANT_DELETE_JOB = 2
CANT_DELETE_JOBLOG = 3
CANT_DELETE_STEPS = 4
CANT_DELETE_TIME_ENTRY = 5
CANT_DERELEASE_SUCCESSOR = 6
CANT_ENQ_PREDECESSOR = 7
CANT_ENQ_SUCCESSOR = 8
CANT_ENQ_TBTCO_ENTRY = 9
CANT_UPDATE_PREDECESSOR = 10
CANT_UPDATE_SUCCESSOR = 11
COMMIT_FAILED = 12
JOBCOUNT_MISSING = 13
JOBNAME_MISSING = 14
JOB_DOES_NOT_EXIST = 15
JOB_IS_ALREADY_RUNNING = 16
NO_DELETE_AUTHORITY = 17
OTHERS = 18.
IF SY-SUBRC EQ 0.
WRITE:/ JOBLIST-JOBCOUNT, JOBLIST-JOBNAME, 'LOG DELETED'.
EXIT.
ELSE.
WRITE:/ JOBLIST-JOBCOUNT, JOBLIST-JOBNAME, 'LOG NOT DELETED'.
ENDIF.
ELSE.
CALL FUNCTION 'BP_JOBLOG_SHOW'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
EXCEPTIONS
ERROR_READING_JOBDATA = 1
ERROR_READING_JOBLOG_DATA = 2
JOBCOUNT_MISSING = 3
JOBLOG_DOES_NOT_EXIST = 4
JOBLOG_IS_EMPTY = 5
JOBLOG_SHOW_CANCELED = 6
JOBNAME_MISSING = 7
JOB_DOES_NOT_EXIST = 8
NO_JOBLOG_THERE_YET = 9
NO_SHOW_PRIVILEGE_GIVEN = 10
OTHERS = 11.
ENDIF.
ELSE.
WRITE:/ 'NO JOBS FOR', P_UNAME.
EXIT.
ENDIF.
ENDIF.
Regards,
Joy.
‎2008 Jul 10 12:06 PM
Hi,
If you have created the jobs, why dont you give the user id and date and execute so that it will show you all the jobs created by the user on a particular dat.
Thanks,
Keerthi.
‎2008 Jul 10 12:06 PM
‎2008 Jul 10 12:06 PM
\[removed by moderator as it was just a copy and paste answer of someone else's work without giving a source\]
Edited by: Jan Stallkamp on Jul 11, 2008 10:36 AM
‎2008 Jul 10 12:09 PM
U can try FM 'BP_JOBLOG_SHOW'
Pl. check this sample program:
REPORT ZEXAMPLE.
DATA: JOBLIST LIKE TBTCJOB OCCURS 0 WITH HEADER LINE,
JOBDETS LIKE BTCSELECT,
JOBLOG LIKE TBTC5 OCCURS 0 WITH HEADER LINE,
V_ANS.
PARAMETERS P_UNAME LIKE SY-UNAME DEFAULT SY-UNAME OBLIGATORY.
IF NOT P_UNAME IS INITIAL.
JOBDETS-JOBNAME = '*'.
JOBDETS-USERNAME = P_UNAME.
JOBDETS-FROM_DATE = SY-DATUM.
JOBDETS-TO_DATE = SY-DATUM.
JOBDETS-NO_DATE = 'X'.
JOBDETS-WITH_PRED = 'X'.
JOBDETS-PRELIM = 'X'.
JOBDETS-SCHEDUL = 'X'.
JOBDETS-READY = 'X'.
JOBDETS-RUNNING = 'X'.
JOBDETS-FINISHED = 'X'.
JOBDETS-ABORTED = 'X'.
ENDIF.
CALL FUNCTION 'BP_JOB_SELECT'
EXPORTING
JOBSELECT_DIALOG = 'Y'
JOBSEL_PARAM_IN = JOBDETS
TABLES
JOBSELECT_JOBLIST = JOBLIST
EXCEPTIONS
INVALID_DIALOG_TYPE = 1
JOBNAME_MISSING = 2
NO_JOBS_FOUND = 3
SELECTION_CANCELED = 4
USERNAME_MISSING = 5
OTHERS = 6.
IF SY-SUBRC EQ 0.
IF NOT JOBLIST[] IS INITIAL.
READ TABLE JOBLIST INDEX 1.
CALL FUNCTION 'BP_JOBLOG_READ'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
TABLES
JOBLOGTBL = JOBLOG
EXCEPTIONS
CANT_READ_JOBLOG = 1
JOBCOUNT_MISSING = 2
JOBLOG_DOES_NOT_EXIST = 3
JOBLOG_IS_EMPTY = 4
JOBLOG_NAME_MISSING = 5
JOBNAME_MISSING = 6
JOB_DOES_NOT_EXIST = 7
OTHERS = 8.
IF JOBLOG[] IS INITIAL.
WRITE:/ 'NO JOB LOG FOUND'.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'DELETE JOB LOGS'
TEXT_QUESTION = 'JOB LOGS FOUND. DELETE?'
POPUP_TYPE = 'W'
IMPORTING
ANSWER = V_ANS.
ENDIF.
IF V_ANS EQ '1'.
CALL FUNCTION 'BP_JOB_DELETE'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
EXCEPTIONS
CANT_DELETE_EVENT_ENTRY = 1
CANT_DELETE_JOB = 2
CANT_DELETE_JOBLOG = 3
CANT_DELETE_STEPS = 4
CANT_DELETE_TIME_ENTRY = 5
CANT_DERELEASE_SUCCESSOR = 6
CANT_ENQ_PREDECESSOR = 7
CANT_ENQ_SUCCESSOR = 8
CANT_ENQ_TBTCO_ENTRY = 9
CANT_UPDATE_PREDECESSOR = 10
CANT_UPDATE_SUCCESSOR = 11
COMMIT_FAILED = 12
JOBCOUNT_MISSING = 13
JOBNAME_MISSING = 14
JOB_DOES_NOT_EXIST = 15
JOB_IS_ALREADY_RUNNING = 16
NO_DELETE_AUTHORITY = 17
OTHERS = 18.
IF SY-SUBRC EQ 0.
WRITE:/ JOBLIST-JOBCOUNT, JOBLIST-JOBNAME, 'LOG DELETED'.
EXIT.
ELSE.
WRITE:/ JOBLIST-JOBCOUNT, JOBLIST-JOBNAME, 'LOG NOT DELETED'.
ENDIF.
ELSE.
CALL FUNCTION 'BP_JOBLOG_SHOW'
EXPORTING
JOBCOUNT = JOBLIST-JOBCOUNT
JOBNAME = JOBLIST-JOBNAME
EXCEPTIONS
ERROR_READING_JOBDATA = 1
ERROR_READING_JOBLOG_DATA = 2
JOBCOUNT_MISSING = 3
JOBLOG_DOES_NOT_EXIST = 4
JOBLOG_IS_EMPTY = 5
JOBLOG_SHOW_CANCELED = 6
JOBNAME_MISSING = 7
JOB_DOES_NOT_EXIST = 8
NO_JOBLOG_THERE_YET = 9
NO_SHOW_PRIVILEGE_GIVEN = 10
OTHERS = 11.
ENDIF.
ELSE.
WRITE:/ 'NO JOBS FOR', P_UNAME.
EXIT.
ENDIF.
ENDIF.
Regards,
Joy.
‎2008 Jul 11 10:46 AM
Hi Abhishek Suppal,
Go to T.code : SM50. There we will find all jobs overviews.
Rewards points if helpful.
Thanks & Regards,
T.Duraimurugan.