Pasar CSV a texto plano

theezraak · 09.12.2019 11:12

Buenos días, tengo un ejercicio de practica, y tengo que pasar de CSV a texto planto, con ciertos requisitos (2 campos ordenados en ascendente).
Y me da 1 error mi programa que es al abrir el fichero, pero no sé que más hacer.
Agradecería que alguien me lo explicara, un saludo.

Os dejo aquí el programita:

Código COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CJ4.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
            SELECT FICH1 ASSIGN TO 'APELLIDOS.csv'
            ORGANIZATION IS LINE SEQUENTIAL
            ACCESS MODE IS SEQUENTIAL.
            SELECT FICH2 ASSIGN TO 'FICH2.DAT'
            ORGANIZATION IS LINE SEQUENTIAL.
            SELECT SORT-WORK ASSIGN TO SORTWORK.
       DATA DIVISION.
       FILE SECTION.
 
       FD   FICH1
            RECORD CONTAINS 38 CHARACTERS.
 
       01 DATOS.
           05 IDENTIFICADOR        PIC 9(07).
           05 FILLER               PIC X.
           05 APELLIDO             PIC X(20).
           05 FILLER               PIC X.
           05 REGION               PIC X(09).
 
       FD   FICH2
            RECORD CONTAINS 38 CHARACTERS.
 
       01 DATOS-2.
           05 IDENTIFICADOR-2      PIC 9(07).
           05 FILLER               PIC X.
           05 APELLIDO-2           PIC X(20).
           05 FILLER               PIC X.
           05 REGION-2             PIC X(09).
 
       SD  SORT-WORK
            RECORD CONTAINS  38 CHARACTERS.
 
       01  SORT-WORK-RECORD.
 
           05 SW-APELLIDO          PIC 9(07).
           05 FILLER               PIC X.
           05 SW-REGION            PIC X(09).
           05 FILLER               PIC X(21).
 
 
       WORKING-STORAGE SECTION.
       01   LINEA.
           02   LIDEN              PIC 9(07)BB.
           02   LAPELL             PIC X(20)BB.
           02   LREG               PIC X(09).
       01   OP                     PIC X.
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
 
           PERFORM INICIALIZAR-FICHEROS
           SORT SORT-WORK
           ON ASCENDING KEY APELLIDO
           ON ASCENDING KEY REGION
           INPUT PROCEDURE CARGAR
           OUTPUT PROCEDURE SALIDA
               .
      *----------------------------------------------------------------*
       INICIALIZAR-FICHEROS.
           OPEN INPUT  FICH1
           OPEN OUTPUT FICH2
               .
       INICIALIZAR-FICHEROS-FIN.
           EXIT.
      *----------------------------------------------------------------*
       CARGAR.
           OPEN INPUT FICH1
           PERFORM LEER
           PERFORM FIN-FICH
               .
       CARGAR-FIN.
           EXIT.
      *----------------------------------------------------------------*
       LEER.
               READ FICH1 NEXT RECORD AT END GO FIN-FICH.
               MOVE APELLIDO TO SW-APELLIDO.
               MOVE REGION   TO SW-REGION.
               RELEASE SORT-WORK-RECORD.
       LEER-FIN.
           EXIT.
      *----------------------------------------------------------------*
       FIN-FICH.
           CLOSE FICH1.
       FIN-FICH-FIN.
           EXIT.
      *----------------------------------------------------------------*
       SALIDA.
           PERFORM INICIAR-SALIDA.
           PERFORM FIN-SALIDA.
       SALIDA-FIN.
           EXIT.
      *----------------------------------------------------------------* 
       INICIAR-SALIDA.
           RETURN SORT-WORK AT END GO FIN-SALIDA.
           MOVE SW-APELLIDO TO APELLIDO-2.
           MOVE SW-REGION   TO REGION-2.
           DISPLAY LINEA LINE 20.
           ACCEPT OP LINE 21.
           GO INICIAR-SALIDA.
       INICIAR-SALIDA-FIN.
           EXIT.
       
      *----------------------------------------------------------------*  
       FIN-SALIDA.
           EXIT.
       FIN-SALIDA-FIN.
           EXIT.
      *----------------------------------------------------------------*
            CLOSE FICH1.
            CLOSE FICH2.
 
            STOP RUN.
       END PROGRAM CJ4.

Kuk · 19.09.2026 20:11

theezraak, qué error te da exactamente? Si no te sale cual es, usa el FILE-STATUS y haz un DISPLAY para ver qué ocurre.

Además, para qué mantienes los FILLER en el fichero de salida? Si estás pasando a texto plano, no son necesarios.

theezraak · 09.12.2019 11:12

