Crear CSV

[JuanJuan77]

Hola gente, como puedo desde cobol, uso powercobol, crear un csv ?. tengo q recorrer un archivo y crear u CSV, gracias

[Josber]

A ver un CSV, no es más que un archivo de texto plano en los que cada campo está separado por comas, por lo que, lees el fichero de origen secuencialmente y lo grabas en un fichero del tipo LINE SEQUENTIAL, en los que cada registro, ha de ser un STRING de cada uno de los campos más las comas que has de poner entre ellos

No sé si me entiendes bien


Si necesitas más ayuda, dilo

Un salu2.-

[jmeza]

Juan, hay tiene unas líneas de ejemplo como lo hago yo

SELECT STOLMO33 ASSIGN PRINT "C:\INFORMES\STOLMO33.CSV"
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.
SELECT PRINTER ASSIGN PRINT "PRINTER.TXT"
FILE STATUS FILE-STATUS.

FD STOLMO33 LABEL RECORD OMITTED.
01 R-STOLMO33.
02 FILLER PIC X(260).
FD PRINTER LABEL RECORD OMITTED.
01 LINEA.
05 FILLER PIC X(500).

01 TIT-2EX.
05 FILLER PIC X(05) VALUE "PRE".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(06) VALUE "PREDIO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(05) VALUE "CCO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(12) VALUE "CENTRO COSTO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(08) VALUE "$ MONTO".

01 DET-1EX.
05 D1EX-CPRE PIC 9(03).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-NPRE PIC X(30).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-CCEN PIC 9(03).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-NCEN PIC X(35).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-MON PIC ZZZ.ZZZ.ZZZ.

12-IMPR-EXCEL.
MOVE 0 TO TOT-GENERAL
OPEN OUTPUT STOLMO33
WRITE R-STOLMO33 FROM TIT-1EX
WRITE R-STOLMO33 FROM TIT-2EX AFTER 2
PERFORM 12-B UNTIL ERR = 1
MOVE TOT-GENERAL TO D3EX-MONGEN
WRITE R-STOLMO33 FROM DET-3EX.
CLOSE STOLMO33.
CALL "SYSTEM" USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV".

12-B.
MOVE 0 TO TOT-PREDIO
MOVE 2 TO REGTAB-TABLA
MOVE BOD-MO TO BODEGA REGTAB-CODIGO D1EX-CPRE
READ REGTABLA INVALID MOVE
"** NO EXISTE **" TO REGTAB-DESCRI.
MOVE REGTAB-DESCRI TO D1EX-NPRE
PERFORM 12-B1 UNTIL ERR = 1 OR
BOD-MO NOT = BODEGA.
MOVE TOT-MONTO TO D2EX-MONPRE
ADD TOT-MONTO TO TOT-GENERAL
WRITE R-STOLMO33 FROM DET-2EX.


Usa los botones de resalto de sintaxis de lenguajes ;)

[Josber]

USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV

¿starter.exe?, será start.exe, ¿no?

Un salu2.-