Como converter arquivos do Cobol para dbase ou txt ??
25/03/2004
0
:evil: Plobrema !!!!
Como converter arquivos do Cobol para dbase ou txt ??
Descartando a possibilidade do Rebuild alguma sugestao Valeuu...
Como converter arquivos do Cobol para dbase ou txt ??
Descartando a possibilidade do Rebuild alguma sugestao Valeuu...
Anonymous
Curtir tópico
+ 0
Responder
Posts
04/04/2004
Anonymous
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
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)