ABAP程序启动后台作业

FORM frm_set_bgex .
DATA:
lc_ind TYPE char1,
lt_par_tab TYPE STANDARD TABLE OF rsparams,
ls_par_tab TYPE rsparams,
lc_jobname TYPE tbtcjob-jobname VALUE 'Z03P2R1104_CALC',
lc_jobnum TYPE tbtcjob-jobcount
.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-010
default_button = '2'
display_cancel_button = ''
IMPORTING
answer = lc_ind.
CHECK lc_ind EQ '1'.
CONCATENATE lc_jobname '_' sy-datum INTO lc_jobname.
* Par: BUKRS
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BUKRS'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-bukrs.
APPEND ls_par_tab TO lt_par_tab.
* Par: GJAHR
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_GJAHR'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-gjahr.
APPEND ls_par_tab TO lt_par_tab.
* Par: MONAT
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_MONAT'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-monat.
APPEND ls_par_tab TO lt_par_tab.
* Select-option: S_RCODE
CLEAR ls_par_tab.
ls_par_tab-selname = 'S_RCODE'.
ls_par_tab-kind = 'S'.
ls_par_tab-sign = 'I'.
ls_par_tab-option = 'EQ'.
LOOP AT gt_alv INTO gs_alv
WHERE mark EQ 'X'.
ls_par_tab-low = gs_alv-rcode.
APPEND ls_par_tab TO lt_par_tab.
ENDLOOP.
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BATCH'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = 'Y'.
APPEND ls_par_tab TO lt_par_tab.
[color=red]* Create Job[/color]
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lc_jobname
IMPORTING
jobcount = lc_jobnum
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
[color=red]SUBMIT z03p2r002 WITH SELECTION-TABLE lt_par_tab"z03p2r002程序随后附上[/color]
VIA JOB lc_jobname NUMBER lc_jobnum AND RETURN.
IF sy-subrc EQ 0.
[color=red]"CLOSE JOB DEFINITION[/color]
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lc_jobnum
jobname = lc_jobname
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
invalid_target = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
MESSAGE i016(z03p2).
ENDIF.
ELSE.
ENDIF.
ENDIF.


ENDFORM. " FRM_SET_BGEX


[color=red]z03p2r002中的选择屏幕[/color]
*&---------------------------------------------------------------------*
*& 包括 Z03P2X0007
*&---------------------------------------------------------------------*

PARAMETERS:
p_bukrs TYPE z03p2s002-bukrs DEFAULT '1201' OBLIGATORY,
p_gjahr TYPE z03p2s002-gjahr NO-DISPLAY,
p_monat TYPE z03p2s002-monat NO-DISPLAY,
p_batch TYPE sy-batch DEFAULT 'X' NO-DISPLAY.
.

SELECT-OPTIONS s_rcode FOR z03p2r1104m-rcode NO-DISPLAY.