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

