[pafú]

lv_jobname = 'ZPROG088A'.

CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.

IF sy-subrc <> 0.
MESSAGE e208(00) WITH 'Error creating Job'.
ENDIF.

SUBMIT zprog088a WITH p_ini = f_inicio
WITH p_fin = f_fin
WITH p_usu = sy-uname
VIA JOB lv_jobname NUMBER lv_jobcount
AND RETURN.

IF sy-subrc <> 0.
MESSAGE e208(00) WITH 'Error scheduling Job'.
ENDIF.

CALL FUNCTION 'JOB_CLOSE'
EXPORTING
* at_opmode = 'X'
jobcount = lv_jobcount
jobname = lv_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
OTHERS = 8.

IF sy-subrc <> 0.
MESSAGE e208(00) WITH 'Error closing Job'.
ELSE.
MESSAGE s368(00) WITH 'Job created:' lv_jobcount.
ENDIF.