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
	   .