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

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