View Full Version : Feldinhalt (KtoNr) Zeichen nach Num.
honigblume
20-02-03, 17:06
Hallo und Hilfe,
und bitte nicht lachen...
Ich habe ein 10 st.Zeichenfeld 'Kontonummer',
Inhalt z.B. 140567 (wird so übergeben, kann ich nicht ändern)
Nun muß ich dieses Feld an ein numerisches 11 st. Feld übergeben.
Inhalt ist nun 1405670000, also falsch.
Mit moven klappt nicht.
Gibt es eine Möglichkeit?????
Vielen lieben Dank für Info.
Grüße
Susanne
RobertMack
20-02-03, 17:54
... probier mal XLATE (ersetzt Blanks durch Nullen):
I '0123456789' C ZIFFER
C ' ':'0' XLATEFELD FELD
viel Erfolg,
Robert
RobertMack
20-02-03, 17:59
... und falls die Geschichte linksbündig kommt:
' ' SCAN ALFA X 20
MOVELALFA NUMER 110
X DO 11
DIV 10 NUMER
ENDDO
[Dieser Beitrag wurde von RobertMack am 20. Februar 2003 editiert.]
Hallo.
Wenn ich richtig verstanden habe, soll
4711blank in 00000004711 umgestelt werden.
clear lae 2 0
clear pos 2 0
move *all'0' Ausgabe 11
if Eingabe <> *blank
eval lae=%scan(' ':Eingabe)-1
eval pos=11-lae+1
eval %subst(Ausgabe http://www.as400-forum.de/ubb/tongue.gifos:lae)=
%subst(Eingabe:1:lae)
endif
Gruss
Joe
honigblume
21-02-03, 15:00
[Dieser Beitrag wurde von honigblume am 21. Februar 2003 editiert.]
honigblume
21-02-03, 15:01
Danke auch an Joe!
ich werde das mal testen, dann lerne
ich mal ein ganz klein wenig RPG Ile,
das kann ich nämlich noch nicht...
Viele Grüße
Susi
[Dieser Beitrag wurde von honigblume am 21. Februar 2003 editiert.]
honigblume
21-02-03, 15:04
Danke Robert,
diese Lösung habe ich genommen, hat
auf Anhieb funktioniert :-))))))))))))
... und falls die Geschichte linksbündig kommt:
' ' SCAN ALFA X 20
MOVELALFA NUMER 110
X DO 11
DIV 10 NUMER
ENDDO
[Dieser Beitrag wurde von honigblume am 21. Februar 2003 editiert.]
[Dieser Beitrag wurde von honigblume am 21. Februar 2003 editiert.]