Hola
@Juanes, como te dicen
@Kuk,
@JCantero, tenes que preguntar a tu Proveedor Tecnológico
que formato del archivo CSV lo necesita , el powercobol esta en formato ANSI
Otra forma rapida podria ser utilizando la DLL de ChilKat , que tiene una
libreria que se llama CSV y con esta libreria podes convertir el archivo CSV
en el formato por ejemplo UTF-8 te paso un ejemplo como seria.
Hay una tabla donde estan todos los charset soportados
Link :
Charset (Character Encodings) Supported by Chilkat Components
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PATH-CVS-ANSI PIC X(256).
01 PATH-CVS-UTF PIC X(256).
01 ReturnValue PIC S9(9) COMP-5.
01 charset PIC X(5) VALUE "utf-8".
PROCEDURE DIVISION.
*------------------------------------------------------------------------------------
* LoadFile(path As String) As Long
* Loads a CSV from a file. It is assumed that the CSV file contains ANSI characters.
* Cargamos el archivo en formato ANSI de Cobol
MOVE "C:ARCHIVOSARCHIVOANSI.CSV" TO PATH-CVS-ANSI. *> Tu archivo de powercobol
INVOKE ChilkatCsv1 "LoadFile" USING PATH-CVS-ANSI RETURNING ReturnValue.
DISPLAY "Resultado Archivo cargado : " , ReturnValue. *> = 1 resultado positivo
*---------------------------------------------------
* SaveFile2(filename As String, charset As String) As Long
* Saves a CSV to a file. The charset specifies the character encoding to use for the CSV file.
* The text data is converted to this charset when saving.
* A list of supported character encodings may be found on this page: Supported Charsets.
* Grabamos el nuevo archivo de cobol en formato utf-8
MOVE "C:ARCHIVOSINFILEUTF8.CSV" TO PATH-CVS-UTF
INVOKE ChilkatCsv1 "SaveFile2" USING PATH-CVS-UTF charset RETURNING ReturnValue.
DISPLAY "Resultado Archivo convertido : " , ReturnValue *> = 1 resultado positivo
Saludos ....