Cob_file_reorganize

[Paulo]

Olá a todos.

Estou a criar uma rotina para reorganizar e compactar ficheiros indexados.
Alguém tem experiencia em usar esta função ?
Tenho estado a tentar mas dá sempre erro. penso que poderá ter a ver com as variaveis.

01 COBF-INF PIC X(001).
01 COBF-INPUT-FILENAME PIC X(256).
01 COBF-OUTPUT-FILENAME PIC X(256).

MOVE LOW-VALUE TO COBF-INF.
MOVE WFILENAME TO COBF-INPUT-FILENAME.
MOVE WFILENAMEOUT TO COBF-OUTPUT-FILENAME.
CALL "COB_FILE_REORGANIZE" USING BY REFERENCE COBF-INF.

Saludos

[Paulo]

Ás vezes só precisamos de tomar um café e repensar...
Já encontrei o erro.
Tem que copiar o ficheiro "COBF-INF.cbl" que está na pasta do Fujitsu Cobol para onde está o programa.

WORKING-STORAGE SECTION.
COPY COBF-INF.

PROCEDURE DIVISION

MOVE LOW-VALUE TO COBF-INF.
MOVE WFILENAME TO COBF-INPUT-FILENAME.
MOVE WFILENAMEOUT TO COBF-OUTPUT-FILENAME.
CALL "COB_FILE_REORGANIZE" USING BY REFERENCE COBF-INF.

Saludos

[Joseg]

Bom dia,

Em anexo um pequeno exemplo que reindexa uma pasta completa (no exemplo tudo o que começa por F*).
Também com um "click" permite reindexar um ficheiro de cada vez.
Atenção: copiar as librarias: DELETEFILE.lib; f3bifutc.lib; f3bicblr.lib para a pasta \debug ou alterar a origem das mesmas.

f3bifutc.lib; f3bicblr.lib --> Estão na pasta a onde é instalado o Fujitsu Cobol.

Espero que ajude.

Jose