× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.






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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.