Re: Having a date conversion issue

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Doug,

> 0101.05       TestDateN = %Dec(%Date(Tsw3:*Cymd):*Iso); 
> 0101.06       TestDateN = %dec(%Date(TestDateN:*cymd)+ %days(1));

Shouldn't that second line have *iso instead of *cymd?  You've already 
converted the date to *ISO at that point...

I think the "receiver too small" error is coming from the fact that 
you're trying to tell the system that an 8,0 date is actually a 7,0 
date.  So when the %date() BIF tries to read an 8-digit date, the 
internal *CYMD can't hold the result.  Changing the second line to *ISO 
should solve that problem.

However... if you read what your code does (Step-by-step) you'll see 
that it does this:

a) read numeric date from file
b) Convert numeric date (cymd) to date field
c) Convert date field to numeric field (iso)
d) convert numeric field (iso) to date field again
e) add a day to date field
f) convert back to numeric field, iso

Wouldn't it be a lot cleaner to convert it to a date once, add a day, 
then convert it back to a number?  Just one line of code like this:

TestDateN = %Dec(%Date(Tsw3:*Cymd) + %days(1):*Iso);

It just seems simpler... read the number (cymd), make it a date field, 
add a day, convert it back to a number (iso).