RE: Zero suppress a character field for display...

If you use the following line of code, you don't even need to check for a
'000000000' value:

dspInvoiceNbr = %Editc(%Dec(invoiceNbr: 9: 0):'3');

Richard

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Raul A. Jager W.
Sent: 05 July 2010 14:20
To: RPG programming on the IBM i / System i
Subject: Re: Zero suppress a character field for display...

Beautifuul, just need to check for a 000000000 field before....

Dave wrote:

In a single line of code:
%subst(invoiceNbr:1:(%check('0':invoiceNbr)-1)) = *blanks;

Basically just finds the first non-zero character and replaces everything
before it with *blanks.


--------------------------------------------------
From: "Robert Rogerson" <rogersonra@xxxxxxxxx>
Sent: Thursday, June 24, 2010 9:05 AM
To: "RPG programming on the IBM i / System i" <RPG400-L@xxxxxxxxxxxx>
Subject: Zero suppress a character field for display...

Hi all,

This should be quick. I have a character field

d invoiceNbr s 9a

which may hold '001234567'. The user wants to see the invoice number with
leading zeroes suppressed so '1234567'.

My first thought is
/free
dspInvoiceNbr = %Char(%Dec(invoiceNbr: 9: 0));
/end-free

Is there a better method or is this about as good as any other method?

Thanks,

Rob
--
This is the RPG programming on the IBM i / System i (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.