dec to char

[muadeep]

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]

%editc(Feld:'X') wäre das Richtige.

[muadeep]

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]

Wie wärs mit %editw(Feld:'0___.___') ?
Statt des "_" eben Blank.
Wichtig ist die "0" am Anfang.