Tweet
Hola. Espero puedan ayudarme en esto.
Estoy haciendo un programa que automatizará un proceso, el punto, es que lanzará todos los programas con jobs.
No entiendo muy bien como se pasan los parámetros en el submit. Si un programa en especial crea diferentes listas de archivos. Es decir si de una tienda hay un artículo 0002...y existen miles de millones...creará 6 listas del artículo 0002, así con los demás artículos. Ese programa cuando lo ejecutan tiene una variante específica por ejemplo 'variante_0002_01', 'variante_0002_02'...así hasta 'n' y con los siguientes artículos es igual.
Ahora mi duda, es cuando en el submit se manda a llamar este programa.. ¿Cómo darle esas distintas variantes?. Para empezar pueden explicarme como pasan los parámetros en el submit. Según mi ignorancia son los parámetros y select-options que posee el programa que estamos mandando llamar. o ¿Se tienen que declarar en alguna otra parte?.
Esto es lo que estoy haciendo.
v_jobname399 = 'ZR399_CM'.
CONCATENATE lv_jobname399 p_centro INTO p_name SEPARATED BY '_'.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = p_name
IMPORTING
jobcount = lv_jobcount399
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc EQ 0.
io_ok = true.
ELSE.
CONCATENATE 'ERROR AL CREAR JOB ' 'ZR399'
INTO w_message SEPARATED BY space.
PERFORM pd_escribe_log.
ENDIF.
APPEND INITIAL LINE TO gt_job ASSIGNING <fs_jobs>.
<fs_jobs>-lv_jobname399 = p_name.
<fs_jobs>-lv_jobcount399 = lv_jobcount399.
SUBMIT zrtinb399
WITH ealp = '/interfase/mer/desa/in/ealp.dat'
WITH s_matkl = s_matkl
WITH s_matnr = s_matnr
WITH s_attyp IN s_attyp
WITH s_mtart = s_mtart
WITH p_datum = p_datum
WITH p_werks = p_name
WITH p_vkorg = p_vkorg
WITH s_vtweg IN s_vtweg
VIA JOB p_name NUMBER lv_jobcount399
AND RETURN.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lv_jobcount399
jobname = p_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
OTHERS = 8.
IF sy-subrc NE 0.
CONCATENATE 'ERROR AL CREAR JOB ' p_name
INTO w_message SEPARATED BY space.
PERFORM pd_escribe_log.
ELSE.
io_ok = true.
EXIT.
ENDIF.
ENDFORM.
Estoy haciendo un programa que automatizará un proceso, el punto, es que lanzará todos los programas con jobs.
No entiendo muy bien como se pasan los parámetros en el submit. Si un programa en especial crea diferentes listas de archivos. Es decir si de una tienda hay un artículo 0002...y existen miles de millones...creará 6 listas del artículo 0002, así con los demás artículos. Ese programa cuando lo ejecutan tiene una variante específica por ejemplo 'variante_0002_01', 'variante_0002_02'...así hasta 'n' y con los siguientes artículos es igual.
Ahora mi duda, es cuando en el submit se manda a llamar este programa.. ¿Cómo darle esas distintas variantes?. Para empezar pueden explicarme como pasan los parámetros en el submit. Según mi ignorancia son los parámetros y select-options que posee el programa que estamos mandando llamar. o ¿Se tienen que declarar en alguna otra parte?.
Esto es lo que estoy haciendo.
v_jobname399 = 'ZR399_CM'.
CONCATENATE lv_jobname399 p_centro INTO p_name SEPARATED BY '_'.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = p_name
IMPORTING
jobcount = lv_jobcount399
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc EQ 0.
io_ok = true.
ELSE.
CONCATENATE 'ERROR AL CREAR JOB ' 'ZR399'
INTO w_message SEPARATED BY space.
PERFORM pd_escribe_log.
ENDIF.
APPEND INITIAL LINE TO gt_job ASSIGNING <fs_jobs>.
<fs_jobs>-lv_jobname399 = p_name.
<fs_jobs>-lv_jobcount399 = lv_jobcount399.
SUBMIT zrtinb399
WITH ealp = '/interfase/mer/desa/in/ealp.dat'
WITH s_matkl = s_matkl
WITH s_matnr = s_matnr
WITH s_attyp IN s_attyp
WITH s_mtart = s_mtart
WITH p_datum = p_datum
WITH p_werks = p_name
WITH p_vkorg = p_vkorg
WITH s_vtweg IN s_vtweg
VIA JOB p_name NUMBER lv_jobcount399
AND RETURN.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lv_jobcount399
jobname = p_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
OTHERS = 8.
IF sy-subrc NE 0.
CONCATENATE 'ERROR AL CREAR JOB ' p_name
INTO w_message SEPARATED BY space.
PERFORM pd_escribe_log.
ELSE.
io_ok = true.
EXIT.
ENDIF.
ENDFORM.
Comentario