13 lines
431 B
Plaintext
13 lines
431 B
Plaintext
testar-file-status.
|
|
evaluate true
|
|
when ws88-arquivo-inexistente
|
|
display "Arquivo inexistente"
|
|
when ws88-diretorio-inexistente
|
|
display "Diretorio inexistente"
|
|
when other
|
|
display "Erro sem report: " ws77-file-status
|
|
end-evaluate
|
|
close arquivo-entrada arquivo-saida
|
|
perform finalizar
|
|
.
|