Cobol - convertir cobol a txt, excel

convertir cobol a txt, excel

Publicado por Juan Carlos (1 intervención) el 27/11/2006 19:48:39

Hola amigos:
Necesito convertir archivos cobol (*.dat) a excel,txt u otro formato que pueda leer el access, si pudieran darme una mano enviando el prog. o guiandome como hacerlo...
Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:convertir cobol a txt, excel

Publicado por Alberto (72 intervenciones) el 27/11/2006 22:05:53

Juan Carlos:
Primero debes pasar el archivo a uno con extensión .CSV y grabar en él la información, este archivo debe ser ORGANIZACION IS LINE SEQUENTIAL y los campos deben estar separados por un signo (preferentemente punto y coma ;).

Una vez grabado ya te lo lee el excel sin ningún problema.

Puedes tambien grabar en el programa los titulos de las columnas y los cálculos, metiendo el texto o la formula dentro de las variables.

Un saludo desde Gijón, Asturias (España)

Alberto.

P.D. si sigues con dudas consultamelo en mi correo particular.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:convertir cobol a txt, excel

Publicado por SuperIndio (161 intervenciones) el 28/11/2006 16:10:45

He desarrollado una herramienta que hace todo completo es mas
lo puedo pasar a .dbf .txt separado por | o .xls
el tema que es que no funciona para archivos de viejas versiones
enviame un archivo de muestra e intento

Saludos
El Indigena

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Jose (2 intervenciones) el 03/09/2012 09:10:46

Muy buenas,

sé que de esto hace mucho, pero me he encontrado con el problema de que tengo que exportar unos ficheros cobol (acucobol) a fichero txt plano, para poder generar informes en B.I. pero no tengo ni idea de como hacerlo. Si fueses tan amable de enviarme la rutina, (si aún la tienes, claro...), te estaría eternamente agradecido.

Jose.

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Marta Cecilia Manco Pineda (2 intervenciones) el 09/12/2013 22:08:12

Hola Indigena. Tengo un problema con un archivo de cobol. Podrías compatirme tu aplicación? Saludos,

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Alfonso (2 intervenciones) el 12/08/2015 14:23:53

Hola se que de esto hace muchísimo tiempo pero podríamos ponernos en contacto para que pruebes dicho archivo con tu programa?.

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Fabio (1 intervención) el 22/08/2018 03:12:35

Hola me puedes enviar tu archivo?
Gracias

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Luis (83 intervenciones) el 01/12/2006 04:24:10

Carlos, Saludos.

Te estoy enviando una ayuda que nuestro colega Jose, tubo la gentileza de hacerme llegar por este medio y que me sirvio de mucho, aunque yo le hice unos pequenos cambios dado que lo mio es en Acu-cobol y no RM, pero funciono, Si tienes mas dudas o quieres una copia de mi programa te lo enviare con todo gusto. Esto lo he sacado de otro foro, y es para RM, pero puede ser que te sirva.

En Working

01 Excel-App.
03 Filler Pic X(16) Value "START C:\Archivos de programa\Office\Excel.exe".

En procedure

CALL "SYSTEM" USING Excel-App.

A su vez se puede generar un archivo con formato excel.

FD LISTADO LABEL RECORD STANDARD.
01 LINEA PIC X(132).

En la PROCEDURE al grabar el archivo debe tener primero:

OPEN OUTPUT LISTADO.
WRITE LINEA FROM "<FONT SIZE=10>"
WRITE LINEA FROM "<HTML>"
WRITE LINEA FROM "<BODY>"
WRITE LINEA FROM "<TABLE>"
WRITE LINEA FROM
"<TR><TH>columna1<TH>columna2<TH>columna3"

Cuando escribo las lineas de datos uso el <TR><TH> para inicio
de linea y <TD> como separador de columnas.
Ejemplo de como quedaria ya gravado:

<TR><TH>0001<TD>JOSE LUIS<TD>1,500.00
<TR><TH>0002<TD>PEDRO AL<TD>500.00

Al final antes de cerrar el archivo gravo la siguiente linea
y llamo a excel.exe:

WRITE LINEA FROM "</TABLE></BODY></HTML>"
CLOSE LISTADO.
CALL "SYSTEM.EXE" USING "START EXCEL.EXE LISTADO.XLS".
STOP RUN.

