Z-nomegrid-INSERISCI-T-REC |
  
|
Z-nomegrid-INSERISCI-T-REC |
|
Questa routine centralizza la fase di scrittura di un record nel file di transito e alcune operazioni accessorie.
Esempio della chiamata alla routine
Questo routine deve essere utilizzata al posto della scrittura diretta nel file:
*---------------------------------------------------------------
* Imposto una merce
*---------------------------------------------------------------
if fl-fine-merci = "N"
perform rdnxt-cogmerci
if w-verbo-invalido
move "N" to fl-fine-merci
else
move mer-chia to t-gor-r-mer-cm
perform Z-RIEMPI-T-GOR-merce
end-if
end-if
perform z-grid-det-inserisci-t-rec
end-perform
Esempio della routine
*------------------------------------------------------------------*
* Operazioni di inserimento record in tabella di transito
*------------------------------------------------------------------*
z-grid-det-inserisci-t-rec.
perform wr-t-grid-det
if w-verbo-invalido
string m-tb-err-ins-t-rec ' ' t-gor-r-chia1
delimited size into wb-msg
perform vbx-msg-error
else
perform Z-nomegrid-CONTATORE
end-if
.