PDA

View Full Version : dec to char


muadeep
28-07-11, 11:10
Hallo

ich möchte zwei 7 stellige nummerische Felder in ein char Feld übertragen !!!


D FeldNum1 s 7 0 inz(0062440)
D FeldNum2 s 7 0 inz(0011072)
D FeldChar s 25a inz(*blank)

C Eval FeldChar = %char(FeldNum1) + ';' + %char(FeldNum2)beim ersten Feld (FeldNum1) sollen aber die beiden "00" mit übertragen werden!

das Feld FELDCHAR sollte dann so ausschauen: 0062440;11072
Fuerchau
28-07-11, 11:26
%editc(Feld:'X') wäre das Richtige.
muadeep
28-07-11, 12:06
so, und jetzt hätt ich noch folgendes Problem! ;-) *fg


D FeldNum1 s 9 3 inz(2,000)
D FeldNum2 s 9 3 inz(530,000)
D FeldChar s 25a inz(*blank)

C Eval FeldChar = %char(FeldNum1) + ';' + %char(FeldNum2)
das Feld FELDCHAR sollte jetzt so ausschauen: 000002.000;000530.000
Fuerchau
28-07-11, 12:17
Wie wärs mit %editw(Feld:'0___.___') ?
Statt des "_" eben Blank.
Wichtig ist die "0" am Anfang.