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

["Richard Thomas" <richard_matthew_thomas@xxxxxxxxxxx>]

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