recupero dati da cobol

[Massimo]

Ciao ragazzi,
ho bisogno di recuperare dei dati contabili da archivi AcuCobol e di
portarli in DBF.
I file originari hanno estensione *.DAT e indici *.VIX.
Ho provato a cercare degli ODBC o OLEDB ma non ho trovato nulla.
Mi date una mano.
Grazie mille Massimo.

[Francesco D'Aquila]

Buona sera,
tutte le volte che ho cercato di recuperare dati .dat mi e' stato detto che
era impossibile in quanto l'eseguibile era propietario dei dati.
Se ci riesci fammelo sapere.
Francesco D'Aquila

Post by Massimo
Ciao ragazzi,
ho bisogno di recuperare dei dati contabili da archivi AcuCobol e di
portarli in DBF.
I file originari hanno estensione *.DAT e indici *.VIX.
Ho provato a cercare degli ODBC o OLEDB ma non ho trovato nulla.
Mi date una mano.
Grazie mille Massimo.

[Massimo Bighelli]

Omonimo,

dovrebbero essere dei file c-isam
prova a cercare in giro un driver ODBC, se ben ricordo esisteva, ma non
era gratis...

Massimo

Post by Massimo
Ciao ragazzi,
ho bisogno di recuperare dei dati contabili da archivi AcuCobol e di
portarli in DBF.
I file originari hanno estensione *.DAT e indici *.VIX.
Ho provato a cercare degli ODBC o OLEDB ma non ho trovato nulla.
Mi date una mano.
Grazie mille Massimo.

[acc]

Post by Massimo
ho bisogno di recuperare dei dati contabili da archivi AcuCobol e di
portarli in DBF.
I file originari hanno estensione *.DAT e indici *.VIX.

Ciao, anni fa ho convertito dei file Cobol (pero' della MicroFocus),
l'estensione degli archivi era sempre .DAT, ma quella degli indici era .IDX.
Per la conversione ho fatto un programma apposito in C, se non trovi
altro posso passarti la struttura degli archivi.

[Massimo Bighelli]

ah,

se gli indici sono VIX allora i file potrebbero essere VISION e non c-isam

Massimo

Post by acc

Post by Massimo
ho bisogno di recuperare dei dati contabili da archivi AcuCobol e di
portarli in DBF.
I file originari hanno estensione *.DAT e indici *.VIX.

Ciao, anni fa ho convertito dei file Cobol (pero' della MicroFocus),
l'estensione degli archivi era sempre .DAT, ma quella degli indici era .IDX.
Per la conversione ho fatto un programma apposito in C, se non trovi
altro posso passarti la struttura degli archivi.

[Massimo]

Ciao ragazzi,

vi ringrazio per l'interessamente, confermo che i files sono VISION.
mi farebbe comodo la struttura del file *.DAT, poi per il programma ci
penso io.
Per quanto riguarda l'ODBC è stato il promo passo, ma non sono
riuscito a trovare nulla.
Su internet ho trovato qualcora della "Cobolproducts", ma hanno dei
costi per i loro software di conversione assurdi.
Se avete qualche idea o la struttura degli archivi *.DAT il gioco è
fatto.
Grazie mille.

Massimo

[acc]

Post by Massimo
mi farebbe comodo la struttura del file *.DAT, poi per il programma ci
penso io.

typedef unsigned char BYTE;
typedef unsigned short WORD;
typedef unsigned long DWORD;

typedef struct { // MicroFocus Data File Header (variable length)
BYTE hlen[4]; // Length of the header
// First 4 bits always set to 3 indicating this
is a
// system record. Remaining bits contain the header
// length. If the max record length < 4096
bytes, length
// is 126 and is held in the next 12 bits;
otherwise is
// 124 and is held in the next 28 bits. Hence,
in a file
// with maximum record length < 4096 bytes,
this field
// contains x"30 7E 00 00". Otherwise, this field
// contains x"30 00 00 7C"
BYTE snum[2]; // Database sequence number, used by add-on
products
// supplied with COBOL system.
WORD intflag; // Integrity Flag, != 0 indicates that the file is
// corrupt. (Indexed files only)
BYTE cdat[14]; // Creation date and time in YYMMDDHHMMSSCC format.
// (Indexed files only)
BYTE res01[14]; // Reserved
BYTE res02[2]; // Reserved. Value 62 decimal; x"00 3E"
BYTE res03; // Not used. Set to zeros
BYTE org; // Organization: 1=Sequential, 2=Indexed,
3=Relative
BYTE res04; // Not used. Set to zeros
BYTE compress; // Compression routine number (0 = No compression)
BYTE res05; // Not used. Set to zeros
BYTE format; // Format (0=Default, 1=C-ISAM, 2=LEVEL II COBOL,
// 3=Indexed, 4=IDXFORMAT"4"). Used only in the
index
// file header
BYTE res06[4]; // Reserved
BYTE rec_mode; // Recording mode (0=Fixed format, 1=Variable
format)
BYTE res07[7]; // Not used. Set to zeros
WORD max_reclen; // Maximum record length
BYTE res08[2]; // Not used. Set to zeros
WORD min_reclen; // Minimum record length
BYTE res09[46]; // Not used. Set to zeros
BYTE version[4]; // Version and build data for the indexed file
handler
// creating the file. (Indexed files only)
BYTE res10[16]; // Not used. Set to zeros
} DHDR;