Re: mapping a field

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

From ILE RPG for AS/400 Reference (V4R4)

4.1.1.7 %EDITC (Edit Value Using an Editcode)

     %EDITC(numeric : editcode {: *ASTFILL | *CURSYM | currency-symbol}) 

Various samples follow.

I believe you want to use:

C                   Eval      CharDollar = %editc(Dollar: 'P')

From what I see, though, 0 will give you problems, and not sure how to 
tell it to use 2 decimal positions.  Probably something like:

C                   If        Dollar = *Zero
C                   Eval      CharDollar = '0.00'
C                   Else
C                   Eval      CharDollar = %editc(Dollar: 'P')
C                   EndIf

but still may have to play around with adding the extra 0's on the end if
needed (I.E. $123.40 would come out '123.4')

Maybe someone else has more insite.


Regards,

Jim Langston

Me transmitte sursum, Caledoni!

saustad@deltadentalwi.com wrote:
> 
> For a data warehousing project, we need to map a P(7,2) dollar field to 10A
> field, which they are calling a currency format type.
> Right adjusted, no commas, if minus sign, needs to be front, ie.
> -999999.99.  If the value is 0, supply 0.00.
> Does anyone know of an algorithm or a procedure to peform this?
> By the way, I'm not an SQL person.  Is the currency data type an SQL thing?
> Thanks for any help.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---