[email protected] escribió:
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
--
Hola José;
En FREE para lograr lo que estas buscando, reemplazar modo de acceso a
tu archivo primario (P) por (F), leer tu archivo secuencialmente y luego
preguntar por EOF, sería como esto;
/FREE
SetLl *start tu-archivo;
Read tu-archivo;
If %EOF;
ExSr SR_LR;
EndIf;
/END-FREE
Otra forma podría ser dentro de un ciclo;
SetLl *start tu-archivo;
Read tu-archivo;
DoW Not %EOF;
hacer cosas;
Read tu-archivo;
EndDo;
ExSr SR_LR;
Salu2,
--
Nelson Brizuela Garcete
____________________________________________________
© 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
