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 > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Respuesta
 
Herramientas

  #1
Antiguo 18 de marzo de 2015, 18:00
IDENTIFICATION DIVISION
joaoalpande
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de joaoalpande
DATA DIVISION
Forero desde (Registrado)marzo 2015
Portugal
Ubicación Porto
Edad45 años
Última Actividad12.08.2015 15:18
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
joaoalpande is on a distinguished road
Predeterminado Urgente: Status 98,9 RM-COBOL

Boa Tarde ,

Estou com um problema grave num cliente , todas as cópias de segurança estão a dar erro status 98,6 , uso RM-COBOL , utilizo o recovery para recuperar e diz :

File: COCTA1 - Bad block overhead in block 101

Recovery failed. A portion of the data records from index file COCTA1 may
exist in the data recovery file specified for recover2.
See the Utilities Appendix of the RM/COBOL-85 User's Guide
for more information.

Alguém pode ajudar-me?

Cumprimentos
João Alpande

Skype: joaoalpande
joaoalpande no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 18 de marzo de 2015, 18:38
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad36 años
Última Actividad14.05.2021 08:50
PROCEDURE DIVISION
PostsPosts: 1.735
Ha dicho GraciasEnviado: 540
Ha recibido agradecimientosRecibido: 711
Mejores respuestasSoluiones: 93
ReputaciónReputació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

joaoalpande, lamentablemente no conozco RM. Pero, a mi modo de ver podria ser fallo del Run-Time (por una actualizacion de Windows o (des)instalacion de algo).

Puede que diga tonterias, pero a lo mejor te doy una idea:
  • Has probado repetir el proceso en otro PC?
  • Has probado reinstalar el Run-Time?



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 18 de marzo de 2015, 20:08
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad14.05.2021 08:21
PROCEDURE DIVISION
PostsPosts: 577
Ha dicho GraciasEnviado: 266
Ha recibido agradecimientosRecibido: 282
Mejores respuestasSoluiones: 37
ReputaciónReputación: 28
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

joaoalpande, el Status 98, significa índice estropeado, por mi experiencia con RM/85, de hace muchos años, no se podían recuperar los índices, la solución más sencilla que yo veo es que en un programa aparte, crees el mismo fichero pero con organización secuencial, lo lees y lo pasas a un nuevo fichero indexado, yo lo tuve que hacer alguna vez y funcionaba perfectamente.

Suerte y
Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 19 de marzo de 2015, 03:42
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad04.02.2021 12:03
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 80
Mejores respuestasSoluiones: 5
ReputaciónReputació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

Intenta con el recovery generalmente el status 98 es un archivo abierto
RECOVERY.BAT ARCHIVO.DAT NUEVO.DAT
Creo asi era la sintaxis
esto es lo que hace

Código:
@ECHO OFF
CLS
IF "%1" == "" GOTO ERR1
IF "%2" == "" GOTO ERR1
IF NOT EXIST %1 GOTO ERR2
ECHO Attempt to recover '%1' in place:
PAUSE
RECOVER1 %1 %2
IF ERRORLEVEL 2 GOTO ERR3
IF ERRORLEVEL 1 GOTO REC2
CLS
ECHO Index file '%1' recovered in place.  Records with invalid duplicate keys
ECHO  can be found in '%2'.
GOTO ENDIT
:REC2
ECHO Attempt to extract data records from '%1' (file structure will
ECHO  be retrieved from the original index file):
PAUSE
RUNCOBOL RECOVER2 L=RECOVER2 K A='%1,%3,NOSUB'
IF NOT ERRORLEVEL 1 GOTO GOOD2
ECHO Attempt to extract data records from '%1' (file structure must
ECHO  be supplied by user):
PAUSE
RUNCOBOL RECOVER2 L=RECOVER2 K A='%1,%3,SUB'
IF ERRORLEVEL 1 GOTO ERR4
:GOOD2
CLS
ECHO The data recovery file specified for RECOVER2 contains the data records
ECHO  from index file '%1'.
ECHO See RM/COBOL-85 User's Guide, Appendix I, Utilities.
GOTO ENDIT
:ERR1
ECHO Usage: 	RECOVERY index-file-name drop-file-name [data-recovery-file-name]
GOTO ENDIT
:ERR2
ECHO File '%1' does not exist - execution terminated
GOTO ENDIT
:ERR3
CLS
ECHO Recovery process canceled by operator.
GOTO ENDIT
:ERR4
ECHO Recovery failed.  A portion of the data records from index file '%1' may
ECHO  exist in the data recovery file specified for RECOVER2.
ECHO See RM/COBOL-85 User's Guide, Appendix I, Utilities.
:ENDIT
Roger no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 19 de marzo de 2015, 16:24
IDENTIFICATION DIVISION
RMontoya
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de RMontoya
DATA DIVISION
Forero desde (Registrado)febrero 2015
México
Ubicación Ensenada B.c.
Última Actividad31.03.2021 18:09
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 7
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
RMontoya is on a distinguished road
Predeterminado

