evalr my7BytesChar = %editw(myPrice_7With2Decpos :' '); //without negative sign


evalr my7BytesChar = %editw(myPrice_7With2Decpos :' -'); //with negative sign at the end

Note: there is no away to put - sign in the beginning of result when using %editw.

"Adam West" <adamster@xxxxxxxxx> wrote in message news:<mailman.5460.1219329935.2545.rpg400-l@xxxxxxxxxxxx>...
HI I have a field that has to be sent over as character. It is numeric with many prices as 19.99, etc.
I want to send it as character '    19999' for 7 pos. field.
I am looking for the neatest way to do in RPG.


This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].