Re: date type field test

[Jon Paris <paris@xxxxxxxxxx>]

>> "I don't know if anyone else has noticed this, but I've noticed that if you
try
do a *MDY MOVE where you are moving an L-date field into a 6-numeric field, I
get an error saying the 6-numeric date is not big enough to hold the field.
But, if I make sure that the 6 numeric is packed and not zoned, it works fine."
<<

You may be missing some PTFs, although I don't recall this being a problem.
You don't provide a code sample, but what you're doing should work so I think
you must have something else wrong.  I've tested the following code using the
VisualAge RPG compiler, and it works just fine.


     D ISODate         S               D   DatFmt(*ISO) Inz(D'1997-12-25')
     D DatePkd6        S              6P 0
     D DateZnd6        S              6S 0

     C     *MDY          Move      ISODate       DatePkd6
     C     *MDY          Move      ISODate       DateZnd6

Jon Paris - AS/400 AD Market Support - paris@ca.ibm.com
Phone: (416) 448-4019   -   Fax: (416) 448-4414
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---