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

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