Cobol - Bloqueos de Archivos con Acucobol

Estimado Foro:
Tengo un problema con sistemas desarrollados en Acucobol, el problema es que indistintamente del sistema operativo y de la red el sistema lanza errores aleatorios como error 98.02, 99.., etc, tengo entendido que el primero corresponde a rotura de indices y con un rebuild se soluciona, el segundo corresponde a archivos bloqueados, y reiniciando las pc o bien que los usuarios salgan del sistema se soluciona, quisiera saber si hay alguna forma de solucionarlo ya que la empresa donde trabajo es muy grande y esos errores aparecen frecuentemente.
Gracias y Saludos

Yo he trabajado siempre con RMCobol y en redes. Cuando un archivo se abre
en I-O siempre que se lee un registro, el mismo queda (bloqueado) tomado hasta que se haga un REWRITE o bien se lea otro registro del mismo archivo en la misma terminal.
Si no se quiere que el registro quede tomado se debe abrir el archivo de
INPUT, pero no se puede modificar.
Otra opción en RM en hacer READ WITH NO LOCK, pero se debe usar con
cuidado porque dos usuarios pueden estar modificando el mismo registro
al mismo tiempo.
Si se usan Declarativas, automáticamente el sistema puede detectar y
avisar que el registro está en uso, pero de esa forma hay detectar el
FILE STATUS y si es "99" volver a leer, previo a establecer una demora.

P.Ej.:

LEER.
READ ARCHIVO INVALID KEY.......

IF ESTADO-W = "99"
PERFORM DEMORA
GO TO LEER.

Si el tema no es tratado por un programador, lo que puedo aconsejar es que
no se usen los programas que modifican a modo de consulta. Y si no se
se dispone de dichas consultas hacerlas crear, con lo cual se evitará
todos estos problemas.
En lo posible no dejar programas que modifican
datos pendientes. Entrar y salir rapidamente de los mismos.
Esto es solo orientativo. Habría que ver como y donde se producen los errores
y como solucionarlos.

La opcion es abrir los ficheros i-o with no lock
Leer el registro y bloquearlo si hace falta al leerlo
Read Fichero with lock
Modificar el registro
y cerrar el fichero.