       fd arquivo-saida
          value of file-id is ws77-arquivo-saida.
       01 reg-arquivo-saida       pic x(256).
  
