RE: ISO Date in RPGLE

["Jon Paris" <Jon.paris@xxxxxxxxxxxxxx>]

 >> .. how can I see if the date is equal to 0001-01-01 and second how can I
fill the date with 0001-01-01.

Simply use *LoVal.

E.g.

 If InpDate = *LoVal    // Date = 0001-01-01 ?

 Eval MyDate = *LoVal;  // Set MyDate = 0001-01-01

*LoVal works regardless of the date format.  For 2 digit year types it is
equivalent to 1940-01-01.  *HiVal works in the same way (except higher
<grin>)

Jon Paris
Partner400
www.Partner400.com