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

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.