vfoxpro : Mensaje: Re: [vfoxpro] Levantar datos desde Rm-Cobol 85 a DBFs

¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?

Podés hacer búsquedas de antiguos mensajes del grupo.

Mensajes

Mensajes Ayuda

Avanzado

Levantar datos desde Rm-Cobol 85 a DBFs

Lista de mensajes

Responder | Reenviar

Mensaje #111758 de 116638 |

Re: [vfoxpro] Levantar datos desde Rm-Cobol 85 a DBFs

Yo lo hice de dos maneras... una hice un programa en cobol te adjunto uno sencillo donde lo que hacia era abrir el archivo y grabarlo a txt, eso lo corria desde fox con un runcobol programa y listo despues capturaba....

La otra (con algunos archivos no me funciono) es con la aplicacion vutil16.exe que te adjunto que se corre asi

lcCommand = "vutil16 -extract "+lcDirWork+"cliente.dat> "+lcDirWork+"cliente.cre"

Run

&lcCommand

obviamente lcDirWork es el path donde esta el archivo y cliente.dat es el origen y cliente.cre es el destino... esta aplicacion te lo pasa a "txt"

Espero te sirva

Gonzalo

PD: el vutil16.ex_ renombralo a .exe porque gmail no deja enviar exes

El día 2/07/08, Mauricio Demonte <mjdemonte@...> escribió:

Hola a todos, ¿Cómo están? Necesito que me ayuden en lo siguiente:

Tengo que levantar/copiar los datos de archivos de datos (.DAT)
guardados con Rm-Cobol 85 V 5.36, (lenguaje que no manejo) a archivos
DBFs. Además de tener los archivos .DAT (por ejemplo Clientes.DAT) tengo
el archivo CLIENTES.EFD (que por lo que veo es el diseño del registro de
los clientes) y CLIENTES.SEL (que por lo que veo se trata de los indices
o algo por el estilo). Lo que necesito es poder pasar los datos desde el
archivo.DAT a un TXT y desde el TXT lo levanto facilmente a DBFs.
¿Cómo hago es pasaje a un TXT? Existe alguna herramienta gratis para ello??
Espero sus comentarios, ya que de poder copiar los datos a DBFs depende
si haga o no el sistema!!!

Adjunto los archivos .EFD y .SEL (el .DAT no lo adjunto por su tamaño).

Desde ya muchas gracias.
Saludos.
Mauricio Demonte

FD CLIENTES LABEL RECORDS STANDARD
VALUE OF FILE-ID WCLIENTES.

01 R-CLI.
03 CLI-CL.
05 CLI-NUMERO PIC 9(05).
03 CLI-NOMBRE PIC X(30).
03 CLI-DOMICILIO PIC X(30).
03 CLI-NUMLOC PIC 9(05).
03 CLI-LOCALIDAD PIC X(20).
03 CLI-PROVIN PIC X.
03 CLI-TELEFONO PIC X(20).
03 CLI-INSC PIC 9.
03 CLI-CUIT PIC X(15).
03 CLI-CUITR REDEFINES CLI-CUIT.
04 CLI-CUIT1 PIC 99.
04 CLI-F1 PIC X.
04 CLI-CUIT2 PIC 9(8).
04 CLI-F2 PIC X.
04 CLI-CUIT3 PIC 9.
04 FILLER PIC X(2).
03 CLI-IBRU PIC X(15).
03 CLI-CUENTA PIC 9(07).
03 CLI-VENDE PIC 9(03).
03 CLI-ZONA PIC 9(03).
03 CLI-SALINI PIC S9(8)V99.
03 CLI-FECINI PIC 9(8).
03 FILLER PIC X(50).

