Ich meine das müsste so aus sehen
aber nimm doch %EditC.PHP-Code:$v10 = %editw(ustw(pos#) : '-xxxxxxxx0x,xx');
Dein Ergebnissfeld muss dan aber auch 13 lang sein. 9 Vorkomma + 2 Nachkomma + Komma + Vorzeichen
GrußPHP-Code:dcl-s v10 zoned(11:2);
dcl-s $v10 char(13);
$v10 = *Blanks;
v10 = -,74;
$v10 = %EditC( v10: 'Q');
*InLr = *On;
Ronald
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)



Mit Zitat antworten
Bookmarks