Cobol Foro - [Sintaxis] Cob_file

Cobol Foro (https://www.cobolforo.es/index.php)

- NetCOBOL (https://www.cobolforo.es/forumdisplay.php?f=2)

- - [Sintaxis] Cob_file_reorganize (https://www.cobolforo.es/showthread.php?t=1686)

Paulo

27 de octubre de 2023 10:15

Cob_file_reorganize

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.

Código COBOL:

 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

27 de octubre de 2023 10:51

Á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.

Código COBOL:

 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

27 de octubre de 2023 11:16

1 Archivos Adjunto(s)

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

La franja horaria es GMT +2. Ahora son las 03:35.