在程序中启用后台JOB
如果是本程序，可以使用标准函数抓取
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTING curr_report = sy-repid TABLES selection_table = lt_sel_parameter EXCEPTIONS not_found = 1 no_report = 2 OTHERS = 3.下边是完整的Demo示例
FORM f_set_job. DATA:lt_sel_parameter TYPE STANDARD TABLE OF rsparams, lv_job_released TYPE c, lv_job_nr LIKE tbtco-jobcount, lv_job_name TYPE tbtcjob-jobname, lt_rsparams TYPE TABLE OF rsparams, ls_sel_parameter TYPE rsparams. CLEAR lv_job_name. lv_job_name = |ZXXX_Email_{ sy-datum }_{ sy-uzeit }|. CALL FUNCTION 'JOB_OPEN' EXPORTING jobgroup = CONV tbtcjob-jobgroup( '<XXX_JOB_GROUP>' ) "指定运行JOB的实例 jobname = lv_job_name IMPORTING jobcount = lv_job_nr EXCEPTIONS cant_create_job = 1 invalid_job_data = 2 jobname_missing = 3 OTHERS = 4. IF sy-subrc = 0. MESSAGE '已提交后台邮件任务' TYPE 'S'. DEFINE add_sel_to_tab. LOOP AT &1. CLEAR ls_sel_parameter. ls_sel_parameter-selname = &2. " 屏幕字段名 (大写) ls_sel_parameter-kind = 'S'. "类型: S=Select-option, P=Parameter ls_sel_parameter-sign = &1-sign. " I 或 E ls_sel_parameter-option = &1-option. " EQ, BT, CP 等 ls_sel_parameter-low = &1-low. ls_sel_parameter-high = &1-high. APPEND ls_sel_parameter TO lt_sel_parameter. ENDLOOP. END-OF-DEFINITION. REFRESH lt_sel_parameter. " 1. 月份 * add_sel_to_tab s_month 'S_MONTH'. " 2. 过账日期 add_sel_to_tab s_budat 'S_BUDAT'. " 3. 节点 (利润中心组) add_sel_to_tab s_node 'S_NODE'. " 4. 利润中心 add_sel_to_tab s_prctr 'S_PRCTR'. " 5. 科目 add_sel_to_tab s_hkont 'S_HKONT'. " 6. 费用类型 add_sel_to_tab s_zfylx 'S_ZFYLX'. " 7. 公司代码 add_sel_to_tab s_bukrs 'S_BUKRS'. * 提交程序 SUBMIT ZXXX WITH SELECTION-TABLE lt_sel_parameter USER 'SAP_SYSTEM' VIA JOB lv_job_name NUMBER lv_job_nr TO SAP-SPOOL DESTINATION 'LP01' IMMEDIATELY '' KEEP IN SPOOL 'X' WITHOUT SPOOL DYNPRO AND RETURN. 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. ENDIF. ENDIF. ENDFORM.)
