IBM i - Des couleurs dans le résultat d’une requête SQL

En 5250, il est possible d'afficher le résultat d'une requête avec plusieurs couleurs.

tout d'abord, il faut savoir que les couleurs se définissent pas des code Hexa :

x’20’ Vert
x’21’ Vert en inverse vidéo
x’22’ Blanc
x’23’ Blanc en inverse vidéo
x’28’ Rouge
x’29’ Rouge en inverse vidéo
x’2A’ Clignotant
x’2B’ Clignotant en inverse vidéo
x’3a’ Bleu

SELECT CASE
 WHEN COUNT(*) > 10 THEN (X'20'!!CDAPL)
 WHEN COUNT(*) >  5 THEN (X'22'!!CDAPL)
 WHEN COUNT(*) >  0 THEN (X'28'!!CDAPL)
 END  AS CODE_APPLI,
 LIBELLE AS LIBELLE,
 COUNT(*) AS NOMBRE_OPTIONS
FROM MNOPT1PF GROUP BY CDAPL, LIBELLE
HAVING COUNT(*) > 0

Et hop !