RE: RPG Decimal Point is comma and vice-versa (USA & European formats)

On Wednesday, June 03, 1998 7:09 AM, Guillermo Andrades 
[SMTP:Gab@CPIsoftware.com] wrote:
> HI to all,
>
> my question is about the ability of have an RPG application using COMMA
> (European) or POINT (USA, Mexico) decimal, even duplicated in different
> libraries.
> there are 300+ RPG Programs (not ILE, in fact generated with a CASE 
tool,
> but i can customize all the aspects of the source generation).
>
> in this moment i think it is possible only changing an System Value and
> compiling the programs, but then other RPG compilation acts in this way.
>
> the ideal (as i was supposed) is it can be only changing the H-spec
> (even
> the dtaara for not hard coding the H spec), but doesn't work.
> one option could be editing in the memory, but it will be a long time
> and
> surely an poor performance.
>
> please any experiences with it?

Guillermo,
  We do some development for European countries: creating an RPGHSPEC data 
area works fine for us.  If it doesn't work for you, perhaps there is one 
in a library before yours?  Here is a sample that works on V4R2, but 
similar code works on V3Rx:

     F* Test European date, number formatting
     F* Uses default RPG H specification data area, created as follows:
     F*
     F* CRTDTAARA DTAARA(BUCK/RPGHSPEC) TYPE(*CHAR) LEN(80)
     F*           VALUE('     H        1   D J ')
     F*           TEXT('Default RPG H specification - European, debug')
     F*
     FQSYSPRT O   F     132     OF     PRINTER
     C                     Z-ADD12345678  POS    102
     C                     Z-SUB12345678  NEG    102
     C                     Z-ADD0         ZERO   102
     C                     EXCPTPRTTST
     C                     SETON                     LR
     OQSYSPRT H  203   1P
     O                         UDATE Y    8
     O                                   64 'Test formatting'
     O                                  127 'TESTEUR  Page'
     O                         PAGE     132
     O*
     O        E  1             PRTTST
     O*
     O                         POS   J   15
     O                         NEG   J   30
     O                         ZERO  J   45

The output looks like this:
 4.06.98                                         Test formatting
 12.345.678,00  12.345.678,00-          0,00

hope this helps!

Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---