Converter Arquivo *.DAT

Ola amigos, estou com um problema, estou mudando o sistema de um cliente, onde o antigo esta com os arquivos de extensao .DAT creio que seja do COBOL, ande olhando uns foruns e vi que o unico jeito de capturar esses dados teria de saber qua a estrutura, consequi um arquivo de extensao .DEF que obtem a estrutura do arquivo, agora gostaria q vcs me ajudasse a capturar esses dados. Olha so o q tem no arquivo .DEF

-----------------------------------------------------------------------------
DATE: 31/07/101 TIME: 15:59 PAGE: 1
FILE DEFINITION FOR FILE: PRODUTO (# 71)
-----------------------------------------------------------------------------
FILE ROOT NAME : PRODUTO
USER DISPLAY NAME : PRODUTO -Cadastro Produto
DATAFLEX FILE NAME : PRODUTO
-----------------------------------------------------------------------------
RECORD LENGTH : 512 ( USED: 471 )
MAX NUMBER OF RECORDS : 100000 ( USED: 2 )
FILE COMPRESSION : NONE
RE-USE DELETED SPACE : YES
MULTI-USER REREAD : YES
HEADER INTEGRITY CHECKING : YES
-----------------------------------------------------------------------------

NUM FIELD NAME TYPE SIZE OFFST IX RELATES TO FILE.FIELD
--- --------------- ---- ----- ----- -- ---------------------------------
1 CODPRODUTO NUM 8.0 1 1
2 DESCRICAO ASC 40 5 2
3 CODFORNECEDOR NUM 6.0 45 3
4 CODCLASSE ASC 3 48 4
5 STATUS ASC 1 51
6 UNIDADE ASC 2 52
7 DIFERENCIACAO ASC 1 54
8 REFERENCIA ASC 20 55 5
9 DATULTENTRADA DAT 3 75
10 DATULTENTRADAAN DAT 3 78
11 DATULTPRECO DAT 3 81
12 DATULTSAIDA DAT 3 84
13 DATVALIDADE DAT 3 87
14 DATVALPRECO DAT 3 90
15 ENDERECO1 ASC 3 93
16 ENDERECO2 ASC 3 96
17 ENDERECO3 ASC 3 99
18 PERCCOMISSAO NUM 2.2 102
19 PERCADMINISTRAC NUM 2.2 104
20 PERCICMS NUM 2.2 106
21 PERCMARGEM NUM 4.2 108
22 QTDESTOQUEANT NUM 6.4 111
23 QTDENTRADA NUM 6.4 116
24 QTDENTRADAANT NUM 6.4 121
25 QTDESTOQUE NUM 6.4 126
26 QTDSAIDAMES01 NUM 8.4 131
27 QTDSAIDAMES02 NUM 8.4 137
28 QTDSAIDAMES03 NUM 8.4 143
29 QTDSAIDAMES04 NUM 8.4 149
30 QTDSAIDAMES05 NUM 8.4 155
31 QTDSAIDAMES06 NUM 8.4 161
32 QTDSAIDAMES07 NUM 8.4 167
33 QTDSAIDAMES08 NUM 8.4 173
34 QTDSAIDAMES09 NUM 8.4 179
35 QTDSAIDAMES10 NUM 8.4 185
36 QTDSAIDAMES11 NUM 8.4 191
37 QTDSAIDAMES12 NUM 8.4 197
38 QTDENTRADAMES01 NUM 8.4 203
39 QTDENTRADAMES02 NUM 8.4 209
40 QTDENTRADAMES03 NUM 8.4 215
41 QTDENTRADAMES04 NUM 8.4 221
42 QTDENTRADAMES05 NUM 8.4 227
43 QTDENTRADAMES06 NUM 8.4 233
44 QTDENTRADAMES07 NUM 8.4 239
45 QTDENTRADAMES08 NUM 8.4 245
46 QTDENTRADAMES09 NUM 8.4 251
47 QTDENTRADAMES10 NUM 8.4 257
48 QTDENTRADAMES11 NUM 8.4 263
49 QTDENTRADAMES12 NUM 8.4 269
50 QTDSAIDAANO01 NUM 8.4 275
51 QTDSAIDAANO02 NUM 8.4 281
52 QTDSAIDAANO03 NUM 8.4 287
53 QTDSAIDAANO04 NUM 8.4 293
54 QTDSAIDAANO05 NUM 8.4 299
55 VLRCUE NUM 12.2 305
56 VLRCUEANT NUM 12.2 312
57 VLRCUSTO NUM 12.2 319
58 VLRCUSTOANT NUM 12.2 326
59 VLRCMUP NUM 12.2 333
60 VLRCMUPANT NUM 12.2 340
61 VLRVENDA NUM 12.2 347
62 VLRVENDAANT NUM 12.2 354
63 VLRICMENTRADA NUM 12.2 361
64 VLRICMENTRADAAN NUM 12.2 368
65 VLRDESPESAS NUM 12.2 375
66 VLRDESPESASANT NUM 12.2 382
67 VLRIPIENTRADA NUM 12.2 389
68 VLRIPIENTRADAAN NUM 12.2 396
69 CODCONJUNTO NUM 8.0 403
70 FLUTUANTE NUM 6.4 407
71 PESO NUM 6.4 412
72 PERCIVA NUM 4.2 417
73 QTDGONDOLA NUM 6.4 420
74 EMBCOMPRA ASC 2 425
75 FATORCOMPRA NUM 4.0 427
76 PERCDESCONTO NUM 2.2 429
77 CTF ASC 2 431
78 PERCREDUCAO NUM 4.4 433
79 MARCA ASC 20 437 7
80 TIPO ASC 1 457
81 CODFORNULTCP NUM 6.0 458
82 CODFORNULTCPANT NUM 6.0 461
83 FATORVENDA NUM 4.0 464
84 PERCCOMISSAOE NUM 2.2 466
85 CODGRUPO NUM 4.0 468 6
86 CODEMPREGADO NUM 4.0 470


INDEX# FIELDS DES U/C LENGTH LEVELS SEGMENTS MODE
------ --------------- --- --- ------ ------ -------- -------
1 CODPRODUTO NO NO 4 3 1 ON-LINE

2 DESCRICAO NO NO 43 5 2 ON-LINE
RECNUM NO NO

3 CODFORNECEDOR NO NO 46 5 3 ON-LINE
DESCRICAO NO NO
RECNUM NO NO

4 CODCLASSE NO NO 46 5 3 ON-LINE
DESCRICAO NO NO
RECNUM NO NO

5 REFERENCIA NO NO 63 6 3 ON-LINE
DESCRICAO NO NO
RECNUM NO NO

6 CODGRUPO NO NO 45 5 3 ON-LINE
DESCRICAO NO NO
RECNUM NO NO

7 MARCA NO NO 63 6 3 ON-LINE
DESCRICAO NO NO
RECNUM NO NO