ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
TRIER_D Table
Description
Cet ordre permet de trier les postes d'une table Table dans l'ordre décroissant.
On ne peut exécuter cet ordre que sur une table sans indice.
Cette table doit être de dimension 1.
Attention : en génération RPG, cet ordre ne peut pas être utilisé en même temps que l'ordre TRIER sur la même table dans un même programme.
Par exemple
* Routine pour imprimer les descriptions articles par ordre alphabétique décroissant
* TBL_ART a 99 éléments
*
TBL_ART = *BLANK
IN = 0
LIRE_AVANT ARTICLES
TANT_QUE ARTICLES EXISTE
IN = IN + 1
TBL_ART(IN) = DESCRIPTION_ART
LIRE_AVANT ARTICLES
REFAIRE
*
TRIER_D TBL_ART
*
IN = 0
TANT_QUE IN < 99
IN = IN + 1
ZZ_DESCR_ART = TBL_ART(IN)
EDITER FORMAT_ART
REFAIRE
Le résultat pourra être :
PULL
PANTALON
MANTEAU
CRAVATE
CHEMISE
CHAUSSURE
CHAPEAU