|
#1
|
|||
|
|||
te paso un codigo que use yo para crear un job desde codigo..
FORM criar_job. DATA: vc_jobname LIKE tbtcjob-jobname, " Nome do job vc_jobcount LIKE tbtcjob-jobcount, " Número do job vc_rele LIKE btch0000-char1. " Indica se o job foi liberado vc_jobname = 'I0002'. CALL FUNCTION 'JOB_OPEN' EXPORTING jobgroup = 'INTERFACE' jobname = vc_jobname IMPORTING jobcount = vc_jobcount EXCEPTIONS OTHERS = 1. IF sy-subrc IS INITIAL. SUBMIT (sy-repid) USER sy-uname VIA JOB vc_jobname NUMBER vc_jobcount WITH cb_job = 'X' AND RETURN. IF vn_uzeit <= sy-uzeit AND vn_datum = sy-datum. CALL FUNCTION 'JOB_CLOSE' EXPORTING jobcount = vc_jobcount jobname = vc_jobname strtimmed = 'X' targetsystem = '' IMPORTING job_was_released = vc_rele EXCEPTIONS OTHERS = 1. ELSE. IF sy-uzeit >= c_dat1. vn_datum = sy-datum + 1. vn_uzeit = sy-uzeit + 900. ELSE. vn_datum = sy-datum . vn_uzeit = sy-uzeit + 600. ENDIF. CALL FUNCTION 'JOB_CLOSE' EXPORTING jobcount = vc_jobcount jobname = vc_jobname sdlstrtdt = vn_datum sdlstrttm = vn_uzeit targetsystem = '' IMPORTING job_was_released = vc_rele EXCEPTIONS OTHERS = 1. ENDIF. IF NOT sy-subrc IS INITIAL. MESSAGE s043 WITH vc_jobname. ENDIF. ELSE. MESSAGE s043 WITH vc_jobname. ENDIF. ENDFORM. " CRIAR_JOB Úlima edición por RAMONES fecha: 16/07/09 a las 13:52:21. |
#2
|
|||
|
|||
Hola!! Muchas gracias, fue de mucha utilidad sus comentarios. Haré el programa q lea el archivo y posteriormente lo asociaré a mi job creado por la SM36. Saludos!!!
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|