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
|