Re: Want to replace MOVE numeric 8 to numeric 6 in free form

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hi Dave

Your caveat is well=taken. In this case, though, the value in the 
8-digit thing is now validated with the test(ed) opcode - at least in 
one place - have to check!!

Things to think about!

Thanks
V.

On 8/17/2013 11:36 AM, Dave Shaw wrote:
> The example given, which has a *MDY as input, doesn't seem to match the question, but I think we all get the idea.  My issue with it is that date conversions are much more expensive than the simple data structure with numeric EVALs provided by the OP.  The other caveat is that the date operations would need a MONITOR if there's any chance of there being a bad date in the input.  For converting between formats, the date conversion version is solid and easily understood, but for just truncating off the century, I'd be inclined to go with the cheaper arithmetic method.  Just my opinion, of course.
>   
> Dave Shaw
>
>
>
> ________________________________
>   From: Bill Wragg <bill_wragg@xxxxxxxx>
> To: 'RPG programming on the IBM i (AS/400 and iSeries)' <rpg400-l@xxxxxxxxxxxx>
> Sent: Saturday, August 17, 2013 11:47 AM
> Subject: RE: Want to replace MOVE numeric 8 to numeric 6 in free form
>   
>
> I am getting that these are dates:
> 8,0 is a ccyymmdd
> 6,0 is a yymmdd
>
> // mmddyy to yymmdd
> @numA = %dec(%char(%date(@numD:*mdy):*ymd0):6:0);
>
> Converts numeric ccyymmdd to numeric yymmdd