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.

Mensaje de MODERADOR

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