*&---------------------------------------------------------------------
*& Form SET_JOB
*&---------------------------------------------------------------------
* text
*----------------------------------------------------------------------
* -->P_L_ID_PROCESO text
* -->P_L_ROW_INIT text
* -->P_L_ROW_LAST text
* <--P_<FS_PROCESO>_E_JOB_NAME text
*----------------------------------------------------------------------
FORM set_job USING p_id_proceso
p_i_row_init
p_i_row_last
CHANGING p_ie_subrc
p_ie_job_name TYPE btcjob
p_ie_jobcount TYPE btcjobcnt.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = p_ie_job_name
IMPORTING
jobcount = p_ie_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc EQ 0.
SUBMIT zf1_pr_ep_r_report_dinamicjobs VIA JOB p_ie_job_name
NUMBER p_ie_jobcount
USING SELECTION-SCREEN 1000
TO SAP-SPOOL WITHOUT SPOOL DYNPRO
IMMEDIATELY 'X'
WITH p_taskid EQ p_id_proceso
WITH p_jobnam EQ p_ie_job_name
WITH p_jobcon EQ p_ie_jobcount
WITH p_rini EQ p_i_row_init
WITH p_rlas EQ p_i_row_last
WITH p_fikrs EQ p_fikrs
WITH p_gjahr EQ p_gjahr
WITH p_versi EQ p_versi
WITH p_ptype EQ p_ptype
WITH p_consol EQ p_consol
WITH p_ltext EQ p_ltext
AND RETURN.
IF sy-subrc EQ 0.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = p_ie_jobcount
jobname = p_ie_job_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
invalid_target = 8
OTHERS = 9.
IF sy-subrc NE 0.
p_ie_subrc = 4.
ENDIF.
ELSE.
p_ie_subrc = 4.
ENDIF.
ELSE.
p_ie_subrc = 4.
ENDIF.
ENDFORM.
