RE: Always print sign, + or -, in O-spec

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The 'Q' edit code will give you the sign on the left-side when the value is
negative. The problem is, the "sign" isn't really a 'sign' at all, it is the
"status" flag that is inserted when the number is negative. When it is not
negative it isn't inserted. 

You're best bet... write you own little subprocedure to do it for you; use
the 'Q' edit code, and if the value is great than zero, do the follows:
Eval  szValue = %EditC(nValue:'Q')
If nValue > 0
evalR  szValue = '+' %TrimL(szValue) 
endif

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Haas, Matt
Sent: Tuesday, August 31, 2004 10:34 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Always print sign, + or -, in O-spec

Can't you do this with edit words?

Matt

-----Original Message-----
From: Dan Bale [mailto:dbale@xxxxxxxxxxxxx]
Sent: Tuesday, August 31, 2004 11:27 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: Always print sign, + or -, in O-spec


Got a request to always print a sign for a certain number in a report,
whether positive or negative, except when the value is zero.  Examples:

   +55.7%
    -9.0%
  +150.3%
    -0.7%
     0.0%

Is there one API to do this automagically?  Or a combo?

tia,
db

--
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.