Feldinhalt (KtoNr) Zeichen nach Num.

[honigblume]

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]

... probier mal XLATE (ersetzt Blanks durch Nullen):

I '0123456789' C ZIFFER
C ' ':'0' XLATEFELD FELD

viel Erfolg,

Robert

[RobertMack]

... 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.]

[Joe]

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 os:lae)=
%subst(Eingabe:1:lae)
endif

Gruss
Joe

[honigblume]

[Dieser Beitrag wurde von honigblume am 21. Februar 2003 editiert.]

[honigblume]

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]

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.]