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

[Adrianeloy]

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?

[Josber]

Yo tengo el siguiente código y funciona perfectamente


MOVE "Text" OF CAMPO1 TO ARTCOD.

START ARTICULOS KEY LESS THAN XACOD
INVALID KEY
INVOKE POW-SELF "Alarm"
ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
INVOKE POW-SELF "DisplayMessage"
USING "*ERROR: Principio de fichero ..."
WS-ATENCION
ESTILO
END-INVOKE
INVOKE BTANT "SetFocus"
EXIT PROGRAM
END-START.

READ ARTICULOS PREVIOUS RECORD WITH NO LOCK
AT END
INVOKE POW-SELF "Alarm"
ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
INVOKE POW-SELF "DisplayMessage"
USING "*ERROR: Principio de fichero ..."
WS-ATENCION
ESTILO
END-INVOKE
INVOKE BTANT "SetFocus"
EXIT PROGRAM
NOT AT END
MOVE ARTCOD TO "Text" OF CAMPO1
CALL "EXISTE"
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.-

[Adrianeloy]

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

[Josber]

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:


000001 SELECT OPTIONAL MENSAJES *> FICHERO DE MENSAJES
000002 ASSIGN TO FILEMEN
000003
000004 ORGANIZATION IS INDEXED
000005 ACCESS MODE IS DYNAMIC
000006 RECORD KEY IS MENCOD
000010 ALTERNATE KEY IS MENFEC WITH DUPLICATES
000020 ALTERNATE KEY IS MENREC WITH DUPLICATES
000999 LOCK IS AUTOMATIC WITH LOCK ON RECORD
001000 FILE STATUS IS STMEN.


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

Un saludo.-

[Adrianeloy]

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