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