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

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

As Michael says, you get leading blanks. And to address Dennis' concern 
about non-numeric, the MONITOR-ENDMON is perfect for that.

Assuming the display field is alphameric, then try this (free form) -

monitor;
dspInvoiceNub = %char(%Dec(invoiceNbr : 9 : 0));
on-error;
dspInvoiceNub = invoiceNbr;  // or some appropriate warning
endmon;

If there is an error in converting to a decimal, the on-error happens - 
ba-da-bing!

HTH
Vern

On 6/24/2010 11:42 AM, Michael_Schutte@xxxxxxxxxxxx wrote:
> this would work unless you need to keep the spaces.
>
> dspInvoiceNub = %EditC(%Dec(invoiceNbr:9:0):'Z')
>
> will result in  '  1234567'
> instead of '1234567'
>
>
>
> --
>
> Michael Schutte
> Admin Professional
>
>
>
> Announcing Bob Evans Bob-B-Q® Road Trip! For a limited time, America's best
> Bob-B-Q® tastes are all at Bob Evans! For more information, visit
> www.bobevans.com/menu/seasonal.aspx
>
>
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/24/2010 12:05:09 PM:
>
>    
> > 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.
> >
> >