程序里设置后台JOB

    

DATA: number           TYPE tbtcjob-jobcount,
      name             TYPE tbtcjob-jobname VALUE 'ZMB5B_AGE',
      print_parameters TYPE pri_params.
  CALL FUNCTION 'JOB_OPEN'
      EXPORTING
        jobname          = name
      IMPORTING
        jobcount         = number
      EXCEPTIONS
        cant_create_job  = 1
        invalid_job_data = 2
        jobname_missing  = 3
        OTHERS           = 4.
    IF sy-subrc = 0.
      SUBMIT zmb5b_aging WITH p_werks = p_werks
                                  WITH s_matnr IN s_matnr
                                  WITH s_wbs   IN s_wbs
                                  WITH s_lgort IN s_lgort
                                  WITH s_bklas IN s_bklas
                                  WITH s_bwart IN s_bwart
                                  WITH p_sobkz = p_sobkz
*                                  WITH p_date = p_date
                                  WITH p_lfgja = p_lfgja
                                  WITH p_lfmon = p_lfmon
                                  WITH pr1 = pr1
                                  WITH pr2 = pr2
                                  WITH pr3 = pr3
*                                  WITH pc3 = pc3
                                  WITH pc4 = pc4
                                  TO SAP-SPOOL
                                  SPOOL PARAMETERS print_parameters
                                  WITHOUT SPOOL DYNPRO
                                  VIA JOB name NUMBER number
                                  AND RETURN.
      IF sy-subrc EQ 0 .
        CALL FUNCTION 'JOB_CLOSE'
          EXPORTING
            jobcount             = number
            jobname              = name
            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
            OTHERS               = 8.

        IF sy-subrc EQ 0.
          MESSAGE '后台作业ZMB5B_AGE已被安排立即执行!' TYPE 'S'.
        ELSE.
          MESSAGE '后台作业安排出错!' TYPE 'I'.
        ENDIF.
      ENDIF.
    ELSE.
      MESSAGE '后台作业安排出错!' TYPE 'I'.
    ENDIF.