11 lines
524 B
Plaintext
11 lines
524 B
Plaintext
* 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.
|
|
|