Citación del post de Kuk

❞

theezraak, qué error te da exactamente? Si no te sale cual es, usa el FILE-STATUS y haz un DISPLAY para ver qué ocurre.

Además, para qué mantienes los FILLER en el fichero de salida? Si estás pasando a texto plano, no son necesarios.

Cabe destacar, que CSV es erroneo, es un DAT con formato CSV. Aún así me da error.
De pongo el error que me da:

Código:

Sort-merge key is not defined in record associated with sort

Kuk · 19.09.2026 20:11

Citación del post de theezraak

❞

CSV es erroneo, es un DAT con formato CSV. Aún así me da error.

No me estoy enterando. CSV es simplemente una extensión de fichero. El formato en sí es texto plano, donde los datos van separados por punto y coma. No es como los doc/docx (que no son texto plano). Así que no entiendo por qué dices que es erróneo.

Por cierto, los párrafos XXXXX-FIN no sirven de nada si no haces PERFORM THRU. El THRU no es recomendado, por lo tanto los puedes suprimir (en vez de añadir los THRU XXXXX-FIN).

En realidad, yo nunca he usado el SORT interno, pero me parece que error viene de tus párrafos CARGAR y SALIDA. Son párrafos que están en un bucle implícito, no puede haber OPEN ni CLOSE dentro. Sólo hay que dejar las instrucciones que quieres que se ejecuten con cada iteración de lectura/escritura.

**Hrmcobol** · 01.03.2022 02:59

Hola Amigo, este código lee un archivo y graba otro ordenado por dos campos. Saque y cambie algunas cosas, no recuerdo bien como era el tema del sort interno, pero si compila debería funcionar.

Coboleros si leen esto revisar por favor. Saludos a todos

Código COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CJ4.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
 
            SELECT FICH1     ASSIGN TO 'FICH1.CSV'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT FICH2     ASSIGN TO 'FICH2.DAT'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT SORT-WORK ASSIGN TO SORTWORK.
 
       DATA DIVISION.
       FILE SECTION.
 
       FD  FICH1
           RECORD CONTAINS 38 CHARACTERS.
       01  F1-FICH1.
           05 F1-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F1-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F1-REGION            PIC X(09).
 
       FD  FICH2
           RECORD CONTAINS 38 CHARACTERS.
       01  F2-FICH2.
           05 F2-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F2-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F2-REGION            PIC X(09).
 
       SD  SORT-WORK
            RECORD CONTAINS  38 CHARACTERS.
       01  SORT-WORK-RECORD.
           05 SW-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 SW-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 SW-REGION            PIC X(09).
 
 
       WORKING-STORAGE SECTION.
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE SECTION.
 
           PERFORM INICIALIZAR-FICHEROS
           SORT SORT-WORK
                ON ASCENDING KEY SW-APELLIDO
                ON ASCENDING KEY SW-REGION
           INPUT  PROCEDURE CARGAR   *> Me parece que los Procedure deben ser Section
           OUTPUT PROCEDURE SALIDA.  *> y una section termina en otra section
           
           STOP RUN.
      *----------------------------------------------------------------* 
       END PROGRAM CJ4.
      *----------------------------------------------------------------* 
       CARGAR SECTION.
           OPEN INPUT FICH1
           PERFORM LEER THRU LEER-FIN
           CLOSE FICH1.
       CARGAR-FIN SECTION.
           EXIT.
      *----------------------------------------------------------------*
       LEER.
           READ FICH1 NEXT RECORD AT END GO LEER-FIN.
           MOVE F1-IDENTIFICADOR TO SW-IDENTIFICADOR.
           MOVE F1-APELLIDO      TO SW-APELLIDO.
           MOVE F1-REGION        TO SW-REGION.
           RELEASE SORT-WORK-RECORD.
           GO TO LEER.
       LEER-FIN.
           EXIT.
      *----------------------------------------------------------------*
       SALIDA SECTION.
           OPEN OUTPUT FICH2
           PERFORM INICIAR-SALIDA.
           CLOSE FICH2
       SALIDA-FIN SECTION.
           EXIT.
      *----------------------------------------------------------------* 
       INICIAR-SALIDA.
           RETURN SORT-WORK AT END GO INICIAR-SALIDA-FIN.
           MOVE SW-IDENTIFICADOR TO F2-IDENTIFICADOR.
           MOVE SW-APELLIDO      TO F2-APELLIDO.
           MOVE SW-REGION        TO F2-REGION.
           WRITE F2-FICH2.
           GO TO INICIAR-SALIDA.
       INICIAR-SALIDA-FIN.
           EXIT.
      *----------------------------------------------------------------*

