Alpha Feld -> Alpha Feld ohne führende Nullen

[llschuh]

Hallo zusammen,

ich möchte gerne ein Alpha-Feld
mit Inhalt z.B. "0023" umformatieren,
sodass der Inhalt ohne führende Nullen
ist.
Sprich " 23".
Wie mache ich das am besten?

Gruß Dirk

[Pikachu]

Welche Programmiersprache?

[llschuh]

ILE RPG ist die Programmiersprache.

[Pikachu]

So könnte es gehen:

D TEXT            S              4A   INZ('0034')                      
D SIZE            S              2S 0 INZ(%SIZE(TEXT))                 
D COUNT           S              3S 0                                  
D**********************************************************************
C     '0'           CHECK     TEXT          COUNT                      
C     COUNT         IFEQ      *ZERO                                    
C                   ADD       SIZE          COUNT                      
C                   ENDIF                                              
C                   SUBST(P)  TEXT:COUNT    TEXT                       
C                   SUB       1             COUNT                      
C     ''            CAT       TEXT:COUNT    TEXT                       
C                   SETON                                        LR

[Fuerchau]

dow %subst(Text:1:1)='0';
Text = %subst(Text:2);
enddo;

[llschuh]

Besten Dank.
An CHECK hatte ich gar nicht mehr gedacht.
Habe es mit CHECK und SUBST(P) gelöst.

Gruß Dirk

[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')