Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)
-   -   [Sintaxis] Leer último registro (https://www.cobolforo.es/showthread.php?t=1143)

jmeza 10 de mayo de 2020 00:33

Leer último registro
 
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 10 de mayo de 2020 12:52

@jmeza,

Código COBOL:
  1. READ nombre_fichero LAST

jmeza 10 de mayo de 2020 18:26

Cita:

Citación del post de Kuk (Mensaje 5672)
@jmeza,

Código COBOL:
  1. 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 10 de mayo de 2020 19:09

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
Código COBOL:
  1. READ MAEMOVI PREVIOUS RECORD WITH NO LOCK END READ.

El primer registro que muestre sera el ultimo.

JCantero 11 de mayo de 2020 00:43

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

Código COBOL:
  1. move high-values to clave
  2. start fichero key is less clave end-start
  3. read fichero previous end-read

Y el cobol tiene last

Código COBOL:
  1. start fichero key is last end-start
  2. read fichero previous end-read

Kuk 11 de mayo de 2020 09:18

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

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

JCantero 11 de mayo de 2020 11:15

@Kuk,

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

Josber 11 de mayo de 2020 12:22

Cita:

Citación del post de JCantero (Mensaje 5678)
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 11 de mayo de 2020 12:28

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

Gusaiello 11 de mayo de 2020 14:38

Cita:

Citación del post de JCantero (Mensaje 5678)
@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.


La franja horaria es GMT +2. Ahora son las 01:13.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.