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!!!