Con esto desde tu programa creas el archivo lo llamas y lo tratas
con excel(modificarlo, exportarlo, regravarlo, etc) y al cerrar excel
continua tu programa normalmente.

Para XP el call lo hago de la siguiente manera:
CALL "SYSTEM.EXE" USING "CMD START EXCEL.EXE LISTADO.XLS

Suerte
Luis.

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por sergo ugarte (2 intervenciones) el 17/01/2007 15:34:47

tengo una version de rmcobol 5.01.01 y windows xp y enmi programa hago un call system using comando(print.exe archivo) y me da error 204..no reconoce el call system..me puedes dar alguna receta.gracias de antemano

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Marcos Arturo Sanchez (3 intervenciones) el 24/04/2009 17:09:44

amigo:
Ud prodria alcanzarme el programa fuente completo, en donde esten las intrucciones que me permitan crear un reporte a excell, inluyendo cabezeras.

Desde ya le uqedo muy agradecido.
Saludos

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por roger (13 intervenciones) el 21/05/2009 02:58:04

tengo un programa q me lo paso un buen amigo cobolero de mexico escribeme al correo [email protected] y te lo paso....ok

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por roger (13 intervenciones) el 07/06/2010 00:03:59

hola a todos si deseas pasar archivos antiguosde cobol.dat a txt, dbf o excel
cominicarse a [email protected]

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por enrique (1 intervención) el 16/11/2011 20:47:05

Hola que tal amigo me interesa y espero que puedas mandarme ese programa en verdad me ayudarias bastante. Gracias. mi correo : [email protected]

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Abel (2 intervenciones) el 19/12/2014 00:28:29

Hola Roger, que tal?, me gustaría poder contar con ese programita que mencionas aquí para convertir archivos de datos a otro formato. En verdad me sería de muchísima utilidad para leer la información de unas tablas. Un abrazo.

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por alfonso (2 intervenciones) el 12/08/2015 14:29:20

Hola Roger me seria de gran utilidad del programa que mencionas, para leer una tablas. ¿Puedes ponerte en contacto conmigo?

Saludos.

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por William Cossio Aguilar (1 intervención) el 07/06/2015 05:53:13

Tengo tres archivos cobol uno de nombre CA-A-CLI, otro de nombre CA-A-CLI.LBL y otro de nombre CA-F-CLI.LBL

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por anthony (4 intervenciones) el 24/06/2014 20:52:57

Hola luis se que esto es de hace mucho pero tambien me veo obligado a investigar esto dado a que yo programo en acucobol (acubench 8.12) y nesecito imprimir los reportes en un archivo txt o excell si me podrias mandar un ejemplo de como haces para enviar los datos a eso archivos te lo agradeceria..!
mi mail es [email protected]

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por gatomalo (4 intervenciones) el 20/12/2014 23:30:44

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

