Cobol Foro
Registrarse
Temas de Hoy
Enlaces
Registrarse
Preguntas Frecuentes
Lista de Usuarios
Calendario
Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Micro Focus COBOL RM/COBOL
Actualizar esta página [Duda] COPIAR UN FICHERO SECUENCIAL EN OTRO
RM/COBOL IDE y Compilador RM/COBOL
 
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 15:05
[Sintaxis] Lectura archivo secuencial Gatomalo PowerCOBOL v3 (V3L10, Win32) 11 28 de agosto de 2018 20:21
[Componente] Generador de hash (Base64 u otro) Joseg PowerCOBOL (ActiveX, v4 - v11) 18 14 de julio de 2018 16:34
[Sintaxis] Copiar archivos en RED LAN Roger PowerCOBOL (ActiveX, v4 - v11) 6 27 de mayo de 2017 09:38
[Sintaxis] Copiar al portapapeles Josber PowerCOBOL (ActiveX, v4 - v11) 12 22 de diciembre de 2015 22:37

Respuesta

  #1
Antiguo 5 de julio de 2021, 23:58
moraber
Forero Junior
Última Actividad 07.05.2026 17:03
Posts Posts: 5
Likes enviados Enviados: 1
Likes recibidos Recibidos: 0
Predeterminado COPIAR UN FICHERO SECUENCIAL EN OTRO
0
Likes

None...

Inactivo Inactivo
gracias, algun programado que por favor me pueda ayudar como leer un archivo secuencial e ir grabandolo en otro..
moraber is offline   Responder Con Cita
  #2
Antiguo 6 de julio de 2021, 11:10
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 20.09.2026 12:17
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492
Predeterminado
0
Likes

None...

Inactivo Inactivo
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 is offline   Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »

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
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:41.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.

Top
 Archivo - Cobol Foro
Webdesign by: vbdesigns.de
Contactar con Nosotros - Cobol Foro
Top