Bonjour,
je dois exporter dans un fichier texte le contenu d'une table.

Pour certains champs numériques, je dois placer un + devant le nombre s'il est positif ou nul. Je dois également combler les emplacements vides par des zéros.

J'avais opté pour cette solution qui fonctionne bien avec des entiers :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
length stMyVar$ 8.;
if MyVar ge 0 then stMyVar='+'||put(MyVar,z7.); else stMyVar=put(MyVar,z8.);
Cette méthode n'exporte pas les séparateurs décimaux.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
if MyVar ge 0 then stMyVar='+'||put(MyVar,z7.2); else stMyVar=put(MyVar,z8.2);
va bien fonctionner sur des nombres avec deux chiffres après la virgule.

Je cherche une manière simple de compter le nombre de décimales d'un nombre pour récupérer cette valeur et l'injecter dans mes put.

Sachant que MyVar est au format 8. mais que je ne sais pas pour chaque enregistrement s'il y a un séparateur décimal et le nombre de décimales après le séparateur.

Si quelqu'un a une idée je suis preneur.

Merci.