RE: Displaying a $ using /free

I've used that parameter back in V5R1. By the way, instead of hard-coding the 
'$;, you can use *CURSYM instead, which you can change with the H-spec keyword 
CURSYM. If you have programs that go international, you can do it that way and 
just change the H-spec (or use a conditional define for whatever country). If 
you don't define it, it defaults to '$'.

      /if defined(UK_system)
     H CURSYM('£')
      /endif

     C                   Eval      Error_Desc = 'History NSF fee balance = ' 
     C                             + %TRIM(%EDITC(His_Nsf_Fee :'J':*CURSYM)) 
     C                             + '; Master NSF fee balance = '           
     C                             + %TRIM(%EDITC(Cnmnsf :'J':*CURSYM))      

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Jennifer Martin
Sent: Thursday, January 11, 2007 3:58 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Displaying a $ using /free

Is it a redbook?  Do you the link or the SG #?  I searched the redbook website 
for /free and nothing was found.

Michael_Schutte@xxxxxxxxxxxx 1/11/2007 4:52 PM >>>

Look at the %EditC in the ILE RPG Reference Manual for the version you are
on.  I believe in V5R3, you can specify a third parmeter (maybe even
earlier).

formatteddollar = %EditC(dollarAmt:'J':'$');

I suggest going to the IBM site and downloading the PDF file, as I use it
basically everyday.

Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
Visit us on the web! www.bobevans.com 
We've built a better hotcake -- Stacked and Stuffed Hotcakes -- coming
January 11th!
For hotcake tips, interviews with our chefs and more, check out the Stacked
and Stuffed blog at http://imstuffed.blogspot.com 


rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/11/2007 04:42:53 PM:

I'm working on a report and the program is in /free.  I want to be
able to use an edit code on the output spec so the decimal point and
negative sign display but I also need a floating  $ and I can't find
any documentation on it.

rob@xxxxxxxxx 1/11/2007 4:36 PM >>>

dsply '$';

should work.  Perhaps we need more information?

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com 





"Jennifer Martin" <jamartin@xxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx 
01/11/2007 04:30 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Displaying a $ using /free






Does anyone know that best way to do this?

This transmission may contain information that is privileged,

proprietary,

confidential and/or exempt from disclosure under applicable law. If you
are not the intended recipient, you are hereby notified that any
disclosure, copying, distribution, or use
of the information contained herein (including any reliance thereon) is
STRICTLY PROHIBITED. If you received this transmission in error, please
immediately contact the sender and destroy the material in its entirety,
whether in electronic or hard copy fo
rmat. Thank you.
<<<<gwavasig>>>>

--
This is the RPG programming on the AS400 / iSeries (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.


--
This is the RPG programming on the AS400 / iSeries (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.



--
This is the RPG programming on the AS400 / iSeries (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.