Hola Jose, proba tambien con el BIF %EOF()
Saludos
Manuel Antonio Ramirez Raygada escribió:
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
------------------------------------------------------------------------
¡Que no te pillen atascos ni radares! En MSN te damos toda la
información sobre el estado de las carretas y te mostramos dónde se
encuentran los radares de tráfico. <http://motor.es.msn.com/servicios/>
------------------------------------------------------------------------
____________________________________________________
© 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
--
.::.
Nicolas Machado
Metodo Argentina S.A.
_____________________
Tel: 02262 527431
Necochea, Buenos Aires.
____________________________________________________
© 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
