Alpha Feld -> Alpha Feld ohne führende Nullen

[Khholm]

müßte doch eigentlich noch einfacher gehen:

text = %xlate('0':' ':text)

[llschuh]

Habe es aktuell mit dem CHECK gelöst.

Ich werde aber in der nächsten Woche
die beiden anderen Vorschläge von Euch
auch noch einmal testen und
dann Rückmeldung geben.

Gruß Dirk

[mwithake]

müßte doch eigentlich noch einfacher gehen:

text = %xlate('0':' ':text)

Diese Funktion würde alle Nullen entfernen, aus 00203 würde 2 3 werden.

Ab V5R4 geht es mit %triml(text:'0').

[Pikachu]

Sollen die führenden Nullen durch Leerzeichen ersetzt werden?

[B.Hauser]

Hallo,

wenn Du Release V5R3 oder höher hast, kannst Du das Feld wie folgt umsetzen:

 /Free
    EvalR MyNewFld = %TrimR(%TrimL(MyOldFld: '0'))
 /End-Free 

Eventuell kann auf den %TrimR sogar verzichtet werden, da der Feld-Inhalt durch EVALR bereits rechtsbündig ausgerichtet wird.

Solltest Du noch nicht auf Release V5R3 sein, kannst Du die führenden Nullen mit embedded SQL entfernen und das Ergebnis dann mit EVALR und %TrimR rechtsbündig ausrichten:

c/Exec SQL   Set :MyNewFld = Trim(Leading '0' from :MyOldFld)
C/End-Exec
C                 EVALR   MyNewFld = %TrimR(MyNewFld) 

Birgitta

[Alexander]

d TEXT S 4A INZ('0034')
d NUM S 4S 0
* No 1
c eval TEXT = %trim(TEXT)
c dow %subst(TEXT:1:1)='0'
c if %subst(TEXT:1:1)='0'
c eval %subst(TEXT:1:1)=' '
c eval TEXT = %trim(TEXT)
c endif
c enddo
c evalr TEXT = %trimr(TEXT)
* No 2
c move text num
c eval text = %editc(num:'L')

[Fuerchau]

Na das nenne ich ja mal eine übertriebene Sicherheit:

c dow %subst(TEXT:1:1)='0'
c if %subst(TEXT:1:1)='0'
c eval %subst(TEXT:1:1)=' '
c eval TEXT = %trim(TEXT)
c endif
c enddo

Im DOW wird ja bereits geprüft und warum soll ich was ersetzen, wenn ich es anschließend wieder wegschmeiße ?

Der %EDITC ist da schon eher ein Ansatz, vervollständigt könnte das dann so aussehen:

text = %char(%dec(TEXT:4:0)); // linksbündig

evalr text = %char(%dec(TEXT:4:0)); // rechtsbündig

[Alexander]

Danke! Ich habe vergessen, die Zeile mit "If %subst..." loeschen.

[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