Re: Multi-currency

[Frank.Kolmann@xxxxxxxxxx]

I agree with Scott.
Did you consider using LOCALES.
I am using locales to control how dates are represented to users.

I have not tried to control curency formats, but there may be some way
using *DECFMT on the locale.

Your set access to locales vis the User Profile.
You need to  create your locale. ( IBM ships a whole pile of default source
that are quite good)

The following parameters need to be set on the User Profile.
Locale job attributes  . . . . . SETJOBATR      *SYSVAL
Locale job attributes  . . . . .   *SYSVAL

Single Values
  *SAME
  *SYSVAL
  *NONE
Other Values
  *CCSID
  *DATFMT
  *DATSEP
  *DECFMT
  *SRTSEQ
  *TIMSEP
Locale . . . . . . . . . . . . . LOCALE         *SAME

Good Luck.  If you get it to work can you post a reply, please.

Frank Kolmann

------------------------------
from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
subject: Re: Multi-currency
Hi April,
> I am in the process of converting our applications software from USD to
> multi-currency.  The question I have is there a way when printing within
> an RPG program I can change editing from USD editing to EUR.  Example,
> USD is 999,999.99 EUR is 999.999,99

There was a good discussion on this topic in the iSeries Network's RPG
forums.  Basically, what you need to do is:

1) code DECEDIT(*JOBRUN) on your H-spec.
2) format dates with *JOBRUN as well (charfld = %date(myDate: *JOBRUN))
3) Use the CHGJOB command to change the decimal format & date/time
separators as appropriate for the country.

4) Or, set up locales that will automatically set the job values.