Crear Jobs
Buen día abaperos!!
Estoy retomando esto de programar en abap después de casi 2 años de haberlo dejado, tengo una preguntita....... Necesito hacer un programita que cada cierto tiempo me esté monitoreando la llegada de archivos a una ruta del srv de aplicación, me podrían dar una idea por donde empezar?? Muchisisimas gracias!!! ;) |
Saludos,
A lo mejor podrías tratar esto con alguien que sepa unix, en alguna ocasión tuvimos que hacer algo asi, y optamos por la opción de hacer un shell para que cada 10 min. revise si el archivo llego y lo ejecutamos por medio de un job que se programo con este evento, el evento debe llevar un parametro donde le especifiques el archivo a recibir mediante un archivo de control. Espero haberme explicado. |
Holaaaaaaaaaaaaaaaaaa
Se me ocurre un programa Z que vaya y lea el fichero en el servidor... existe una funcion que lee si puede abrir el fichero... ahora no estoy en el trabajo.. pero mañana te lo puedo postear... |
Te dejo esta funcion que uso yo para leer archivos del server, despues podes tratarlas en una tabla interna y hacer lo que debas hacer, yo paso por parametros tanto la ruta del server...
"Ler todos os arquivo do diretório c_dir_novos e gravar na "tabela interna it_arquivos CALL FUNCTION 'RZL_READ_DIR' EXPORTING name = c_dir_novos TABLES file_tbl = it_archivos EXCEPTIONS argument_error = 1 not_found = 2 send_error = 3 OTHERS = 4. IF sy-subrc IS INITIAL. despues el job lo podes programar por la SM36 o lo haces por codigo, si queres el codigo tambien te lo paso, avisame y lo pego aca, espero te sirva, a mi me sirve mucho... Saludos! |
Muchas gracias a los 3...... RAMONES, porfa si pudieras mandarme el ejemplo del código, estoy un poco perdida :confused:
|
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 |
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!!!
|
Husos Horarios son GMT. La hora en este momento es 12:36:47. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web