*---------------------------------------------------------
* CLI-NUMERO = Numero del Cliente
* CLI-NOMBRE = Nombre
* CLI-DOMICILIO = Domicilio
* CLI-NUMLOC = Numero Localidad
* CLI-LOCALIDAD = Localidad
* CLI-PROVIN = Provincia (patente)
* CLI-TELEFONO = Telefono
* CLI-INSC = Condicion IVA (1- R.I. 2- R.N.I. 3- C.F.
* 4- EXE.)
* CLI-CUIT = Nro Cuit
* CLI-IBRU = N§ Ing. Brutos
* CLI-CUENTA = Cuenta Imputacion
* CLI-VENDE = Vendedor
* CLI-ZONA = Zona
* CLI-SALINI = Saldo Inicial
* CLI-FECINI = Fecha Saldo
*---------------------------------------------------------

Mié, 2 de Jul, 2008 11:53 am

Mostrar opción del mensaje

"Gonzalo Avalos" <gavalos@...>

jcsinglung

Sin conexión

Enviar correo

Archivo adjunto
vutil16.ex_

Tipo:
application/octet-stream

000100 IDENTIFICATION DIVISION.
000110 PROGRAM-ID. Pedido.
000120 ENVIRONMENT DIVISION.
000130 CONFIGURATION SECTION.
000140 SOURCE-COMPUTER. RMC.
000150 OBJECT-COMPUTER. RMC.
000160 SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
000170 INPUT-OUTPUT SECTION.
000180 FILE-CONTROL.
000190 SELECT PEDETA ASSIGN TO RANDOM, "PEDBEC.DAT"
000200 ORGANIZATION IS INDEXED
000000 ACCESS MODE IS DYNAMIC
000220 RECORD KEY IS PEDA-CLAVE
000000 ALTERNATE RECORD KEY IS PEDA-CLAVE-ART WITH DUPLICATES
000000 ALTERNATE RECORD KEY IS PEDA-NRO-PEDI WITH DUPLICATES
000000 ALTERNATE RECORD KEY IS PEDA-ALTERNA WITH DUPLICATES.
000230 SELECT PEDETA-S ASSIGN TO RANDOM, "PEDBEC.SEQ"
000231 ORGANIZATION IS line SEQUENTIAL
000232 ACCESS MODE IS SEQUENTIAL.
000240 DATA DIVISION.
000250 FILE SECTION.
000000 FD PEDETA
000000 RECORD CONTAINS 160 CHARACTERS
000000 LABEL RECORD STANDARD
000000 DATA RECORD IS PEDA-01.
000000 01 PEDA-01.
000000 03 PEDA-CLAVE.
000000 05 PEDA-NUMPED PIC 9(08).
000000 05 PEDA-FE-BEC PIC 9(08).
000000 05 PEDA-MOVIM PIC 9.
000000 05 PEDA-NRO-BEC PIC 9(06).
000000 05 PEDA-CLAVE-ART.
000000 07 PEDA-PROVE PIC 9(02).
000000 07 PEDA-RUBRO PIC 9(02).
000000 07 PEDA-ARTICULO PIC 9(06).
000000 07 PEDA-NUMERO PIC 99V99.
000000 05 PEDA-ITEM PIC 9(3).
000000 03 PEDA-NRO-PEDI PIC X(15).
000000 03 PEDA-ALTERNA.
000000 05 PEDA-MOVIM-A PIC 9.
000000 05 PEDA-NRO-BEC-A PIC 9(06).
000000 05 PEDA-FE-BEC-A PIC 9(08).
000000 05 PEDA-ART-BEC.
000000 07 PEDA-PRO-BEC PIC 9(02).
000000 07 PEDA-RUB-BEC PIC 9(02).
000000 07 PEDA-ARTIC-BEC PIC 9(06).
000000 07 PEDA-NUM-BEC PIC 99V99.
000000 03 PEDA-CANT-BEC PIC S9(6).
000000 03 PEDA-NRO-FACTU PIC 9(12).
000000 03 PEDA-OBSERVA PIC X(15).
000000 03 FILLER PIC X(43).
000000*-----------------------------------------------------------------
000000* MOVIM : 1-BEC 2-RNP
000000 FD PEDETA-S
000000 RECORD CONTAINS 160 CHARACTERS
000000 LABEL RECORD STANDARD
000000 DATA RECORD IS PEDA-02.
000000 01 PEDA-02.
000000 05 PEDAS-NUMPED PIC 9(08).
000000 05 PEDAS-FE-BEC PIC 9(08).
000000 05 PEDAS-MOVIM PIC 9.
000000 05 PEDAS-NRO-BEC PIC 9(06).
000000 05 PEDAS-PROVE PIC 9(02).
000000 05 PEDAS-RUBRO PIC 9(02).
000000 05 PEDAS-ARTICULO PIC 9(06).
000000 05 PEDAS-NUMERO PIC 99V99.
000000 05 PEDAS-CANT-BEC PIC 9(6).
000000 05 PEDAS-NRO-FACTU PIC 9(12).
000000*----------------------------------------------------------------
000000* MOVIM : 1-BEC 2-RNP
000310 WORKING-STORAGE SECTION.
000320 77 EOF-PEDIDO PIC XX VALUE "NO".
000000*................................................................
001150 PROCEDURE DIVISION.
001160 COMIENZO.
001170 OPEN INPUT PEDETA.
001180 OPEN OUTPUT PEDETA-S.
000000 BUSCANDO.
000000 MOVE "NO" TO EOF-PEDIDO.
000000 PERFORM RNE-PEDIDO.
000000 PERFORM PROCESO-PEDIDO THRU X-PEDIDO
000000 UNTIL EOF-PEDIDO = "SI".
000000 GO TO FIN.
000000*.................................................................
000000 PROCESO-PEDIDO.
000000 MOVE PEDA-NUMPED TO PEDAS-NUMPED.
000000 MOVE PEDA-FE-BEC TO PEDAS-FE-BEC.
000000 MOVE PEDA-MOVIM TO PEDAS-MOVIM.
000000 MOVE PEDA-NRO-BEC TO PEDAS-NRO-BEC.
000000 MOVE PEDA-PROVE TO PEDAS-PROVE.
000000 MOVE PEDA-RUBRO TO PEDAS-RUBRO.
000000 MOVE PEDA-ARTICULO TO PEDAS-ARTICULO.
000000 MOVE PEDA-NUMERO TO PEDAS-NUMERO.
000000 MOVE PEDA-CANT-BEC TO PEDAS-CANT-BEC.
000000 MOVE PEDA-NRO-FACTU TO PEDAS-NRO-FACTU.
000000 WRITE PEDA-02.
000000 X-PEDIDO.
000000 PERFORM RNE-PEDIDO.
000000 RNE-PEDIDO.
000000 READ PEDETA NEXT NO LOCK AT END MOVE "SI" TO EOF-PEDIDO.
000000*.................................................................
000000 FIN.
001810 CLOSE PEDETA PEDETA-S.
001820 EXIT PROGRAM.

