Code for Job submit

Question

Hi ,
I am trying to write code for open job , submit & close job.
I need to send 4 fields as parameters from program1 to the BGprogram.
Anyone please tell me the syntax for submit.I cun't find any syntax for this.
Thanks in advance,

Answer 1

..Create new job
    CONCATENATE lc_job_prefix l_pr_count
        INTO l_job_name SEPARATED BY '_'
    CALL FUNCTION 'JOB_OPEN'
      EXPORTING
        jobname                = l_job_name
      IMPORTING
        jobcount               = l_job_count
      EXCEPTIONS
        cant_create_job        = 1
        invalid_job_data       = 2
        jobname_missing        = 3
        OTHERS                 = 4
    IF sy-subrc <> 0.
....Error creating job
      IF NOT sy-msgid IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ELSE.
        MESSAGE s000(zz) WITH
            'Failed to create job'(021)
            l_job_name
      ENDIF.
    ELSE.
....Submit job {
      MESSAGE s000(zz) WITH
          'Creating job'(022) l_job_name l_job_count '...'
          INTO l_msgtx
      PERFORM show_progress USING l_msgtx 0 1.
      IF v_sort = 'X'.
        SUBMIT (sy-cprog)
              WITH s_pernr BETWEEN l_pernr_min AND l_pernr_max
             WITH s_g_ctrl IN r_cs_ctrl
              WITH s_g_land IN r_cs_land
              WITH s_g_gs IN r_cs_gs
             VIA JOB l_job_name NUMBER l_job_count
              TO SAP-SPOOL SPOOL PARAMETERS   l_print_parm
                           ARCHIVE PARAMETERS l_archive
                           WITHOUT SPOOL DYNPRO
              AND RETURN
      ELSE.
        SUBMIT (sy-cprog)
              WITH s_pernr BETWEEN l_pernr_min AND l_pernr_max
              WITH s_g_lub IN r_cs_lub
              WITH s_g_pro IN r_cs_pro
              WITH s_g_pub IN r_cs_pub
              VIA JOB l_job_name NUMBER l_job_count
              TO SAP-SPOOL SPOOL PARAMETERS   l_print_parm
                         ARCHIVE PARAMETERS l_archive
                         WITHOUT SPOOL DYNPRO
              AND RETURN
      ENDIF.
....Start immediately
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          jobcount                          = l_job_count
          jobname                           = l_job_name
          strtimmed                         = true
        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.
        IF NOT sy-msgid IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ELSE.
          MESSAGE s000(zz) WITH
              'Error releasing job'(023)
              l_job_name
              l_job_count
        ENDIF.
      ELSE.
        MESSAGE s000(zz) WITH
            'Job released'(024) l_job_name l_job_count
            INTO l_msgtx
        PERFORM show_progress USING l_msgtx 0 1.
      ENDIF.
....} Submit job
    ENDIF.
..Increment process count
    ADD 1 TO l_pr_count.
  ENDDO.
  MESSAGE s000(zz) WITH l_pr_count 'job(s) created.'(025).