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

["Dennis Lovelady" <iseries@xxxxxxxxxxxx>]

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.