|
Ya logre escribir sobre los tal IFS, ahora necesito
leer.
Estoy utilizando el siguiente
código.
D FGets
Pr
* ExtProc( '_C_IFS_fgets' )
D * Value D 10i 0 Value D * Value .
..
.
Dow FGets( %Addr(Registro) : %Size(Registro) :
Archivo_E) <> *NULL;
.
.
.
y efectivamente en Registro trae los datos,
pero requiero leer registro a registro y no todo el archivo, si observo por
WRKLNK el archivo, efectivamente esta registro a registro, pero al
recuperarlo viene todo, y la variable Registro tiene una longitud
de 100, pero no todos los registros tienen esta longitud, y cuando
esto sucede viene una porción del siguiente registro o todo.
Un dato, inicialmente cuando se escribe el
archivo, cada registro se termina con la siguiente variable.
D
EndRec
C
CONST(X'0d25')
CRLF
Cualquier idea es bien venida, esto es demasiado
complicado para realizar uno concepto tan sencillo como recuperar una línea de
algo.....
Gracias.
|
