Hola Jose:
te envio un ejemplo de como podrias manejar el programa:
c***************************************
c** *inzsr - subrutina de iniciacion. **
c***************************************
c *inzsr begsr
c z-add 0 x 1 0
c eval *inlr = *on
/free
if *inlr;
eval x = 1;
endif;
/end-free
c endsr
es importante marcar los inicios y terminos del rpg free, ademas que por cada
intruccion debe ir seguido ; La otra alternativa es cambiar el metodo de
lectura automatico por el controlado de tu archivo de input.
Espero sea de tu utilidad,
Un abrazo,
Manuel A. Ramirez Raygada
Analista de Sistemas
Especialista en AS400
Lima - Peru
> Date: Tue, 4 Aug 2009 19:37:37 -0400
> Subject: Saber EOF en free
> From: [email protected]
> To: [email protected]
>
> Hola Foro
> Tengo un archivo secuencial abierto con primario(P) en la hoja F, lo
> que necesito es saber en FREE el fin de archivo (%eof).
> Es Algo similar como esto
>
> C IF *INLR
> C EXSR SR_LR
> C ENDIF
> esto NO funciona en FREE
>
> Desde Ya Muchas Gracias.
> ____________________________________________________
> © Publicaciones Help400, S.L. - Todos los
> derechos reservados http://www.help400.es
> ----------------------------------------------------
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
_________________________________________________________________
Entérate de todas las noticias al instante ¡Suscríbete al servicio de Alertas
MSN!
http://especiales.es.msn.com/noticias/msninforma.aspx
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
