Z-nomegrid-CONTATORE |
  
|
Z-nomegrid-CONTATORE |
|
Incromento del contatore e visualizzazione del contatore con ritardo progressivo.
Vedi anche Z-GEN-CONTATORE
Esempio della chiamata alla routine
Viene richiamata in una routine automatica:
Esempio della routine
*------------------------------------------------------------------*
* Incremento il contatore; conto:
* - 1 record fino a 10
* - 10 record fino a 100
* - 100 record fino a 1000
* - 1000 record oltre
*------------------------------------------------------------------*
z-grid-det-contatore.
add 1 to gor-r-t-n-rec
add 1 to gor-r-ca
if gor-r-ca > 999
if gor-r-ca-m-unita = 0
move gor-r-ca to gor-r-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
gor-r-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else if gor-r-ca > 99
if gor-r-ca-c-unita = 0
move gor-r-ca to gor-r-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
gor-r-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else if gor-r-ca > 9
if gor-r-ca-d-unita = 0
move gor-r-ca to gor-r-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
gor-r-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
else
move gor-r-ca to gor-r-ca-ed
move ' ' to wb-g2
string m-tb-crea-transito-init-02 ' ' delimited ' '
gor-r-ca-ed delimited size
' ' m-tb-crea-transito-init-03
delimited ' ' into wb-g2
perform view-clk
end-if
end-if
end-if
.