Regarding Job Status

Question

Hi,
I want to check the status of my job i m aware of the tables n FM but what i wanna
know how do i go about doing it in my program which is submitting that job
using JOB_SUBMIT ??
if i check the status in my program it always gives Running it may take some tme for my job to be proceesed,thus im nt gettting the actual status.
Is there any way out??
Its Urgent,
Answers will be rewarded,
regards.
Rohan

Answer 1

Hi,
Please check this sample code.
CALL FUNCTION 'JOB_OPEN'
  EXPORTING
    JOBGROUP         = V_JOBGROUP
    JOBNAME          = V_JOBNAME
    SDLSTRTDT        = SY-DATUM
    SDLSTRTTM        = SY-UZEIT
  IMPORTING
    JOBCOUNT         = V_JOBCOUNT
  EXCEPTIONS
    CANT_CREATE_JOB  = 1
    INVALID_JOB_DATA = 2
    JOBNAME_MISSING  = 3
    OTHERS           = 4.
IF SY-SUBRC NE 0.
  CLEAR WA_MESSAGE.
  CONCATENATE TEXT-005 V_JOBNAME INTO WA_MESSAGE
                       SEPARATED BY SPACE.
  MESSAGE S009(ZZSCMAPO) WITH WA_MESSAGE.
  STOP.
ENDIF.
SUBMIT ZZAPOSSFCST_EXTRACTOR2
       USER SY-UNAME
       VIA JOB V_JOBNAME
       NUMBER V_JOBCOUNT
       WITH P_SOURCE EQ P_SOURCE  "<--- Here submit with parameter1
       WITH P_REQUNR EQ P_REQUNR  "<--- Here submit with parameter2
       WITH P_SIZE   EQ P_SIZE    "<--- Here submit with parameter3
       WITH P_CALLS  EQ P_CALLS   "<--- Here submit with parameter4
       AND RETURN.
IF SY-SUBRC NE 0.
  CLEAR WA_MESSAGE.
  CONCATENATE TEXT-006 V_JOBNAME INTO WA_MESSAGE
                       SEPARATED BY PACE.
  MESSAGE S009(ZZSCMAPO) WITH WA_MESSAGE.
  STOP.
ENDIF.
CALL FUNCTION 'JOB_CLOSE'
  EXPORTING
    JOBCOUNT             = V_JOBCOUNT
    JOBNAME              = V_JOBNAME
    STRTIMMED            = 'X'
  EXCEPTIONS
    CANT_START_IMMEDIATE = 1
    INVALID_STARTDATE    = 2
    JOBNAME_MISSING      = 3
    JOB_CLOSE_FAILED     = 4
    JOB_NOSTEPS          = 5
    JOB_NOTEX            = 6
    LOCK_FAILED          = 7
    INVALID_TARGET       = 8
    OTHERS               = 9.
IF SY-SUBRC NE 0.
  CLEAR WA_MESSAGE.
  CONCATENATE TEXT-007 V_JOBNAME INTO WA_MESSAGE
                       SEPARATED BY SPACE.
  MESSAGE S009(ZZSCMAPO) WITH WA_MESSAGE.
  STOP.
ENDIF.
<b>Reward points if useful</b>
Rewards
Ashu