theezraak · 09.12.2019 11:12

Citación del post de Kuk

❞

No me estoy enterando. CSV es simplemente una extensión de fichero. El formato en sí es texto plano, donde los datos van separados por punto y coma. No es como los doc/docx (que no son texto plano). Así que no entiendo por qué dices que es erróneo.

Por cierto, los párrafos XXXXX-FIN no sirven de nada si no haces PERFORM THRU. El THRU no es recomendado, por lo tanto los puedes suprimir (en vez de añadir los THRU XXXXX-FIN).

En realidad, yo nunca he usado el SORT interno, pero me parece que error viene de tus párrafos CARGAR y SALIDA. Son párrafos que están en un bucle implícito, no puede haber OPEN ni CLOSE dentro. Sólo hay que dejar las instrucciones que quieres que se ejecuten con cada iteración de lectura/escritura.

Por lo que conseguí el viernes, era error mio, no era csv era .dat
Ahora solo me graba 1 registro, poco a poco.

---------- Post añadido : 08:45 ---------- Post anterior : 08:43 ----------

Citación del post de Hrmcobol

❞

Hola Amigo, este código lee un archivo y graba otro ordenado por dos campos. Saque y cambie algunas cosas, no recuerdo bien como era el tema del sort interno, pero si compila debería funcionar.

Coboleros si leen esto revisar por favor. Saludos a todos

Código COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CJ4.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
 
            SELECT FICH1     ASSIGN TO 'FICH1.CSV'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT FICH2     ASSIGN TO 'FICH2.DAT'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT SORT-WORK ASSIGN TO SORTWORK.
 
       DATA DIVISION.
       FILE SECTION.
 
       FD  FICH1
           RECORD CONTAINS 38 CHARACTERS.
       01  F1-FICH1.
           05 F1-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F1-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F1-REGION            PIC X(09).
 
       FD  FICH2
           RECORD CONTAINS 38 CHARACTERS.
       01  F2-FICH2.
           05 F2-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F2-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F2-REGION            PIC X(09).
 
       SD  SORT-WORK
            RECORD CONTAINS  38 CHARACTERS.
       01  SORT-WORK-RECORD.
           05 SW-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 SW-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 SW-REGION            PIC X(09).
 
 
       WORKING-STORAGE SECTION.
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE SECTION.
 
           PERFORM INICIALIZAR-FICHEROS
           SORT SORT-WORK
                ON ASCENDING KEY SW-APELLIDO
                ON ASCENDING KEY SW-REGION
           INPUT  PROCEDURE CARGAR   *> Me parece que los Procedure deben ser Section
           OUTPUT PROCEDURE SALIDA.  *> y una section termina en otra section
           
           STOP RUN.
      *----------------------------------------------------------------* 
       END PROGRAM CJ4.
      *----------------------------------------------------------------* 
       CARGAR SECTION.
           OPEN INPUT FICH1
           PERFORM LEER THRU LEER-FIN
           CLOSE FICH1.
       CARGAR-FIN SECTION.
           EXIT.
      *----------------------------------------------------------------*
       LEER.
           READ FICH1 NEXT RECORD AT END GO LEER-FIN.
           MOVE F1-IDENTIFICADOR TO SW-IDENTIFICADOR.
           MOVE F1-APELLIDO      TO SW-APELLIDO.
           MOVE F1-REGION        TO SW-REGION.
           RELEASE SORT-WORK-RECORD.
           GO TO LEER.
       LEER-FIN.
           EXIT.
      *----------------------------------------------------------------*
       SALIDA SECTION.
           OPEN OUTPUT FICH2
           PERFORM INICIAR-SALIDA.
           CLOSE FICH2
       SALIDA-FIN SECTION.
           EXIT.
      *----------------------------------------------------------------* 
       INICIAR-SALIDA.
           RETURN SORT-WORK AT END GO INICIAR-SALIDA-FIN.
           MOVE SW-IDENTIFICADOR TO F2-IDENTIFICADOR.
           MOVE SW-APELLIDO      TO F2-APELLIDO.
           MOVE SW-REGION        TO F2-REGION.
           WRITE F2-FICH2.
           GO TO INICIAR-SALIDA.
       INICIAR-SALIDA-FIN.
           EXIT.
      *----------------------------------------------------------------*

Hola, gracias por la ayudita. Con ese codigo, y habiendole hecho unas modis, me da error en el Cargar section, es necesario poner SECTION cuando se usa el SORT?
Un saludo!

JCantero · 02.09.2026 00:15

Lo primero: La definicion del fichero para hacer el sort.
o defines la variable sortwork o bien la pones como una constante entre
comillas. Asi:

