Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > COBOL - General
COBOL - General Discusiones de temática general sobre el lenguaje COBOL y todo lo relacionado con él.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Recuperar proyecto dañado y ejecucion en red Roger PowerCOBOL (ActiveX, v4 - v11) 1 14 de abril de 2015 21:58
Respuesta
 
Herramientas

  #1
Antiguo 30 de mayo de 2020, 01:03
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 13:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputació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
Configuración Recuperar archivo

Amigos tengo un fichero que deseo recuperar ¿podria alguien del foro ayudarme?
esto es la descripción
Código COBOL:
  1. FD  HISTORIA GLOBAL EXTERNAL LABEL RECORD STANDARD.
  2.         01  HISTORIA-REC.
  3.           05 HISTORIA-KEY.
  4.              10 COD-P-HIS PIC 9(6).
  5.              10 COD-M-HIS PIC 9(6).
  6.              10 ANO-HIS PIC 9999.
  7.              10 MES-HIS PIC 99.
  8.              10 DIA-HIS PIC 99.
  9.           05 TEMPERATURA-HIS PIC 9(6)V99.
  10.           05 PESO-HIS PIC 9(6)V99.
  11.           05 F-RES-HIS PIC 9(6)V99.
  12.           05 F-CAR-HIS PIC 9(6)V99.
  13.           05 MUC-HIS   PIC X(15).
  14.           05 INF-HIS   PIC X(150).
  15.           05 CAPILAR-HIS   PIC X(150).
  16.           05 USUARIO-HIS PIC X(35).
  17.           05 LIBRE-HIS PIC X(150).
  18.           05 DATOS-HIS PIC X(5000).
  19.        
  20.          

Código COBOL:
  1. SELECT HISTORIA ASSIGN TO WF-HISTORIA  ORGANIZATION
  2.             INDEXED ACCESS DYNAMIC RECORD KEY HISTORIA-KEY
  3.               LOCK MODE IS AUTOMATIC WITH LOCK ON RECORD
  4.              FILE STATUS IS FS-HISTORIA.
Archivos Adjuntos
Tipo de Archivo: rar HISTORIA.rar (497,7 KB, 41 descargas Quién descargó)
Roger no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 30 de mayo de 2020, 12:17
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
febrero 2015
Alicante
26.11.2021 20:15
PROCEDURE DIVISION
Posts: 605
Enviado: 278
Recibido: 303
Soluciones: 41
Reputación: 31
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

@Roger, un par de cosas, Novedades no es el sitio para poner este tema, por lo que lo muevo de sitio, y la segunda es, creo que tanto yo como el resto de foreros, no entendemos qué es lo que quieres exactamente, un programa para recuperar, ejecutar un recovery ... puedes ser un poco más claro

Gracias y salu2.-
Josber no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 30 de mayo de 2020, 17:42
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 13:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputació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

Si trate de recuperar con el recovery y no pude tal vez porque mi mi maquina esta en 64 bits antes lo hacia con el recovery de rmcobol en 32 bits.
Este es un archivo de generado en powercobol.
Tambien lei que lo recuperan con un archivo secuencial no se como lo hacen.
Roger no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 30 de mayo de 2020, 18:40
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
febrero 2015
Alicante
26.11.2021 20:15
PROCEDURE DIVISION
Posts: 605
Enviado: 278
Recibido: 303
Soluciones: 41
Reputación: 31
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

Cita del post de Roger Ver Mensaje
Tambien lei que lo recuperan con un archivo secuencial no se como lo hacen
Defines un fichero secuencial con el nombre del archivo a recuperar y un tamaño de registro de la suma de los campos a recuperar, lees el archivo estropeado secuencialmente y lo grabas en uno con las mismas características que el estropeado, al terminar, tienes el indexado recuperado.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 31 de mayo de 2020, 17:09
IDENTIFICATION DIVISION
Dasije
 Forero
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
noviembre 2015
Jerez De La Frontera (cádiz)
03.10.2021 21:42
PROCEDURE DIVISION
Posts: 182
Enviado: 1
Recibido: 79
Soluciones: 7
Reputación: 14
Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road
Predeterminado
2 usuarios han marcado este post como "Solución"

Usa el emulador DOSBox, para ejecutar programas en MS-DOS en plataformas en 64 bits.

En ese caso debe usar el recover2 de RMCOBOL para extraer la información, había uno para pequeños y grandes tamaños de archivos, usa el que te corresponda.

Desde COBFUT32, una herramienta que incluye en NetCOBOL, existe también la posibilidad de hacerlo como se hace en recover2 de RMCOBOL.


Empresa de desarrollo de aplicaciones en COBOL.

DASIJE INFORMATICA, S.L.
C/ TOMAS BRETON 20
11406 JEREZ DE LA FRONTERA
CADIZ

Teléfono : 956 11 21 11
Web: http://www.dasije.es / DASIJE INFORMATICA
E-m@il: clientes(@)dasije.es
Dasije no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Roger (31 de mayo de 2020)
  #6
Antiguo 31 de mayo de 2020, 18:30
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 13:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputació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
Configuración

@Dasije me salvaste la vida, pude lograr recuperar el archivo con COBFUT32, una herramienta que incluye en NetCOBOL Gracias.
Roger 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 09:35.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.