Resultados 1 al 2 de 2

Tema: COPIAR UN FICHERO SECUENCIAL EN OTRO

  1. #1
      Acabo de llegar...
    m

    Registrado
    enero de 2018
    Ubicación
    Bogotá
    Mensajes
    5
    Última visita
    11.10.2021

    Agradecimientos
     
    Recibidos
    0
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    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..

    0 Not allowed!

  2. #2
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    652
    Última visita
    Ayer a las 20:32

    Agradecimientos
     
    Recibidos
    350
    Enviados
    311

    Citaciones y menciones
     
    Mentioned
    11 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    35
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    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

    COBOL Código:
    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.-

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Compilador] Compilación fallida al copiar proyecto a otro PC
    Por Lecterman en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 7
    Último Mensaje: 09.06.2021, 15:05
  2. [Sintaxis] Lectura archivo secuencial
    Por Gatomalo en el foro PowerCOBOL V3L10 (Win32)
    Respuestas: 11
    Último Mensaje: 28.08.2018, 20:21
  3. [Componente] Generador de hash (Base64 u otro)
    Por Joseg en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 18
    Último Mensaje: 14.07.2018, 16:34
  4. [Componente] Conectarse a Oracle (vía ODBC u otro)
    Por gymasociados en el foro AcuCobol
    Respuestas: 1
    Último Mensaje: 29.04.2018, 18:39
  5. [Sintaxis] Cancelar proceso en bucle desde otro Form
    Por Fito en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 2
    Último Mensaje: 29.08.2017, 00:58

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •