Z-nomegrid-APRI-TRANSITO |
  
|
Z-nomegrid-APRI-TRANSITO |
|
Attribuzione del nome e apertura del file di transito.
Esempio della chiamata alla routine
Questo routine viene inserita nel sorgente all'inizio della fase di elaborazione:
*-------------------------------------------------------------------
* Inizializzazione file di transito e caricamento
*-------------------------------------------------------------------
perform z-grid-det-apri-transito
perform z-grid-det-crea-transito
perform Z-nomegrid-RIORDINA-TRANSITO
**-----------------------------------------------------------------**
**-----------------------------------------------------------------**
** Inizio gestione griglia
**-----------------------------------------------------------------**
**-----------------------------------------------------------------**
perform x-disattiva-f3-conferma
move spaces to gor-r-fl-read
initialize t-gor-r-rec
......
Esempio della routine
*------------------------------------------------------------------*
* Attribuzione nome e apertura del file di transito
* per la gestione della griglia
*------------------------------------------------------------------*
z-grid-det-apri-transito.
perform z-grid-det-nome-transito
close t-grid-det
open output t-grid-det
if stato <> '00'
initialize wb-msg
string m-tb-problema-open-transito delimited ' '
stato k-newline 'file: ' w-nome-t-grid-det
delimited size into wb-msg
perform vbx-msg-error
go to fine
end-if
close t-grid-det
open i-o t-grid-det
.