ABAP program to resubmit itself with temp variant

Question

Hi there,
I want a program to be able to re-submit itself in the background. I can do this, but if the user does not use a variant, how do I submit the program with the user-defined selections? This program may be run often and I don't want to create a massive list of variants. This must work whether they select a variant, or manually input selections.

Answer 1

lv_job_name will be the program name itself
CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = lv_job_name
    IMPORTING
      jobcount         = lv_job_nr
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.
  IF syst-subrc = 0.
*submit job with all the selection screen params...
<b>    SUBMIT (lv_job_name)
        WITH applfile = applfile     " all your variables go here
        WITH p_lines = p_lines
        WITH rfcdest = rfcdest
        WITH p_selmtd = lv_selmtd
        USER syst-uname
       VIA JOB lv_job_name NUMBER lv_job_nr AND RETURN.</b>
    IF sy-subrc = 0.
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          jobcount             = lv_job_nr
          jobname              = lv_job_name
          strtimmed            = 'X'
        IMPORTING
          job_was_released     = lv_job_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 syst-subrc <> 0.
        MESSAGE i162(00) WITH
        'An error occured while closing the background job.'.
        STOP.
      ENDIF.
    ENDIF.
  ENDIF.
  SKIP 1.
  WRITE: / 'Background process', lv_job_name_string , 'called successfully' NO-GAP.
  WRITE: / 'You can check the job in transaction SM37'.
Message was edited by:
        Kris Donald