%editw ?

[Fuerchau]

Die Maske, das ist hier schlecht darstellbar, muss nur einmal "0" und dann Blanks haben:
'-0_______,__'
Die Unterstriche entsprechen der Anzahl Ziffern.
0 = Signifikanz einschalten
Blank = Dezimalziffer.
Normalerweise darf die Maske nicht länger als die verfügbare Anzahl Ziffern sein, allerdings ist die "0" als Zusatz erlaubt.

[FNeurieser]

Hallo Fuerchau,

danke für die rasche Antwort. Ich habe das auch so ausprobiert, aber erhalten wieder ein falsches Ergebnis.

Das Feld v10 ist 11S 2 lang, das entsprechende Alphafeld $v10 -> 12A (wegen des Minus)

die Schablone schaut bei mir so aus $v10 = %editw(ustw(pos#) : '-0xxxxxxxx,xx');
(die x stehen als Platzhalter für Leerzeichen).

Das Ergebnis ist dann aber 00000000,7 und nicht wie erhofft 0,74- oder aber -0,74 wie es eigentlich sein sollte.

Ich benötige lediglich eine Stelle vor dem Komma wenn der Endwert lediglich aus Dezimalen besteht.

Hoffe dass ich mich jetzt etwas klarer ausgedrückt habe.

LG
Franz-Georg

[malzusrex]

Ich meine das müsste so aus sehen

$v10 = %editw(ustw(pos#) : '-xxxxxxxx0x,xx'); 

aber nimm doch %EditC.
Dein Ergebnissfeld muss dan aber auch 13 lang sein. 9 Vorkomma + 2 Nachkomma + Komma + Vorzeichen

       dcl-s v10 zoned(11:2);     
       dcl-s $v10 char(13);       
        $v10 = *Blanks;           
        v10 = -,74;               
        $v10 = %EditC( v10: 'Q'); 
        *InLr = *On; 

Gruß
Ronald

[FNeurieser]

Servus Roland,

recht herzlichen Dank, genau das was ich brauchte!

LG und noch ein schönes Wochenende

Franz-Georg