Juan Carlos
adjunto un extracto de programa que permite hacer el chequeo de un objeto
en una carpeta IFS
2302 /* Verifica, Si existe archivo de transferencia .CSV */
2303 *CHKOUT OBJ(&PATH_ORIG) *
2304 MONMSG MSGID(CPFA0A9) EXEC(DO)
2305 SNDMSG MSG('("Archivo " *TCAT &ARCHIVO * TCAT " No
+
2306 existe en " *TCAT &RUTA)') TOUSR(*SYSOPR)
2307 GOTO CMDLBL(SALE)
2308 ENDDO
2309 MONMSG MSGID(CPFA09E) EXEC(DO)
2310 *CHKIN OBJ(&PATH_ORIG) *
2313 ENDDO
2400
Las instrucciones CHKOUT y CHKIN realizan esto en conjunto (Ambas son
idénticas al OUT e IN para trabajar
con una DTAAAREA de RPG)
CHKOUT es chequea y asigna el objeto y CHKIN los liberar, por lo que cada
vez que realizas un CHKOUT debes
acompañarlo de un CHKIN
Saludos
*Nota: Los créditos de aprender esto son de Simon Hutchinson, quien publico
el como hacerlo *
Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil +54 11 2452 9241 (Local, Buenos Aires, Argentina)
+54 911 2452 9241 (Internacional)
Skype Spuentes3452
El 7 de julio de 2014, 8:03, Juan Carlos O. <[email protected]> escribió:
> Buenos días.
>
> Os cuento mi problema:
>
> Tengo un proceso que genera un factura en .PDF en la IFS. Luego ese
> documento se le cambia de nombre y se copia en otra carpeta, también de la
> IFS, para que lo pueda procesar otro programa.
>
> Mi problema es que no puedo saber el tiempo que tarda en generarse el PDF.
> De tal manera que cuando se intenta renombrar el fichero, puede estar o no.
>
> He intentado colocar un DLYJOB, pero o pongo un tiempo muy grande o sigo
> con el mismo problema. A parte de que el proceso se retarda muchas veces
> sin motivo.
>
> ¿Hay forma de saber si un fichero existe en la IFS?
>
> ¿Se os ocurre alguna idea para controlarlo de otra forma?
>
> Muchas gracias por leer este correo.
>
> Un saludo.
>
> PD: Trabajo en RPG, cualquiera, y CL's.
>
>
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
