Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie modo "A" > Z-nomegrid-RIORDINA-TRANSITO

In questa routine viene ricostruita la chiave di ordinamento sul file di transito.

 

Esempio della chiamata alla routine

 

Questa routine viene richiamata da alcune procedure automatiche. Le routine automatiche sono:

•Z-nomegrid-RIORDINA

 

Viene anche richiamata manualmente 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-grid-det-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

 

     *------------------------------------------------------------------*

     * Aggiorno la chiave di ordinamento

     *------------------------------------------------------------------*

      z-grid-det-riordina-transito.

          move 0               to gor-r-t-n-rio

          move 0               to gor-r-rio-perc

          move 0               to gor-r-rio-perc-sav

          move '0 %'     to wb-g1

          perform clock-msg

 

          move function length(t-gor-r-ord) to gor-r-l-ord

 

          initialize t-gor-r-rec

          perform st-t-grid-det-notmin

          if w-verbo-ok

             perform with test before until w-fine-file

                perform rdnxt-t-grid-det

                if w-verbo-ok

 

                   perform Z-nomegrid-RIORDINA-RECORD

                   perform rwr-t-grid-det

 

                   add 1       to gor-r-t-n-rio

                   compute gor-r-rio-perc =

                      gor-r-t-n-rio * 100 / gor-r-t-n-rec

                   if gor-r-rio-perc <> gor-r-rio-perc-sav

                      move gor-r-rio-perc to gor-r-rio-perc-sav

                      move gor-r-rio-perc to gor-r-rio-perc-ed

 

                      string m-tb-attesa-ordinamento ' ' delimited '  '

                             gor-r-rio-perc-ed ' %'

                         delimited size into wb-g1

                      perform view-clk

                   end-if

                 else

                   move k-fine-file to statusfi

                end-if

             end-perform

          end-if

          move k-verbo-ok           to statusfi

 

          perform rem-clk

          .