Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Crear CSV (https://www.cobolforo.es/showthread.php?t=1376)

JuanJuan77 21 de septiembre de 2021 20:02
Crear CSV
 
Hola gente, como puedo desde cobol, uso powercobol, crear un csv ?. tengo q recorrer un archivo y crear u CSV, gracias

Josber 21 de septiembre de 2021 21:35
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 27 de septiembre de 2021 16:09
Juan, hay tiene unas líneas de ejemplo como lo hago yo
Código COBOL:
  1. SELECT STOLMO33  ASSIGN PRINT "C:\INFORMES\STOLMO33.CSV"
  2.                    ORGANIZATION IS LINE SEQUENTIAL
  3.                    FILE STATUS FILE-STATUS.
  4. SELECT PRINTER ASSIGN PRINT "PRINTER.TXT"
  5.                   FILE STATUS FILE-STATUS.
  6.  
  7. FD  STOLMO33 LABEL RECORD OMITTED.
  8.        01  R-STOLMO33.
  9.            02 FILLER          PIC X(260).
  10. FD  PRINTER LABEL RECORD OMITTED.
  11.        01  LINEA.
  12.            05 FILLER          PIC X(500).
  13.  
  14. 01  TIT-2EX.
  15.            05 FILLER          PIC X(05) VALUE "PRE".
  16.            05 FILLER          PIC X(01) VALUE ";".
  17.            05 FILLER          PIC X(06) VALUE "PREDIO".
  18.            05 FILLER          PIC X(01) VALUE ";".
  19.            05 FILLER          PIC X(05) VALUE "CCO".
  20.            05 FILLER          PIC X(01) VALUE ";".
  21.            05 FILLER          PIC X(12) VALUE "CENTRO COSTO".
  22.            05 FILLER          PIC X(01) VALUE ";".
  23.            05 FILLER          PIC X(08) VALUE "$ MONTO".
  24.       
  25.        01  DET-1EX.
  26.            05 D1EX-CPRE       PIC 9(03).
  27.            05 FILLER               PIC X(01) VALUE ";".
  28.            05 D1EX-NPRE       PIC X(30).
  29.            05 FILLER               PIC X(01) VALUE ";".
  30.            05 D1EX-CCEN      PIC 9(03).
  31.            05 FILLER               PIC X(01) VALUE ";".
  32.            05 D1EX-NCEN      PIC X(35).
  33.            05 FILLER               PIC X(01) VALUE ";".
  34.            05 D1EX-MON       PIC ZZZ.ZZZ.ZZZ.
  35.  
  36. 12-IMPR-EXCEL.
  37.            MOVE 0 TO TOT-GENERAL
  38.            OPEN OUTPUT STOLMO33
  39.            WRITE R-STOLMO33 FROM TIT-1EX
  40.            WRITE R-STOLMO33 FROM TIT-2EX AFTER 2
  41.            PERFORM 12-B UNTIL ERR = 1
  42.            MOVE TOT-GENERAL TO D3EX-MONGEN
  43.            WRITE R-STOLMO33 FROM DET-3EX.
  44.            CLOSE STOLMO33.
  45.            CALL "SYSTEM" USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV".
  46.       
  47.        12-B.       
  48.            MOVE 0 TO TOT-PREDIO
  49.            MOVE 2 TO REGTAB-TABLA
  50.            MOVE BOD-MO TO BODEGA REGTAB-CODIGO D1EX-CPRE
  51.            READ REGTABLA INVALID MOVE 
  52.                          "** NO EXISTE **" TO REGTAB-DESCRI.
  53.            MOVE REGTAB-DESCRI TO D1EX-NPRE
  54.            PERFORM 12-B1 UNTIL ERR = 1 OR
  55.                         BOD-MO NOT = BODEGA.
  56.            MOVE TOT-MONTO  TO D2EX-MONPRE
  57.            ADD TOT-MONTO   TO TOT-GENERAL
  58.            WRITE R-STOLMO33 FROM DET-2EX.

Comentario de Moderador

Usa los botones de resalto de sintaxis de lenguajes ;)

Josber 27 de septiembre de 2021 19:14
Cita:
Citación del post de jmeza (Mensaje 7055)
USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV
¿starter.exe?, será start.exe, ¿no?

Un salu2.-


La franja horaria es GMT +2. Ahora son las 15:39.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.