ENVIRONMENT DIVISION.

 INPUT-OUTPUT SECTION.

 FILE-CONTROL.

     SELECT LEXCEL

     ASSIGN TO "d:\excel\zapato.XLS"

     ORGANIZATION IS LINE SEQUENTIAL.

 DATA DIVISION.

 FILE SECTION.

 FD LEXCEL

     LABEL RECORD IS STANDARD.

 01 REC-LEXCEL PIC X(500).

 WORKING-STORAGE SECTION.

 01 EXCEL OBJECT REFERENCE COM IS GLOBAL.

 01 WORKBOOK OBJECT REFERENCE COM IS GLOBAL.

 01 COM-TRUE PIC 1(1) BIT VALUE B"1" IS GLOBAL.

 01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION" IS GLOBAL.

 01 EXCEL_FILE PIC X(35) VALUE "d:\excel\zapato.XLS".

 01 L0.

    02 PIC X(45) VALUE

      "<HTLM><HEAD><TITLE>ESTADISTICO</TITLE></HEAD>".

 01 L-1.

    02 PIC X(6) VALUE "<BODY>".

    02 PIC X(15) VALUE "<TR><TH><B> ".

    02 L1-CIA PIC X(60) VALUE

       "ARTES STILOS DEL CALZADO SAC ".

    02 PIC X(6) VALUE "<\B>".

 01 L-11.

    02 PIC X(15) VALUE "<TR><TH>".

    02 PIC X(55) VALUE

        "VENTAS POR MESES ZAPATERIA SCOTT".

 01 L-30.

    02 PIC X(7) VALUE "<TABLE>".

 01 L-2.

    02 PIC X(4) VALUE "<BR>".

    02 L2-CIA PIC X(112) VALUE SPACES.

    02 L3-MES PIC X(10).

    02 L3-RMES REDEFINES L3-MES.

     03 L3-DMES PIC BXXX.

     03 L3-LET PIC XXX.

     03 L3-HMES PIC XXX.

    02 L3-ANO PIC Z9999.

 01 L-3.

    02 PIC X(4) VALUE "<BR>".

    02 L3-CIA PIC X(32).

    02 PIC X(7) VALUE " ".

    02 L2-RFC PIC X(15) VALUE SPACES.

 01 LLL.

    02 PIC X(7) VALUE "<BR><U>".

    02 L-0 PIC X(163) VALUE SPACES.

 01 L-4.

    02 PIC X(18) VALUE "<TR><TH><U> AÑOS".

    02 PIC X(15) VALUE "<TH><U> ENE".

    02 PIC X(15) VALUE "<TH><U> FEB".

    02 PIC X(15) VALUE "<TH><U> MAR".

    02 PIC X(15) VALUE "<TH><U> ABR".

    02 PIC X(15) VALUE "<TH><U> MAY".

    02 PIC X(15) VALUE "<TH><U> JUN".

    02 PIC X(15) VALUE "<TH><U> JUL".

    02 PIC X(15) VALUE "<TH><U> AGO".

    02 PIC X(15) VALUE "<TH><U> SET".

    02 PIC X(15) VALUE "<TH><U> OCT".

    02 PIC X(15) VALUE "<TH><U> NOV".

    02 PIC X(15) VALUE "<TH><U> DIC".

 01 L-5.

    02 PIC X(15) VALUE "<TR><TH> ".

    02 L-ANO PIC Z,ZZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-ENE PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-FEB PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-MAR PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-ABR PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-MAY PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-JUN PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-JUL PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-AGO PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-SET PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-OCT PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-NOV PIC ZZ,ZZZ.ZZ.

    02 PIC X(4) VALUE "<TD>".

    02 L-DIC PIC ZZ,ZZZ.ZZ.

 01 L55.

    02 PIC X(24) VALUE "<TR><TD>".

    02 PIC X(37) VALUE "<TD>".

    02 PIC X(20) VALUE "<TD>".

    02 PIC X(20) VALUE "<TD>".

    02 PIC X(20) VALUE "<TD>".

    02 PIC X(20) VALUE "<TD>".

 01 TABLA-CRT.

    02 T-CRT PIC X(80) OCCURS 25 TIMES.

 01 ANO-X.

    02 AA-N PIC 99.

    02 BB-N PIC 99.

 01 X-ANO REDEFINES ANO-X PIC 9(4).

 01 TIPO PIC X.

 01 CIA PIC X(15).

 01 A1 PIC 99 VALUE 0.

 01 Z PIC 99 VALUE 0.

 01 ZZ PIC 99 VALUE 0.

 01 X PIC 99 VALUE 0.

 01 H PIC X.

 01 V PIC X.

 01 SD1 PIC X.

 01 CANT-I PIC ZZZZZZZ.ZZ.

 01 C2 PIC ZZ.ZZZ.

 01 TIENDA PIC 99.

 01 AA PIC 99.

 01 BB PIC 99.

 01 L PIC 999.

 01 YEAR1 PIC 999.

 01 CARA PIC X.

 01 CADENA PIC X(8).

 PROCEDURE      DIVISION.

 INICIO. OPEN INPUT VENTA.

       OPEN OUTPUT LEXCEL CLOSE LEXCEL.

       OPEN EXTEND LEXCEL.

 GRAVAEXCEL.

      INSPECT L-0 REPLACING CHARACTERS BY "Í".

      INSPECT L0 REPLACING ALL " " BY " ".

      INSPECT L-1 REPLACING ALL " " BY " ".

      INSPECT L-11 REPLACING ALL " " BY " ".

      INSPECT L-2 REPLACING ALL " " BY " ".

      INSPECT L-3 REPLACING ALL " " BY " ".

      INSPECT L-30 REPLACING ALL " " BY " ".

      INSPECT L-4 REPLACING ALL " " BY " ".

      WRITE REC-LEXCEL FROM L0.

      WRITE REC-LEXCEL FROM L-1.

      WRITE REC-LEXCEL FROM L-3.

      WRITE REC-LEXCEL FROM L-11.

      WRITE REC-LEXCEL FROM L-2.

      WRITE REC-LEXCEL FROM L-3.

      INSPECT L-0 REPLACING CHARACTERS BY " ".

      WRITE REC-LEXCEL FROM LLL.

      WRITE REC-LEXCEL FROM L-30.

      WRITE REC-LEXCEL FROM L-4.

      WRITE REC-LEXCEL FROM L55.

       MOVE 2 TO L. MOVE 1 TO WMM.

       MOVE 97 TO WAA.

       MOVE 1 TO TIENDA.

       MOVE 5 TO X.

 SIGUE. MOVE WAA TO ANO-VEN.

       MOVE TIENDA TO TDA-VEN.

       MOVE WMM TO MES-VEN.

       IF WAA = 10 GO FIN.

       IF WMM = 13

         INSPECT L-5   REPLACING ALL " " BY " "

         INSPECT L-ENE REPLACING ALL " " BY " "

         INSPECT L-FEB REPLACING ALL " " BY " "

         INSPECT L-MAR REPLACING ALL " " BY " "

         INSPECT L-ABR REPLACING ALL " " BY " "

         INSPECT L-MAY REPLACING ALL " " BY " "

         INSPECT L-JUN REPLACING ALL " " BY " "

         INSPECT L-JUL REPLACING ALL " " BY " "

         INSPECT L-AGO REPLACING ALL " " BY " "

         INSPECT L-SET REPLACING ALL " " BY " "

         INSPECT L-OCT REPLACING ALL " " BY " "

         INSPECT L-NOV REPLACING ALL " " BY " "

         INSPECT L-DIC REPLACING ALL " " BY " "

         WRITE REC-LEXCEL FROM L-5

         MOVE 1 TO WMM ADD 1 TO WAA GO SIGUE.

       READ VENTA INVALID KEY move 0 TO CANT-VEN.

       IF WAA > 96 MOVE 19 TO AA-N.

       IF WAA < 96 MOVE 20 TO AA-N.

       MOVE WAA TO BB-N.

       MOVE ANO-X TO L-ANO.

         IF WMM = 1 MOVE CANT-VEN TO L-ENE.

         IF WMM = 2 MOVE CANT-VEN TO L-FEB.

         IF WMM = 3 MOVE CANT-VEN TO L-MAR.

         IF WMM = 4 MOVE CANT-VEN TO L-ABR.

         IF WMM = 5 MOVE CANT-VEN TO L-MAY.

         IF WMM = 6 MOVE CANT-VEN TO L-JUN.

         IF WMM = 7 MOVE CANT-VEN TO L-JUL.

         IF WMM = 8 MOVE CANT-VEN TO L-AGO.

         IF WMM = 9 MOVE CANT-VEN TO L-SET.

         IF WMM = 10 MOVE CANT-VEN TO L-OCT.

         IF WMM = 11 MOVE CANT-VEN TO L-NOV.

         IF WMM = 12 MOVE CANT-VEN TO L-DIC.

       ADD 1 TO WMM.

       GO SIGUE.

 FIN.  CLOSE LEXCEL VENTA.

       INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.

       INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.

       INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.

       INVOKE WORKBOOK "Open" using EXCEL_FILE.

       EXIT PROGRAM.

lo pueden adecuar para rmcobol , acucobol cambian las instrucciones invoke por el call o system

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por anthony (4 intervenciones) el 22/12/2014 14:55:48

Gracias por la info voy a tratar de analizarlo bien y adaptarlo al Acubench..!

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por Abel (2 intervenciones) el 12/08/2015 14:48:28

He encontrado una solución práctica a la migración de cobol a txt; el que pueda necesitar les cuento mejor... a mi correo abelrdc.sa @ gmail.com

Valora esta respuesta

Comentar

RE:convertir cobol a txt, excel

Publicado por hugo rios (1 intervención) el 14/01/2016 19:55:05

Hola , como haces la migracion de tablas .DAT a TXT, gracias de antemano

Valora esta respuesta

Comentar

Optimizar Programa Cobol DB2

AUXILIO