Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Multiple Job Status

Former Member
0 Likes
1,424

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

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
1,084

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.

5 REPLIES 5
Read only

Former Member
0 Likes
1,084

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.

Read only

Former Member
0 Likes
1,084

Hi'

In SAP menu goto system-servicesjobs---joboverviews.

Read only

Former Member
0 Likes
1,084

\[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

Read only

Former Member
0 Likes
1,085

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.

Read only

Former Member
0 Likes
1,084

Hi Abhishek Suppal,

Go to T.code : SM50. There we will find all jobs overviews.

Rewards points if helpful.

Thanks & Regards,

T.Duraimurugan.