Código COBOL:

SELECT SORT-WORK ASSIGN TO 'SORTWORK'.

Segundo, quita lo de las "SECTION' no son necesarias. Pero si las utilizas no puedes llamar a procedimientos que estan fuera de la 'SECTION'. Mejor quitalas.

Tercero, inicalizar-ficheros no lo tienes implementado.

Cuarto , END-PROGRAM ponlo al final o quitalo. No hace falta

Quinto, CLOSE FICH2 pon el punto porque es final de parrafo CLOSE FICH2.

sexto, quita los exit.

septimo cambia "PERFORM INICIAR-SALIDA" por "PERFORM INICIAR-SALIDA thru iniciar-salida-fin".

Ya con eso, compila y nos cuentas.

Saludos

---------- Post añadido : 09:24 ---------- Post anterior : 09:16 ----------

Te quedaria asi:

Código COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CJ4.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
 
            SELECT FICH1     ASSIGN TO 'FICH1.CSV'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT FICH2     ASSIGN TO 'FICH2.DAT'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT SORT-WORK ASSIGN TO 'SORTWORK'.
 
       DATA DIVISION.
       FILE SECTION.
 
       FD  FICH1
           RECORD CONTAINS 38 CHARACTERS.
       01  F1-FICH1.
           05 F1-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F1-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F1-REGION            PIC X(09).
 
       FD  FICH2
           RECORD CONTAINS 38 CHARACTERS.
       01  F2-FICH2.
           05 F2-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F2-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F2-REGION            PIC X(09).
 
       SD  SORT-WORK
            RECORD CONTAINS  38 CHARACTERS.
       01  SORT-WORK-RECORD.
           05 SW-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 SW-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 SW-REGION            PIC X(09).
 
 
       WORKING-STORAGE SECTION.
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
 
      *     PERFORM INICIALIZAR-FICHEROS
           SORT SORT-WORK
                ON ASCENDING KEY SW-APELLIDO
                ON ASCENDING KEY SW-REGION
           INPUT  PROCEDURE CARGAR   
           OUTPUT PROCEDURE SALIDA.  
           
           STOP RUN.
      *----------------------------------------------------------------* 
      * END PROGRAM CJ4.
      *----------------------------------------------------------------* 
       CARGAR.
           OPEN INPUT FICH1
           PERFORM LEER THRU LEER-FIN
           CLOSE FICH1.
       CARGAR-FIN.
           EXIT.
      *----------------------------------------------------------------*
       LEER.
           READ FICH1 NEXT RECORD AT END GO LEER-FIN.
           MOVE F1-IDENTIFICADOR TO SW-IDENTIFICADOR.
           MOVE F1-APELLIDO      TO SW-APELLIDO.
           MOVE F1-REGION        TO SW-REGION.
           RELEASE SORT-WORK-RECORD.
           GO TO LEER.
       LEER-FIN.
      *----------------------------------------------------------------*
       SALIDA.
           OPEN OUTPUT FICH2
           PERFORM INICIAR-SALIDA thru iniciar-salida-fin.
           CLOSE FICH2.
       SALIDA-FIN.
      *----------------------------------------------------------------* 
       INICIAR-SALIDA.
           RETURN SORT-WORK AT END GO INICIAR-SALIDA-FIN.
           MOVE SW-IDENTIFICADOR TO F2-IDENTIFICADOR.
           MOVE SW-APELLIDO      TO F2-APELLIDO.
           MOVE SW-REGION        TO F2-REGION.
           WRITE F2-FICH2.
           GO TO INICIAR-SALIDA.
       INICIAR-SALIDA-FIN.
      *----------------------------------------------------------------*

---------- Post añadido : 09:27 ---------- Post anterior : 09:24 ----------

Lo he probado:

fichero csv

Código COBOL:

12     jsjjsj
1      4324
1      1111

fichero dat

Código COBOL:

 
1       111
1       324
12      sjjsj

Kuk · 19.09.2026 20:11

JCantero, los párrafos de XXXX-FIN no sirven de nada tampoco. Además, muchos compiladores no compilan un párrafo vacío, así que el EXIT se convierte en obligatorio.

Las SECTION, los párrafos con -FIN y el THRU no son recomendados, yo no los uso nunca. Los puntos tampoco. El único punto obligatorio es el del final del párrafo. Los GO TO tampoco son recomendados, suelen ser prohibidos por estándar. Es preferible usar los PERFORM.

theezraak · 09.12.2019 11:12

Citación del post de Kuk

❞

JCantero, los párrafos de XXXX-FIN no sirven de nada tampoco. Además, muchos compiladores no compilan un párrafo vacío, así que el EXIT se convierte en obligatorio.