Con el recover1.exe lo corriges.
RECOVER1.exe archivo xxxx

archivo sera el nombre de tu archivo con todo y extencion
y las xxxx sera cualquier nombre donde gravara lo no recuperado.

Si tienes RM version 5 o mayor puedes usar los recover1.exe de versiones
mas adelantadas como version 7 / 11.
RMontoya no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 20 de marzo de 2015, 00:08
IDENTIFICATION DIVISION
Alarpe
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Alarpe
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Zaragoza
Última Actividad12.04.2020 17:58
PROCEDURE DIVISION
PostsPosts: 7
Ha dicho GraciasEnviado: 4
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Alarpe is on a distinguished road
Predeterminado

¿que versión de cobol usas?

con mi mal ingles, he medio entendido que el problema que tienes es que tienes unos registros del fichero origen en el fichero destino.

creo que has definido mal el indice en el fichero origen y da como error un duplicado de claves.

no se si usar indexación en un fichero o en dos ( fichero dat/ fichero dat + fichero inx) yo empleé un compilador con la segunda opción. cuando tenía un error 98, leía el fichero dat como archivo de acceso directo en modo secuencial y generaba de nuevo un fichero indexado.

Última edición por Alarpe fecha: 20 de marzo de 2015 a las 00:13. Razón: añadir información adicional.
Alarpe no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 24 de marzo de 2015, 14:52
IDENTIFICATION DIVISION
joaoalpande
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de joaoalpande
DATA DIVISION
Forero desde (Registrado)marzo 2015
Portugal
Ubicación Porto
Edad45 años
Última Actividad12.08.2015 15:18
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
joaoalpande is on a distinguished road
Predeterminado

ola , o arquivo está corrompido, o Recovery não recupera , fiz programa para ler sequencial e não consegue recuperar o arquivo , outra solução?
uso RM-COBOL - 85 VERSION 6.09 FOR UNIX
Skype: joaoalpande

Gracias
João ALpande
joaoalpande no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 24 de marzo de 2015, 15:13
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad14.05.2021 08:21
PROCEDURE DIVISION
PostsPosts: 577
Ha dicho GraciasEnviado: 266
Ha recibido agradecimientosRecibido: 282
Mejores respuestasSoluiones: 37
ReputaciónReputación: 28
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

joaoalpande, yo tengo el compilador de RM-Cobol/85 ver. 5.36.00 para MS-Dos, si quieres enviarme el archivo estropeado y la estructura de la DATA DIVISION, puedo probar a ver si con esa versión se puede hacer algo.

Código:
Mi correo es josber999@hotmail.com
Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 24 de marzo de 2015, 15:34
IDENTIFICATION DIVISION
joaoalpande
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de joaoalpande
DATA DIVISION
Forero desde (Registrado)marzo 2015
Portugal
Ubicación Porto
Edad45 años
Última Actividad12.08.2015 15:18
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
joaoalpande is on a distinguished road
Predeterminado

Enviei

Gracias
joaoalpande no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 24 de marzo de 2015, 17:17
IDENTIFICATION DIVISION
RMontoya
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de RMontoya
DATA DIVISION
Forero desde (Registrado)febrero 2015
México
Ubicación Ensenada B.c.
Última Actividad31.03.2021 18:09
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 7
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
RMontoya is on a distinguished road
Post

Cita del post de joaoalpande Ver Mensaje
Enviei

Gracias
Si es necesario enviame tambien el archivo dañado
para ver si con el RMCOBOL 7.0 se puede recuperar.

Saludos.
jrmontoyaa@gmail.com
RMontoya no ha iniciado sesión   Responder Con Cita
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 14:19.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.