Resultados 1 al 5 de 5

Tema: NO LOCK en "Read ... previous record" no anda?

  1. #1
      Junior
    Avatar de Adrianeloy

    Registrado
    marzo de 2015
    Ubicación
    Santa Fe/rosario
    Edad
    56
    Mensajes
    39
    Última visita
    24.11.2020

    Agradecimientos
     
    Recibidos
    31
    Enviados
    30

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    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?

    0 Not allowed!

  2. #2
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    738
    Última visita
    Ayer a las 21:52

    Agradecimientos
     
    Recibidos
    405
    Enviados
    333

    Citaciones y menciones
     
    Mentioned
    65 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    35
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Yo tengo el siguiente código y funciona perfectamente

    COBOL Código:
    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.-

    0 Not allowed!

  3. #3
      Junior
    Avatar de Adrianeloy

    Registrado
    marzo de 2015
    Ubicación
    Santa Fe/rosario
    Edad
    56
    Mensajes
    39
    Última visita
    24.11.2020

    Agradecimientos
     
    Recibidos
    31
    Enviados
    30

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    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...

    0 Not allowed!

  4. #4
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    738
    Última visita
    Ayer a las 21:52

    Agradecimientos
     
    Recibidos
    405
    Enviados
    333

    Citaciones y menciones
     
    Mentioned
    65 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    35
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    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:

    COBOL Código:
    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.-

    0 Not allowed!

  5. #5
      Junior
    Avatar de Adrianeloy

    Registrado
    marzo de 2015
    Ubicación
    Santa Fe/rosario
    Edad
    56
    Mensajes
    39
    Última visita
    24.11.2020

    Agradecimientos
     
    Recibidos
    31
    Enviados
    30

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado
    1 members found this post helpful.

    @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...

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. "Aquí no hay quién viva" cumple 15 años
    Por Kuk en el foro Espacio "Offtop"
    Respuestas: 0
    Último Mensaje: 08.03.2018, 11:36
  2. [Sintaxis] Error MOVE "Parent" de un nodo "Root" en TreeView
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 23.08.2017, 09:47
  3. [Sintaxis] Problema en el evento "Return" en TextBox (CmEdit)
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 8
    Último Mensaje: 04.08.2017, 00:40
  4. [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary"
    Por Kuk en el foro Cocina PowerCOBOL
    Respuestas: 20
    Último Mensaje: 30.07.2017, 00:33
  5. [Sintaxis] Imprimir PDF desde DOS (CALL "SYSTEM")
    Por Roger en el foro RM/COBOL
    Respuestas: 1
    Último Mensaje: 01.07.2016, 17:40

Etiquetas para este Tema

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •