Format pour caractère séparateur décimal

[root]

dans la doc abal il est indiqué que l'on peut préciser le séparateur des décimales en précisant dans le format
.(*) où le caractères étoile est le caractère à utiliser

Exemple .(,) si on veut une virgule

Je veux un point comme séparateur des décimal et non une virgule
Je n'arrive pas à trouver la bonne syntaxe

Avec ce code
formate="-9z.zz"
ft =fm((formate))
ligne =print(((ft)),montant)
on a une virgule comme séparateur

lorsque j'essai de préciser le caractère séparateur de décimal j'obtiens une erreur de format
formate="-9z.(.)zz"
ft =fm((formate))
ligne =print(((ft)),montant)
==> erreur 112 erreur de format

Quelqu'un maitrise t'il les formats abal ?

[GUIARD]

Bonsoir, root

Je viens d'envoyer ta question au service Abal-Criteria chez Prologue.
Si, ils me répondaient, je te transmettrai leur réponse.

A+
Jerome

[biloute]

bonsoir Root,


chez moi j'ai directement la , sans rien faire.

pour ma part j'ajouterais juste ligne=tran(".",",",1,ligne).. même si ça n'est pas une solution satisfaisante.


Bonne journée

[root]

Merci jerome,
Je ne voulais pas déranger le support prologue, mais j'aurais probablement fait appel à eux si la communauté n'avait pas la réponse

Merci biloute,
J'avais bien pensé faire cela aussi
mais j'aurais quand même bien aimé connaitre la syntaxe exacte pour le séparateur des décimal

[root]

l'instruction suivante fonctionne
ligne=print((.(.)-8z.zz),valeur)


en revanche

formate=".(.)-8z.zz"
ft =fm((formate))
ligne =print(((ft)),montant)
produit une erreur 112 sur l'instruction ft =fm((formate))

[GUIARD]

Nouveau tiddler
3 octobre 2018 à 12h18
Voici un exemple avec la bonne syntaxe, avec ici un point-virgule comme séparateur.

L’exemple dans le Manuel de Référence est faux : ASK=1:"Prix :"=(.(,)N3.Z2),Prix_unitaire
De plus il est situé dans la syntaxe du ASK !?


program "testformat"

segment 0

dcl format$=128
dcl ft$=256
dcl ligne$=256
dcl montant
dcl montant2

print=1: "testformat.at", tabv(1)

montant=123.456

print=1:tabv(1)
ask=1:"Montant :"=(.(;)(N3.Z2)),montant2 ; Sans effet ds un ASK
print=1:tabv(1), (.(.)(N3.Z2)), montant2


format="(.(.)(N3.Z2))"
ft =fm((format))

print=1:tabv(1)
print=1:((ft)),montant,tabv(1)

ligne =print(((ft)),montant)
print=1:tabv(1)
print=1:ligne,tabv(1)

pause "..."

eseg 0

end


This post has been edited by GUIARD on 03/10/18 11:22

[GUIARD]

J’ai enlevé le ASK pour faire propre. Le programme suivant fonctionne !
On a bien à l’affichage un point-virgule à la place de la virgule…

program "testformat"

segment 0

dcl format$=128
dcl ft$=256
dcl ligne$=256
dcl montant

print=1: "testformat.at", tabv(1)

montant=123.456

print=1:tabv(1), (.(;)(N3.Z2)), montant

format="(.(;)(N3.Z2))"
ft =fm((format))

print=1:tabv(1)
print=1:((ft)),montant

ligne =print(((ft)),montant)
print=1:tabv(1)
print=1:ligne,tabv(1)

pause "..."

eseg 0

end

[GUIARD]

Bonjour Stéphane

Pour ton erreur 112

La bonne syntaxe est

formate="(.(.)(-8Z.ZZ))"
ft =fm((formate))
ligne =print(((ft)),montant)

et non

formate=".(.)-8z.zz"
ft =fm((formate))
ligne =print(((ft)),montant)

A+
(merci Bernard)




Attached Image

[root]

oui merci jérome
c'est ce que j'en ai déduit aussi à la lecture de ton premier message
il faut aussi encadrer le format par des ( ) c'est cela qui provoquait l'erreur 112


formate="(.(.)(-8Z.ZZ))"
il y a un niveau de parenthèse superflu
formate=".(.)(-8Z.ZZ)" et suffisant pour obtenir de bon ft =fm((formate))

Merci jérome

[GUIARD]

Merci Bernard