Las SECTION, los párrafos con -FIN y el THRU no son recomendados, yo no los uso nunca. Los puntos tampoco. El único punto obligatorio es el del final del párrafo. Los GO TO tampoco son recomendados, suelen ser prohibidos por estándar. Es preferible usar los PERFORM.

Uso el fin porque me va bien para situarme.
Te pongo el codigo que tengo ahora, de momento ahora me da 1 error al leer el fichero.
Un saludo y gracias!

Código COBOL:

 IDENTIFICATION DIVISION.
       PROGRAM-ID. CJ4.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
 
            SELECT FICH1     ASSIGN TO 'APELLIDO.DAT'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT FICH2     ASSIGN TO 'FICH2.DAT'
                             ORGANIZATION IS LINE SEQUENTIAL.
 
            SELECT SORT-WORK ASSIGN TO SORTWORK.
 
       DATA DIVISION.
       FILE SECTION.
 
       FD  FICH1
           RECORD CONTAINS 38 CHARACTERS.
       01  F1-FICH1.
           05 F1-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F1-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F1-REGION            PIC X(09).
 
       FD  FICH2
           RECORD CONTAINS 38 CHARACTERS.
       01  F2-FICH2.
           05 F2-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 F2-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 F2-REGION            PIC X(09).
 
       SD  SORT-WORK
            RECORD CONTAINS  38 CHARACTERS.
       01  SORT-WORK-RECORD.
           05 SW-IDENTIFICADOR     PIC 9(07).
           05    FILLER            PIC X.
           05 SW-APELLIDO          PIC X(20).
           05    FILLER            PIC X.
           05 SW-REGION            PIC X(09).
 
 
       WORKING-STORAGE SECTION.
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           SORT SORT-WORK
           ON ASCENDING KEY SW-APELLIDO
           ON ASCENDING KEY SW-REGION
           INPUT  PROCEDURE CARGAR
           OUTPUT PROCEDURE SALIDA.
           STOP RUN.
      *----------------------------------------------------------------*
       CARGAR SECTION.
           OPEN INPUT FICH1.
           PERFORM LEER.
       LEER.
           READ FICH1 AT END PERFORM FIN-LEER.
           MOVE F1-IDENTIFICADOR TO SW-IDENTIFICADOR.
           MOVE F1-APELLIDO      TO SW-APELLIDO.
           MOVE F1-REGION        TO SW-REGION.
           RELEASE SORT-WORK-RECORD.
           PERFORM LEER.
           
       FIN-LEER.
           CLOSE FICH1.
       FIN-LEER-FIN.
           EXIT.
      *----------------------------------------------------------------*
       SALIDA SECTION.
           OPEN OUTPUT FICH2.
           PERFORM INICIAR-SALIDA.
           CLOSE FICH2.
       INICIAR-SALIDA.
           RETURN SORT-WORK AT END GO INICIAR-SALIDA-FIN.
           MOVE SW-IDENTIFICADOR TO F2-IDENTIFICADOR.
           MOVE SW-APELLIDO      TO F2-APELLIDO.
           MOVE SW-REGION        TO F2-REGION.
           WRITE F2-FICH2.
           PERFORM INICIAR-SALIDA.
       INICIAR-SALIDA-FIN.
           EXIT.
      *----------------------------------------------------------------*
       END PROGRAM CJ4.
      *----------------------------------------------------------------*

theezraak, usa el resalto de sintaxis!

---------- Post añadido : 11:01 ---------- Post anterior : 10:12 ----------

Ya me funciona gracias al codigo de JCantero.
La verdad que parecía más facil de lo que era.
Muchas gracias a todos por las aportaciones!!!

Otros temas que te pueden interesar
Tema	Autor	Foro	Respuestas	Último post
[Duda] Caracteres extraños desde archivo csv	Juanes	PowerCOBOL (ActiveX, v4 - v11)	16	7 de septiembre de 2022 19:40
[Sintaxis] Crear CSV	JuanJuan77	PowerCOBOL (ActiveX, v4 - v11)	3	27 de septiembre de 2021 19:14
[Herramienta] Herramienta para pasar datos de RM85- RMKF a texto	cfdiaz	COBOL - General	6	15 de mayo de 2019 22:32
[Sintaxis] Pasar datos a texto plano	Matias	PowerCOBOL (ActiveX, v4 - v11)	6	12 de agosto de 2016 19:47
[Sintaxis] Pasar número a fichero Texto Plano	Josber	PowerCOBOL (ActiveX, v4 - v11)	3	3 de junio de 2015 11:09

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes


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