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

["M. Lazarus" <mlazarus@xxxxxxxx>]

Dave,

 If the first character is not 0, won't it fail too?  Then the last 
parm of the %subst() BIF will resolve to 0, which is invalid.

 -mark

At 7/3/10 01:51 PM, you 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