Z-GEN-CREA-TRANSITO-INIT |
  
|
Z-GEN-CREA-TRANSITO-INIT |
|
Routine generica collegata alle griglie, che centralizza alcune operazioni per la visualizzazione del messaggio incrementale costruito in Z-GEN-CONTATORE
Esempio della chiamata alla routine
Viene richiamata durante la costruzione del file di transito nel programma sorgente, ad esempio (ASN210):
carica-file.
perform z-gen-crea-transito-init
if tm-id-chiamata not = 0
perform tratta-chia-1 thru ex-tratta-chia-1
else
if tm-ana-cod-c not = 0
perform tratta-chia3 thru ex-tratta-chia3
else
if tm-chiamata-da not = 0
perform tratta-chia6 thru ex-tratta-chia6
else
if tm-situazione not = 'T'
perform tratta-chia7 thru ex-tratta-chia7
else
perform tratta-chia1 thru ex-tratta-chia1
end-if
end-if
end-if
end-if.
perform rem-clk
.
ex-carica-file.
exit.
Esempio della routine
*------------------------------------------------------------------*
* Operazioni iniziali sul caricamento file di transito
*------------------------------------------------------------------*
z-grid-det-crea-transito-init.
move m-tb-crea-transito-init-01 to wb-g1
move 0 to w-gen-t-n-rec
move 0 to w-gen-ca
move 0 to w-gen-ca-ed
string m-tb-crea-transito-init-02 ' ' w-gen-ca-ed
' ' m-tb-crea-transito-init-03
delimited size into wb-g2
perform clock-msg
.