Numerische Felder in Alfa-Feldgruppe ausgeben

[dino]

... Vielleicht eine blöde Frage: Kann ich ohne größeren Aufwand (über Konvertierung num --> alfa, Trennen Vorkomma- und Nachkommawerte, MOVEA Vorkommawert, Komma einfügen, MOVEA Dezimalwert) ein numerisches Feld -mit Aufbereitung - in eine Alfa-Feldgruppe mit einstelligen Elementen (an bestimmten Stellen) ausgeben, ähnlich wie eine Zeilenausgabe beim Drucker? Mit "MOVEA" ist das ja offenbar nicht möglich, wie das "A" hinter "MOVE" schon besagt.

[B.Hauser]

Hallo,

ich bin nicht ganz sicher, ob ich genau verstehe, was Du willst.
Du willst einen numerischen Wert in einen alphanumerischen Wert inclusive Dezimal-Trennzeichen konvertieren und diesen Wert in eine Feldgruppe aus lauter einstelligen alphanumerischen Elementen verschieben. Wenn ja, kannst Du das folgende Ausprobieren:

D Numer           S             15P 5 inz(123,45)            
D DSZahl          DS                                         
D   Alpha                       16                           
D   Array                        1    Dim(16) Overlay(Alpha) 
 *----------------------------------------------------
 /Free
    EvalR Alpha = %Char(Numer);   
 /End-Free 

Birgitta

[dino]

Danke Birgitta, Free Form ist zwar für mich ein Buch mit 7 Siegeln, aber ich habs kapiert und es funktioniert sogar. Vielen Dank

[dino]

Hallo Birgitte, hab noch was viel besseres zu dieser Problematik gefunden: "%editc" in Free Form:

eval alfafeld = %editc(Betrag:'K');

M.f.G. Hubert

[Fuerchau]

Erinnere dich an deine Frage, die konnte so nie zu deiner Lösung führen.