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