Re: Edit codes/words

On 2017-02-23 2:29 PM, John Yeung wrote:

...
I think I would do something more like

if number < 0;
edited = %editc(number: 'n');
else;
edited = '+' + %trim(%editc(number: 'n'));
endif;

Tweak as necessary if zero should have no sign.

It might also need tweaking if "edited" isn't always trimmed before being
used. The result for negative numbers would have leading blanks that would
not be there for positive values. So trimming in both cases would give a
consistent result.

if number < 0;
edited = %trim(%editc(number: 'N'));
else;
edited = '+' + %trim(%editc(number: 'N'));
endif;

It would get quite icky if they wanted the untrimmed result. The positive
case would have to add the right amount of leading blanks.

if number < 0;
edited = %editc(number: 'N');
else;
edited = %subst(blanks : 1 : how_many?)
+ '+' + %trim(%editc(number: 'N'));
endif;

--
Barbara


--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD