Z-nomegrid-NOME-TRANSITO |
  
|
Z-nomegrid-NOME-TRANSITO |
|
Attribuzione del nome del file di transito.
Esempio della chiamata alla routine
Questo routine viene richiamata automaticamente all'interno della routine: Z-nomegrid-APRI-TRANSITO
*------------------------------------------------------------------*
* 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
.
Può anche essere usata manualmente, al bisogno (vedi COGS55.CBL).
Esempio della routine
*------------------------------------------------------------------*
* Attribuzione nome del file di transito
*------------------------------------------------------------------*
z-grid-det-nome-transito.
string ext-tmp-dir delimited ' '
ext-os-slash delimited size
'#$' delimited size
k-program-id '_' delimited size
'grid-det_' delimited size
wo-oper delimited size
into w-nome-t-grid-det
.