Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL
Fujitsu COBOL Sub-Foro dedicado a Compiladores e IDE-s de Fujitsu.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Lectura del ultimo registro jmeza PowerCOBOL (ActiveX, v4 - v11) 4 5 de febrero de 2018 03:13
[Información] Variar Tamaño de registro Gatomalo RM/COBOL 4 21 de noviembre de 2017 00:34
[Sintaxis] Uso de COMP-6 en registro jmeza Fujitsu COBOL 3 17 de junio de 2017 02:52
[Sintaxis] Ultimo registro de una tabla Dasije WinDev 0 11 de agosto de 2016 02:32
[Información] Registro encontrado Dasije WinDev 0 7 de agosto de 2016 20:55
Respuesta
 
Herramientas

  #1
Antiguo 10 de mayo de 2020, 00:33
IDENTIFICATION DIVISION
jmeza
 Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
abril 2017
Curico Chile
23.01.2022 02:12
PROCEDURE DIVISION
Posts: 91
Enviado: 24
Recibido: 3
Soluciones: 0
Reputación: 5
jmeza is an unknown quantity at this point
Predeterminado 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
jmeza no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 10 de mayo de 2020, 12:52
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
24.01.2022 16:48
PROCEDURE DIVISION
Posts: 1.927
Enviado: 638
Recibido: 822
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@jmeza,

Código COBOL:
  1. READ nombre_fichero LAST



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 10 de mayo de 2020, 18:26
IDENTIFICATION DIVISION
jmeza
 Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
abril 2017
Curico Chile
23.01.2022 02:12
PROCEDURE DIVISION
Posts: 91
Enviado: 24
Recibido: 3
Soluciones: 0
Reputación: 5
jmeza is an unknown quantity at this point
Predeterminado

Cita del post de Kuk Ver Mensaje
@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.
jmeza no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 10 de mayo de 2020, 19:09
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 13:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

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.
Roger no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 11 de mayo de 2020, 00:43
IDENTIFICATION DIVISION
JCantero
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros 
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
55 años
23.01.2022 19:32
PROCEDURE DIVISION
Posts: 212
Enviado: 71
Recibido: 151
Soluciones: 10
Reputación: 21
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

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
JCantero no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
jmeza (15 de mayo de 2020)
  #6
Antiguo 11 de mayo de 2020, 09:18
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
24.01.2022 16:48
PROCEDURE DIVISION
Posts: 1.927
Enviado: 638
Recibido: 822
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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

se empieza a notar que no codifico últimamente.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
JCantero (11 de mayo de 2020), jmeza (23 de mayo de 2020)
  #7
Antiguo 11 de mayo de 2020, 11:15
IDENTIFICATION DIVISION
JCantero
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros 
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
55 años
23.01.2022 19:32
PROCEDURE DIVISION
Posts: 212
Enviado: 71
Recibido: 151
Soluciones: 10
Reputación: 21
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

@Kuk,

Cuando empezamos a trabajar con asistentes y copia pega suele pasar.
Jajajaja
JCantero no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 11 de mayo de 2020, 12:22
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
24.01.2022 07:55
PROCEDURE DIVISION
Posts: 610
Enviado: 290
Recibido: 314
Soluciones: 43
Reputación: 32
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de JCantero Ver Mensaje
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 ....
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
JCantero (11 de mayo de 2020)
  #9
Antiguo 11 de mayo de 2020, 12:28
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
24.01.2022 16:48
PROCEDURE DIVISION
Posts: 1.927
Enviado: 638
Recibido: 822
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
JCantero (11 de mayo de 2020)
  #10
Antiguo 11 de mayo de 2020, 14:38
IDENTIFICATION DIVISION
Gusaiello
 Forero
Concurso: Segundo puesto: Ganador/a del Segundo puesto en un concurso - Razón: Generador de código QR encriptado  Activista del Foro: Activista del Foro - Razón: Por aportar ejecrcicios para los novatos 
ENVIRONMENT DIVISION
Avatar de Gusaiello
DATA DIVISION
febrero 2015
Quilmes, Buenos Aires
66 años
24.01.2022 12:42
PROCEDURE DIVISION
Posts: 162
Enviado: 74
Recibido: 110
Soluciones: 7
Reputación: 17
Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road
Predeterminado

Cita del post de JCantero Ver Mensaje
@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.
Gusaiello no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
JCantero (11 de mayo de 2020)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 17:28.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.