* Arquivos de entrada e saída 	  
       77 ws77-arquivo-entrada    pic x(256) value spaces.
       77 ws77-arquivo-saida      pic x(256) value spaces.
       77 ws77-arquivo-intermediario pic x(256) value spaces.
       77 ws77-arquivo-intermediario2 pic x(256) value spaces.
      * Variáveis para verificar se deve mostrar ou não alguma coisa.	  
       77 ws77-processo           pic 9(001) value zeros.
          88 ws88-processo-nao-verboso       value 0. 
          88 ws88-processo-verboso           value 1.