Re: ADD Zeros to a number

["Glenn Gundermann" <ggundermann@xxxxxx>]

I see a whole slew of e-mails with this topic and I don't have a chance to
read them.

I just noticed your suggestion below to use an edit code like 'X'.

Just so you know, this method loses the '-' at the end of the number and
will convert any negative numbers to one character.  E.g. -1 => J, -2 =>
K, etc., up to R (I seem to recall -0 => '}' but not 100% sure), so the
space required is exactly the same as the number.

If the number can be negative, you'll have to use an edit word.  E.g.
amtChar5 = %triml(%editw(amtNum4: '0    -'));

In this example, there are four spaces in the edit word to correspond to
the 4 digits in the number.  The character field is one longer to allow
space for the '-'.  %triml is used to remove the space to the left of the
number that is created by the '0' at the beginning of the number.

Sorry if this has no relation to the original question asked.  It's been a
busy day.

Glenn Gundermann
ggundermann@xxxxxx
(647) 272-3295


> Then just do an eval from 8/0 to 10/0.  You won;t see the leading zeros
> but they are there.  If you want to see them you need an edit code like
> 'X'.
>
>
>
> You said you are trying to validate dates?  Is this process the way you
> want to do it?  It sounds very long and hard to me.
>
> Are you using RPG or CL?