Re: free-format move *USA date value to 6-digit numeric in YMD format

On 12/27/05, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:
>
> On Tue, 27 Dec 2005, Dan wrote:
> > In v5r2, how the #*$& does one, in free-format RPG, move a *USA date
> value
> > to 6-digit numeric in YMD format?
>
> V5R2:
>    numFld = %int(%char(dateFld:*YMD0));
>
> V5R3:
>    numFld = %dec(dateFld:*YMD);


Scott, I should have mentioned I tried this already, and it didn't work!
Hah, got you on one!
... Whaaaaat???????
<nursing flat spot on forehead>
Sheesh.  It was the "*YMD0" instead of "*YMD"!

But, but, the target was numeric!  So, in my feeble, brain-drain state, I
totally ignored the fact that the intermediate target was, in fact,
character.  (Archive note to self:  %char is the intermediate target.)

Can't wait to get to v5r3.  Or, better yet, just postpone until v5r4 has
been out for a month or so.

Thanks a ton, Scott!

- Dan