Re: The best way to write an RPG report that prints using currency symbols that can be changed dynamically

Why not make the report column be an alpha field and then eval the field with:

C eval AlphaField = CurrencySymbol
C + %trim(%editw(value: ' , , 0.00cr'))

where CurrencySymbol is a one-char field, filled with an if/else based on the currency variable in the record.

That needs to be brought backwards to RPG3, but you get the idea.


On 2/15/2012 4:12 AM, Dunk, Michael - Bognor wrote:

Has anyone come across a good example of how to write an RPG3 report that can handle different currencies?

E.g. the example I am looking for is where a single report can be run to print out columns with a dollar symbol or pound depend on a currency variable:

Some pages of the report would need to print out prices in dollars

Price
$123.45
$678.90

And on another page of the report to print out a column with prices in pounds:

Price
£123.45
£678.90

Google has turned up discussion about *CURSYM and about how to use the EDTWRD for floating currency symbols, but no examples of where currency symbols can be changed dynamically in the program.

Best regards,

Mike


------------------------------------------------------------------------------------------------------------
John Wiley& Sons Limited is a private limited company registered in England with registered number 641132.
Registered office address: The Atrium, Southern Gate, Chichester, West Sussex, United Kingdom. PO19 8SQ.
------------------------------------------------------------------------------------------------------------