Reenviar

Mensaje #111758 de 116638 |

Desplegar mensajes	Autor	Ordenar por fecha
Hola a todos, ¿Cómo están? Necesito que me ayuden en lo siguiente: Tengo que levantar/copiar los datos de archivos de datos (.DAT) guardados con Rm-Cobol...	Mauricio Demonte mjdemonte	2 de Jul, 2008 11:41 am
Yo lo hice de dos maneras... una hice un programa en cobol te adjunto uno sencillo donde lo que hacia era abrir el archivo y grabarlo a txt, eso lo corria...	Gonzalo Avalos jcsinglung	2 de Jul, 2008 11:53 am
Yo desconozco una opcion para esto. Tiempo atras estube programando en RMCobol, lo que se es que es necesario conocer la estructura de los archivos y que es...	Salvador Brambila salvador_bra	2 de Jul, 2008 6:31 pm
Por la estructura de datos que pasaste, en principio tenes la ventaja de que todos los datos estarÃan almacenados en formato caracter. Si mal no recuerdo, los...	Carlos Miguel FARIAS carlosmiguel...	3 de Jul, 2008 2:08 pm
Saludos, lo unico que tienes que hacer es que los datos de RMCOBOL sean grabados en archivos txt o sea texto luego diseñate una tabla en fox con el...	egas jose jose_egas@...	3 de Jul, 2008 3:36 pm

< Tema anterior | Tema siguiente >

Avanzado