Alpha Feld -> Alpha Feld ohne führende Nullen

[llschuh]

Hallo zusammen,

erstmal besten Dank für alle Tipps.
Nachdem ich alle Varianten ausprobiert
habe, sind 2 Varianten für mich als
Lösung dabei.

1.) DOW %SUBST und
2.) Exec SQL Set

Da ich nur die führenden Nullen entfernt
haben möchte konnte ich mit
%Trim, %xlate und CHECKR nichts machen, da hier alle Nullen entfernt wurde, bzw. ich nicht das
neuste Release zur Verfügung habe.

Gruß Dirk

[thommy_l]

Hallo,

führende Nullen in Textfeldern entferne ich so:

evalr MeinText = %char(%int(MeinText))


Thommy

[B.Hauser]

@Thommy

Hoffentlich steht in MyText nie etwas anderes als Ziffern drin!
Schon wenn das Feld komplett *Blank wäre, bekommst Du ein Problem.

... und %Char richtet linksbündig aus.
... Blanks zwischen den Ziffern werden gnadenlos entfernt.
... und Dezimal-Trennzeichen und folgende Ziffern werden gnadenlos abgeschnitten.

Birgitta

[thommy_l]

@Birgitta

die Frage des Threaderstellers war, wie ein mit Zahlen gefülltes Alphafeld ohne Vornullen dargestellt werden kann. Darauf habe ich mich selbstverständlich bezogen. Im Übrigen stellt mein Vorschlag das Ergebniss durchaus rechtsbündig, ganz links steht EVALR

Thommy

[TheDevil]

Hallo Comminity ...

ich weiss die Anfrage ist schon ein "wenig" älter ... aber da ich auch noch so einer Lösung gegrübelt habe hier mein Vorschlag (beides alpha felder mit länge 10) :

eval target = %subst(source: %check('0':source) :11 - check('0':source))

Besser spät als nie :-.()

Gruß,
Ralf

[Alexander]

Und noch ein Trick:
dtext s 5a inz('0034')
c eval text = %char(%dec(TEXT:5:0))
c evalr text = %char(%dec(TEXT:5:0))