Como converter arquivos do Cobol para dbase ou txt ??

Olá

select o arquivo original
SELECT ARQTAB ASSIGN TO ´ARQTAB´
LOCK MODE IS AUTOMATIC
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS TA1-CHAVE
FILE STATUS IS ST.

select o arquivo que sera txt
SELECT ARQUIVO ASSIGN TO ´ARQUIVO.TXT´
LOCK MODE IS AUTOMATIC
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS IS ST.


DATA DIVISION.
FILE SECTION.
coloque o lay-out do arquivo


PROCEDURE DIVISION.
open input arqtab

OPEN EXTEND ARQUIVO


INITIALIZE TA1-CHAVE
START ARQTAB KEY NOT LESS TA1-CHAVE
INVALID KEY
GO TO 999-FIM
END-START
.
000-READ.
READ ARQTAB NEXT AT END
GO TO 999-FIM
END-READ

move os registros

WRITE ARQ-REG
GO TO 000-READ
.
999-FIM
CLOSE arquivos
EXIT PROGRAM
.

Espero que possa te ajudar,

João Schroeder