Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Pasar CSV a texto plano theezraak RM/COBOL 8 24 de octubre de 2016 10:01
Respuesta
 
Herramientas

  #1
Antiguo 21 de septiembre de 2021, 19:02
IDENTIFICATION DIVISION
JuanJuan77
 Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
octubre 2015
Empalme Villa Constitución
21.09.2021 19:02
PROCEDURE DIVISION
Posts: 38
Enviado: 1
Recibido: 1
Soluiones: 0
Reputación: 0
JuanJuan77 is on a distinguished road
Predeterminado Crear CSV

Hola gente, como puedo desde cobol, uso powercobol, crear un csv ?. tengo q recorrer un archivo y crear u CSV, gracias
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 21 de septiembre de 2021, 20:35
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
27.10.2021 10:43
PROCEDURE DIVISION
Posts: 598
Enviado: 275
Recibido: 296
Soluiones: 41
Reputación: 30
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

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.-
Josber no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 27 de septiembre de 2021, 15:09
IDENTIFICATION DIVISION
jmeza
 Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
abril 2017
Curico Chile
23.10.2021 02:31
PROCEDURE DIVISION
Posts: 86
Enviado: 23
Recibido: 3
Soluiones: 0
Reputación: 5
jmeza is an unknown quantity at this point
Predeterminado

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.

Mensaje de MODERADOR

Usa los botones de resalto de sintaxis de lenguajes

Última edición por Kuk fecha: 28 de septiembre de 2021 a las 08:22. Razón: resalto de sintaxis
jmeza no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 27 de septiembre de 2021, 18:14
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
27.10.2021 10:43
PROCEDURE DIVISION
Posts: 598
Enviado: 275
Recibido: 296
Soluiones: 41
Reputación: 30
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de jmeza Ver Mensaje
USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV
¿starter.exe?, será start.exe, ¿no?

Un salu2.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 14:17.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.