Racchiude alcune operazioni comuni necessarie per iniziare lo spaginamento sul file di transito.
Esempio della chiamata alla routine
Viene richiamata in:
Esempio della routine
*------------------------------------------------------------------*
* Mi posiziono all'inizio dei dati
*------------------------------------------------------------------*
x-grid-det-spaginamento-start.
move ' ' to gor-r-fl-read
initialize t-gor-r-rec
perform grid-det-rst-not-less
.