Hi Mike
What you may have to do is use %editc with whatever edit code is appropriate and concatenate the currency symbol with the outcome of the %editc
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dunk, Michael - Bognor
Sent: Wednesday, February 15, 2012 5:12 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: The best way to write an RPG report that prints using currency symbols that can be changed dynamically
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.
------------------------------------------------------------------------------------------------------------
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
