%editw ?

[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