MVSFORUMS.com

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I have a discount field which has sign and $.
This is defined as DISCOUNT PIC +$$$9.9(2)

so this is display as below.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I think I will use +$999.9(2), if I could not compress leading zeros.

William Collins · Supermod Joined: 03 Jun 2012 Posts: 437 Topics: 0

Use the currency-symbol as the "floating zero-suppress" and put the sign to the right of the output. You can't have two floating editing symbols operating at the same time.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

Thanks, will use the below.
$$$$9.9(2)-

kolusu · Posted: Mon Jun 27, 2016 1:45 pm Post subject:

vak255,

Alternatively you can use an INSPECT to replace the space and adjust the sign.

William Collins · Supermod Joined: 03 Jun 2012 Posts: 437 Topics: 0

FIRST could replace the ALL, and save a bit. Even LEADING, although that would look at at least one extra byte. Can even drop the $. Various ways with INSPECT.

The thing is, anyone who is interested in whether a value is positive or negative is not interested in "bouncing" their eyes around to locate a floating symbol. Two columns, CR/DB, right=most signs. Then either it already stands out (columns) or you can rapidly scan page after page looking for those odd negative values. Try it Smile

kolusu · Posted: Tue Jun 28, 2016 10:38 am Post subject:

Terry_Heinze · Posted: Tue Jun 28, 2016 12:39 pm Post subject:

As William says, most people I've encountered prefer the trailing negative sign as they are more easily spotted.
_________________
....Terry