Leer último registro

[jmeza]

Hola, como puedo hacer para dar lectura al último registro de un archivo sin tener que hacer una lectura secuencial y que posterior muestre el numero en Cmtext1, que es el primer campo del form y la key del registro, que esto lo haga al ejecutar el form.

slds

[Kuk]

@jmeza,

READ nombre_fichero LAST

[jmeza]

@jmeza,

READ nombre_fichero LAST

Kuk, que sigue después
READ MAEMOVI LAST.

Me da este error al compilar

MBDGA02 CmText1-Return(40) : JMN2500I-S The compiler has encountered a word 'LAST' where a statement is expected.

[Roger]

Tengo entendido que ese comando solo funciona el compilador rmcobol salvo equivocarme.
LESS (<) menor que.
NOT LESS (NOT <) no menor que.
EQUAL (=) igual a.
GREATER (>) mayor que.
NOT GREATER (NOT >) no mayor que.
GREATER OR EQUAL (>=) mayor o igual que.
LESS OR EQUAL (<=) menor o igual que.
FIRST principio de fichero (RM/COBOL).
LAST final del fichero (RM/COBOL).


para encontrar en ultimo registro lo que hago es
READ MAEMOVI PREVIOUS RECORD WITH NO LOCK END READ.

El primer registro que muestre sera el ultimo.

[JCantero]

En rmcobol noo existe el "read .... last", existe "start .... last"

Respondiendo a @jmeza,

En cobol standard si quieres leer el ultimo registro de un fichero indexado, suponiendo que la clave primaria sea clave


move high-values to clave
start fichero key is less clave end-start
read fichero previous end-read


Y el cobol tiene last


start fichero key is last end-start
read fichero previous end-read

[Kuk]

@jmeza, me he equivocado. @JCantero, lleva razón, no es READ sino START!

:perdon: se empieza a notar que no codifico últimamente.

[JCantero]

@Kuk,

Cuando empezamos a trabajar con asistentes y copia pega suele pasar.
Jajajaja

[Josber]

Cuando empezamos a trabajar con asistentes y copia pega suele pasar


¡¡ Que vaaaaa !! no es eso JC, es que algunos se van haciendo mayores ya y .... :silba::silba::D:D

[Kuk]

@JCantero, llevo ya unos 5 años sin codificar casi. ;)

[Gusaiello]

@Kuk,

Cuando empezamos a trabajar con asistentes y copia pega suele pasar.
Jajajaja

Cuanto de verdad hay en eso, yo hasta la WORKING ya ni recuerdo el orden de las sentencias.