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 !
