MAREQUE est une Source de Données
sChain est une chaîne
sChain="SELECT CASE MONTH(CURRENT DATE) WHEN 1 THEN 'Janvier' WHEN 2 THEN 'Février' WHEN 3 THEN 'Mars' WHEN 4 THEN 'Avril' "
sChain+="WHEN 5 THEN 'Mai' WHEN 6 THEN 'Juin' WHEN 7 THEN 'Juillet' WHEN 8 THEN 'Août' WHEN 9 THEN 'Septembre' WHEN 10 THEN 'Octobre' "
sChain+="WHEN 11 THEN 'Novembre' ELSE 'Décembre' END AS mois FROM SYSIBM/SYSDUMMY1 "
HExécuteRequêteSQL(MAREQUE,MaConnexion1,hRequêteSansCorrection,sChain)
HLitPremier(MAREQUE)
Info (MAREQUE.mois)