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 > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Compilación fallida al copiar proyecto a otro PC Lecterman PowerCOBOL (ActiveX, v4 - v11) 7 9 de junio de 2021 14:05
[Sintaxis] Lectura archivo secuencial Gatomalo PowerCOBOL V3L10 (Win32) 11 28 de agosto de 2018 19:21
[Componente] Generador de hash (Base64 u otro) Joseg PowerCOBOL (ActiveX, v4 - v11) 18 14 de julio de 2018 15:34
[Componente] Conectarse a Oracle (vía ODBC u otro) gymasociados AcuCobol 1 29 de abril de 2018 17:39
[Sintaxis] Cancelar proceso en bucle desde otro Form Fito PowerCOBOL (ActiveX, v4 - v11) 2 28 de agosto de 2017 23:58
Respuesta
 
Herramientas

  #1
Antiguo 5 de julio de 2021, 22:58
IDENTIFICATION DIVISION
moraber
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de moraber
DATA DIVISION
enero 2018
Bogotá
26.07.2021 18:17
PROCEDURE DIVISION
Posts: 5
Enviado: 1
Recibido: 0
Soluiones: 0
Reputación: 0
moraber is an unknown quantity at this point
Predeterminado COPIAR UN FICHERO SECUENCIAL EN OTRO

gracias, algun programado que por favor me pueda ayudar como leer un archivo secuencial e ir grabandolo en otro..
moraber no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 6 de julio de 2021, 10:10
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
31.07.2021 17:38
PROCEDURE DIVISION
Posts: 591
Enviado: 269
Recibido: 289
Soluiones: 38
Reputación: 29
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

Hola @moraber,

A ver, es de lo más sencillo, vamos a suponer que el fichero de origen se llama FICHERO1 y su estructura a NIVEL 01 se llama 01 REG-FIC1 y que el fichero destino, se llama FICHERO2 y su estructura a NIVEL 01 se llama 01 REG-FIC2

Código COBOL:
  1. .
  2. .
  3. .
  4. WORKING-STORAGE SECTION.
  5. 01  FLAG                         PIC 9 VALUE 0.
  6. PROCEDURE DIVISION.
  7. ABRIR-FICHEROS.
  8.      OPEN INPUT FICHERO1
  9.                 OUTPUT FICEHRO2.
  10. CONTINUO.
  11.      MOVE 0 TO FLAG.
  12.      PERFORM LEER
  13.                         UNTIL FLAG = 1
  14.       END-PERFORM.
  15.       CLOSE FICHERO1 FICHERO2.
  16.       STOP RUN.
  17. LEER.
  18.      READ FICHERO
  19.                 NEXT RECORD AT END
  20.                                                  MOVE 1 TO FLAG
  21.                                            NOT AT END
  22.                                                  MOVE REG-FIC1 TO REG-FIC2
  23.                                                  WRITE  FICHERO2 FROM REG-FIC2
  24.       END-READ.

Con eso debería de funcionarte

Un salu2.-
Josber 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 04:49.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.