34 lines
1.8 KiB
Plaintext
34 lines
1.8 KiB
Plaintext
* 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.
|
|
|