* Teste de file status. 
       77 ws77-file-status        pic x(002) value spaces.
          88 ws88-ok                         values are "00" "02" "04".
          88 ws88-diretorio-inexistente      value "05".
          88 ws88-fim-arquivo                value "10".
          88 ws88-inexiste-registro          value "22".	  
          88 ws88-disco-cheio                value "24".
          88 ws88-arquivo-inexistente 	     value "35".
          88 ws88-layout-diferente           value "39".
          88 ws88-arquivo-ja-aberto          value "41".
          88 ws88-arquivo-nao-aberto         values are "42" "47".
          88 ws88-arquivo-bloqueado          value "9A".
          88 ws88-registro-bloqueado         value "9D".
          88 ws88-indice-corrompido          values are "9$" "9)" "9(". 
      * Variáveis para serem usadas como contadores.
       01 ws01-contadores.
          02 ws02-i               pic 9(003) value zeros.
          02 ws02-j               pic 9(003) value zeros.	  
          02 ws02-k               pic 9(003) value zeros.
          02 ws02-l               pic 9(003) value zeros.
          02 ws02-m               pic 9(003) value zeros.	  
          02 ws02-n               pic 9(003) value zeros.
          02 ws02-o               pic 9(003) value zeros.	  
          02 ws02-p               pic 9(003) value zeros.
          02 ws02-q               pic 9(003) value zeros.
          02 ws02-r               pic 9(003) value zeros.	  
          02 ws02-s               pic 9(003) value zeros.
      * Variável para determinar se continua ou não o parsing da
      * instrucao ou linha de comando. 	  
       77 ws77-parsing            pic 9(001) value zeros.
          88 ws88-continua-parsing           value 0.
          88 ws88-finaliza-parsing           value 1.