problem in creating job via submit

Former Member · ‎03-09-2009

sap 4.7

i am opening/scheduling job from other program/job

And from some reason i get two jobs with the same name.

One is working good, and the other one is stay in schedule.

My problem is , why i active two jobs and not only one ?

And why one (that I donu2019t want and need it at all ) is stay as "schedule" ?

this is my code

CONCATENATE EVT_ID JOBCOUNT INTO JOBNAME

SEPARATED BY SPACE.

LCL_TIME = SY-UZEIT + 1000 . " + 15 minute

CALL FUNCTION 'JOB_OPEN'

EXPORTING

JOBNAME = JOBNAME

IMPORTING

JOBCOUNT = JOBCOUNT. " AND RETURN

CALL FUNCTION 'JOB_OPEN'

EXPORTING

JOBNAME = JOBNAME

DELANFREP = SPACE

IMPORTING

JOBCOUNT = JOBCOUNT

EXCEPTIONS

CANT_CREATE_JOB = 1

INVALID_JOB_DATA = 2

JOBNAME_MISSING = 3

OTHERS = 4.

if sy-subrc <> 0 .

MESSAGE I099 WITH 'cant craete job' .

endif.

SUBMIT YITF_MOVE_TO_BCKP

VIA JOB JOBNAME NUMBER JOBCOUNT

TO SAP-SPOOL IMMEDIATELY ' '

DESTINATION 'LOCL'

KEEP IN SPOOL 'X'

WITHOUT SPOOL DYNPRO

WITH EVT_PARM = EVT_PARM

AND RETURN.

CALL FUNCTION 'JOB_CLOSE'

EXPORTING

JOBCOUNT = JOBCOUNT

JOBNAME = JOBNAME

SDLSTRTDT = SY-DATUM "i_strtdt

SDLSTRTTM = LCL_TIME

STRTIMMED = 'X'

this is the status in sm37

YITF_MFHBHY_LOAD 03304501 LEGACY Scheduled

YITF_MFHBHY_LOAD 03304501 LEGACY Complete 04.03.2009 03:49:05

.

former_member156446 · ‎03-09-2009

Hi use this Code to fix the issue...

DATA : v_jobhead LIKE tbtcjob.
DATA : v_jobcount LIKE tbtcjob-jobcount.
DATA : v_eventparm LIKE tbtcjob-eventparm.
DATA : v_flg_released TYPE c.
DATA: e_error.
DATA: running LIKE tbtcv-run.
 
TYPES: esp1_boolean LIKE boole-boole.
 
CONSTANTS: esp1_false TYPE esp1_boolean VALUE ' ',
           esp1_true  TYPE esp1_boolean VALUE 'X'.
 
CONSTANTS: true  TYPE boolean VALUE esp1_true,
                          false TYPE boolean VALUE esp1_false.
 
PARAMETERS: v_jobnam LIKE tbtcjob-jobname,
            v_report LIKE sy-repid,
            v_varian LIKE  raldb-variant,
            v_uname  LIKE sy-uname.
 
START-OF-SELECTION.
 
* add the new job
  CALL FUNCTION 'JOB_OPEN'
       EXPORTING
*            delanfrep        = 'X'
            jobname          = v_jobnam
       IMPORTING
            jobcount         = v_jobcount
       EXCEPTIONS
            cant_create_job  = 1
            invalid_job_data = 2
            jobname_missing  = 3
            OTHERS           = 4.
  IF sy-subrc  0.
    e_error = true.
  ELSE.
    CALL FUNCTION 'JOB_SUBMIT'  " or you can use SUBMIT statement as well.
         EXPORTING
              authcknam               = v_uname
              jobcount                = v_jobcount
              jobname                 = v_jobnam
              report                  = v_report
              variant                 = v_varian
         EXCEPTIONS
              bad_priparams           = 1
              bad_xpgflags            = 2
              invalid_jobdata         = 3
              jobname_missing         = 4
              job_notex               = 5
              job_submit_failed       = 6
              lock_failed             = 7
              program_missing         = 8
              prog_abap_and_extpg_set = 9
              OTHERS                  = 10.
    IF sy-subrc  0.
      e_error = true.
    ELSE.
      CALL FUNCTION 'JOB_CLOSE'
           EXPORTING
*               EVENT_ID                    = IC_WWI_WORKPROCESS_EVENT
*               EVENT_PARAM                 = V_EVENTPARM
*               EVENT_PERIODIC              = 'X'
                jobcount                    = v_jobcount
                jobname                     = v_jobnam
                strtimmed                   = 'X'
           IMPORTING
                job_was_released            = v_flg_released
           EXCEPTIONS
                cant_start_immediate        = 1
                invalid_startdate           = 2
                jobname_missing             = 3
                job_close_failed            = 4
                job_nosteps                 = 5
                job_notex                   = 6
                lock_failed                 = 7
                OTHERS                      = 8.
      IF sy-subrc  0.
        e_error = true.
      ELSE.
        DO.
          CALL FUNCTION 'SHOW_JOBSTATE'
            EXPORTING
              jobcount               = v_jobcount
              jobname                = v_jobnam
*            IMPORTING
*         ABORTED                =
*         FINISHED               =
*         PRELIMINARY            =
*         READY                  =
*              running                =
*         SCHEDULED              =
           EXCEPTIONS
             jobcount_missing       = 1
             jobname_missing        = 2
             job_notex              = 3
             OTHERS                 = 4.
 
          IF sy-subrc  0.
            e_error = true.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
          IF running = space.
            EXIT.
          ENDIF.
        ENDDO.
      ENDIF.
    ENDIF.
  ENDIF.

Former Member · ‎03-09-2009

i can't use

strtimmed = 'X'

because i want to start the job in delay of 15 minute

insted i use

SDLSTRTDT = SY-DATUM "i_strtdt

SDLSTRTTM = LCL_TIME

CALL FUNCTION 'JOB_CLOSE'

EXPORTING

EVENT_ID = IC_WWI_WORKPROCESS_EVENT
EVENT_PARAM = V_EVENTPARM
EVENT_PERIODIC = 'X'

jobcount = v_jobcount

jobname = v_jobnam

Former Member · ‎03-09-2009

JUST WROTE 'JOB_OPEN' TWICE

THANKS ANY WAY .