Crear Job desde un programa, para una hora

[jtristan]

Hola,

te paso un ejemplo.


DATA: v_numero TYPE TBTCJOB-JOBCOUNT,
v_nombre TYPE TBTCJOB-JOBNAME VALUE 'ZNOMBREjob'.

* Le indicamos la fecha y la hora a la que queremos que se ejecute el job.
* Creamos un job
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = v_nombre
sdlstrtdt = fecha
sdlstrttm = hora
IMPORTING
jobcount = v_numero
EXCEPTIONS
cant_create_job
invalid_job_data
jobname_missing.

* Indicamos los parámetros que se deben pasar así como el nombre del * programa que queremos que ejecute el job.

SUBMIT ZNOMBREPROGRAMA
WITH sociedad = sociedad
WITH centro = centro
WITH material = material
WITH t_produc = t_produc
WITH de_versi = de_versi
WITH a_versio = a_versio
WITH p_desde = p_desde
WITH p_hasta = p_hasta
USER sy-uname
VIA JOB v_nombre
NUMBER v_numero
AND RETURN.

* Cerramos el trabajo.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = v_numero
jobname = v_nombre
sdlstrtdt = fecha
sdlstrttm = hora.


Un saludo.