Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL V3L10 (Win32)
PowerCOBOL V3L10 (Win32) IDE Freeware compatible con Windows 7/8/10
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
"Aquí no hay quién viva" cumple 15 años Kuk Espacio "Offtop" 0 8 de marzo de 2018 09:36
[Sintaxis] Error MOVE "Parent" de un nodo "Root" en TreeView dmosca PowerCOBOL (ActiveX, v4 - v11) 1 23 de agosto de 2017 07:47
[Sintaxis] Problema en el evento "Return" en TextBox (CmEdit) dmosca PowerCOBOL (ActiveX, v4 - v11) 8 3 de agosto de 2017 22:40
[Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" Kuk Cocina PowerCOBOL 20 29 de julio de 2017 22:33
[Sintaxis] Imprimir PDF desde DOS (CALL "SYSTEM") Roger RM/COBOL 1 1 de julio de 2016 15:40
Respuesta
 
Herramientas

  #1
Antiguo 11 de abril de 2016, 19:41
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/rosario
Edad52 años
Última Actividad30.05.2018 17:33
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 30
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Question NO LOCK en "Read ... previous record" no anda?

Al leer un fichero indexado avanzando/retrocediendo registros (luego de START)...

READ ... NEXT RECORD NO LOCK ... me funciona a la perfeccion, pero la instruccion:

READ ... PREVIOUS RECORD NO LOCK me muestra solo el primer registro leido, y no retrocede de ninguna manera.

Pero si le quito la opcion "NO LOCK" funciona a la perfección.
Este inconveniente lo tengo desde hace mucho tiempo, pero necesitaria que el previous record tambien me mantuviera el registro sin bloquear.
Estaré haciendo algo mal o esa opcion no funciona con PREVIUS RECORD?
Adrianeloy no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 11 de abril de 2016, 19:50
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad19.06.2019 19:33
PROCEDURE DIVISION
PostsPosts: 455
Ha dicho GraciasEnviado: 180
Ha recibido agradecimientosRecibido: 197
Mejores respuestasSoluiones: 29
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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

Yo tengo el siguiente código y funciona perfectamente

Código COBOL:
  1.      MOVE "Text" OF CAMPO1 TO ARTCOD.
  2.    
  3.      START ARTICULOS KEY LESS THAN XACOD
  4.            INVALID KEY
  5.                    INVOKE POW-SELF "Alarm"
  6.                    ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
  7.                    INVOKE POW-SELF "DisplayMessage"
  8.                           USING "*ERROR: Principio de fichero ..."
  9.                                 WS-ATENCION
  10.                                 ESTILO
  11.                    END-INVOKE
  12.                    INVOKE BTANT "SetFocus"
  13.                    EXIT PROGRAM
  14.      END-START.
  15.      
  16.      READ ARTICULOS PREVIOUS RECORD WITH NO LOCK
  17.           AT END
  18.              INVOKE POW-SELF "Alarm"
  19.              ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
  20.              INVOKE POW-SELF "DisplayMessage"
  21.                     USING "*ERROR: Principio de fichero ..."
  22.                           WS-ATENCION
  23.                           ESTILO
  24.              END-INVOKE
  25.              INVOKE BTANT "SetFocus"
  26.              EXIT PROGRAM
  27.           NOT AT END
  28.               MOVE ARTCOD TO "Text" OF CAMPO1
  29.               CALL "EXISTE"
  30.      END-READ.

Lo único que se me ocurre, es que no hagas correctamente el START, y en vez de LESS THAN, pongas GREATER THAN ...

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 12 de abril de 2016, 13:26
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/rosario
Edad52 años
Última Actividad30.05.2018 17:33
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 30
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Predeterminado

Josber, El Start funciona a la perfeccion y el programa funciona perfectamente cuando le quito la opcion "NO LOCK" a la sentencia READ PREVIOUS RECORD.

Pero se la agrego, compilo y ejecuto y no retrocede ningun registro, solo me muestra el primer registro hallado!
Me falto decir que funciona en Powercobol V3.
Voy a probarlo en Netcobol 9, a ver si hace lo mismo...
Adrianeloy no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 12 de abril de 2016, 15:33
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad19.06.2019 19:33
PROCEDURE DIVISION
PostsPosts: 455
Ha dicho GraciasEnviado: 180
Ha recibido agradecimientosRecibido: 197
Mejores respuestasSoluiones: 29
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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

Pues o es un fallo de la versión 3 o no se me ocurre qiue puede pasar, yo en FILE-CONTROL, inserto todos los ficheros con más o menos la misma estructura:

Código COBOL:
  1. 000001     SELECT OPTIONAL MENSAJES     *> FICHERO DE MENSAJES
  2. 000002         ASSIGN TO FILEMEN
  3. 000003
  4. 000004         ORGANIZATION IS INDEXED
  5. 000005         ACCESS MODE IS DYNAMIC
  6. 000006         RECORD KEY IS MENCOD
  7. 000010         ALTERNATE KEY IS MENFEC WITH DUPLICATES
  8. 000020         ALTERNATE KEY IS MENREC WITH DUPLICATES
  9. 000999         LOCK IS AUTOMATIC WITH LOCK ON RECORD
  10. 001000         FILE STATUS IS STMEN.

Prueba a hacer la estructura más o menos así y nos comentas algo ...

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Adrianeloy (13 de abril de 2016)
  #5
Antiguo 13 de abril de 2016, 13:59
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/rosario
Edad52 años
Última Actividad30.05.2018 17:33
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 30
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Josber, Acabo de probar lo mismo en Netcobol V9 y el "NO LOCK" en Read Previous Record funciona perfectamente!
Asi que lamentablemente, es un error que tiene el Powercobol V3.
Una verdadera lastima...
Adrianeloy no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
no lock , previous , read


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 04:21.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.