jramos_torres
13/12/08, 15:51:21
A mas de alguno espero le sirva.El siguiente es un ejemplo del llamado
a job de fondo de manera transparente para el usuario.Lo que permite
al usuario no tener que esperar a que un calculo cargado o pesado
se termine.
Form Ejecuta_Job_Fondo.
*
Call Function 'JOB_OPEN'
Exporting
JobName = 'ZDME0047'
Importing
jobcount = Tbtcjob-Jobcount
Exceptions
Others = 0.
*
Submit ZDME0047 With p_Oferta In R_Ofertas To Sap-pool
Spool Parameters Print_parameters
WithOut Spool Dynpro
Via Job 'ZDME0047' Number Tbtcjob-Jobcount
User Sy-Uname
And Return.
*
Call Function 'JOB_CLOSE'
Exporting
Jobcount = tbtcjob-jobcount
jobname = 'ZDME0047'
strtimmed = 'X'
Exceptions
Cant_Start_Immediate = 1
Invalid_StarDate = 2
Jobname_Missing = 3
Job_Close_Failed = 4
Job_Nosteps = 5
Job_notex = 6
Lock_Failed = 7
Invalid_Target = 8.
*
EndForm.
Nota:Los 3 pasos se tienen que realizar para que la ejecucion tenga exito,en el jobname le pones el nombre del job que deseas ejecutar y lo demas incluso
lo puedes dejar igual. PROVECHO !!.
a job de fondo de manera transparente para el usuario.Lo que permite
al usuario no tener que esperar a que un calculo cargado o pesado
se termine.
Form Ejecuta_Job_Fondo.
*
Call Function 'JOB_OPEN'
Exporting
JobName = 'ZDME0047'
Importing
jobcount = Tbtcjob-Jobcount
Exceptions
Others = 0.
*
Submit ZDME0047 With p_Oferta In R_Ofertas To Sap-pool
Spool Parameters Print_parameters
WithOut Spool Dynpro
Via Job 'ZDME0047' Number Tbtcjob-Jobcount
User Sy-Uname
And Return.
*
Call Function 'JOB_CLOSE'
Exporting
Jobcount = tbtcjob-jobcount
jobname = 'ZDME0047'
strtimmed = 'X'
Exceptions
Cant_Start_Immediate = 1
Invalid_StarDate = 2
Jobname_Missing = 3
Job_Close_Failed = 4
Job_Nosteps = 5
Job_notex = 6
Lock_Failed = 7
Invalid_Target = 8.
*
EndForm.
Nota:Los 3 pasos se tienen que realizar para que la ejecucion tenga exito,en el jobname le pones el nombre del job que deseas ejecutar y lo demas incluso
lo puedes dejar igual. PROVECHO !!.