Navigation:  Procedure Interne > Generale/servizio > Files generati > 'NOMEPRG'.PRC > Gestione griglie modo "A" > Z-nomegrid-INVERTI-DATO

Un dato passato in input viene convertito con il suo "complementare" ASCII, per gestire l'ordinamento discendente.

 

Esempio della chiamata alla routine

 

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

•Z-nomegrid-RIORDINA-RECORD

 

 

Esempio della routine

 

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

     * Inversione di una stringa per l'ordinamento discendente

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

      z-grid-det-inverti-dato.

          move 0          to gor-r-z

          perform gor-r-fld times

             add 1        to gor-r-z

             move function ord(w-grid-det-str-inversa (gor-r-z:1))

                          to gor-r-char-ascii

             compute gor-r-char-ascii = 255 - gor-r-char-ascii

             move function char(gor-r-char-ascii)

                          to w-grid-det-str-inversa (gor-r-z:1)

          end-perform

          .