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

["Dave" <daveML@xxxxxxxxxxxx>]

Good point.

Given the users I deal with on a daily basis, it is something I should have 
considered.  I will assume that if they keyed in a pile of zeros for the 
invoice number, they must have done so for a good reason, so I will leave it 
alone.  Still not 1 line, but I also should have known better than to say 'a 
single line of code' -- that phrase has caused wars in some shops.

if invoiceNbr <> *zeros;
 %subst(invoiceNbr:1:(%check('0':invoiceNbr)-1)) = *blanks;
endif;


--------------------------------------------------
From: "Dennis Lovelady" <iseries@xxxxxxxxxxxx>
Sent: Monday, July 05, 2010 4:46 AM
To: "'RPG programming on the IBM i / System i'" <rpg400-l@xxxxxxxxxxxx>
Subject: RE: Zero suppress a character field for display...

> Interesting, but won't that fail if the value of the variable is all 
> zeros?
> So that really it's five lines instead of 1?
>   If invoiceNbr = *All'9' ;
>       // some solution, like %Subst(invoiceNbr:1:%Size(invoiceNbr)-1) =
> *Blanks ;
>   Else ;
>       %subst(invoiceNbr:1:(%check('0':invoiceNbr)-1)) = *blanks;
>   EndIF ;
>
> Dennis Lovelady
> http://www.linkedin.com/in/dennislovelady
> --
> Sometimes I've believed as many as six impossible things before breakfast.
>        -- Lewis Carroll
>
>
> > 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.
> > >
> >
> > --
> > 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.
>
>
> --
> 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.